Check-in [8f1211f175]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Changed main form.
Timelines: family | ancestors | descendants | both | projectit-laz
Files: files | file ages | folders
SHA1: 8f1211f175bf2d1d46a8169107bafe4b4ad69237
User & Date: tinus 2015-11-29 16:13:47
Context
2015-11-29
20:05
Add some class prototypes to be used. check-in: 3cb52dd6ea user: tinus tags: projectit-laz
16:13
Changed main form. check-in: 8f1211f175 user: tinus tags: projectit-laz
2015-11-28
15:58
Added form to display current project. check-in: 986c810718 user: tinus tags: projectit-laz
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ProjectIt/src/f_main.lfm. 

1
2
3
4
5
6
7
8
9
10
11
12
13
..
16
17
18
19
20
21
22

23
24
25
26
27
28
29
30
31
32
33
34

object frmMain: TfrmMain
  Left = 438
  Height = 346
  Top = 178
  Width = 439
  Caption = 'ProjectIt!'
  ClientHeight = 346
  ClientWidth = 439
  LCLVersion = '1.4.4.0'
  object tvwProjects: TTreeView
    Left = 0
    Height = 296
    Top = 0
................................................................................
    AutoExpand = True
    DefaultItemHeight = 32
    HideSelection = False
    Images = modMain.imlApplication
    Indent = 24
    MultiSelect = True
    MultiSelectStyle = [msControlSelect, msVisibleOnly]

    RightClickSelect = True
    RowSelect = True
    ShowRoot = False
    TabOrder = 0
    Options = [tvoAllowMultiselect, tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
    Items.Data = {
      F9FFFFFF020001000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF010000000000
      0000010900000028416677657A6967290000000000000000FFFFFFFFFFFFFFFF
      00000000000000000007000000285061757A6529
    }
  end
  object pnlButtons: TPanel






|







 







>




|








1
2
3
4
5
6
7
8
9
10
11
12
13
..
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

object frmMain: TfrmMain
  Left = 438
  Height = 346
  Top = 178
  Width = 439
  Caption = 'Projects'
  ClientHeight = 346
  ClientWidth = 439
  LCLVersion = '1.4.4.0'
  object tvwProjects: TTreeView
    Left = 0
    Height = 296
    Top = 0
................................................................................
    AutoExpand = True
    DefaultItemHeight = 32
    HideSelection = False
    Images = modMain.imlApplication
    Indent = 24
    MultiSelect = True
    MultiSelectStyle = [msControlSelect, msVisibleOnly]
    ReadOnly = True
    RightClickSelect = True
    RowSelect = True
    ShowRoot = False
    TabOrder = 0
    Options = [tvoAllowMultiselect, tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoRowSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoNoDoubleClickExpand, tvoThemedDraw]
    Items.Data = {
      F9FFFFFF020001000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF010000000000
      0000010900000028416677657A6967290000000000000000FFFFFFFFFFFFFFFF
      00000000000000000007000000285061757A6529
    }
  end
  object pnlButtons: TPanel

Changes to ProjectIt/src/f_project.lfm. 

844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859

860
861

    0000FE00000000FF0000FE00000000FF0000FE00000000FF0000FE00000000FF
    0000FE00000000FF0000FE00000000FF0000FE000000007F0000FE000000007F
    0000FF000000007F0000FFC00000007F0000FFF80000007F0000FFFF8000007F
    0000FFFFF000007F0000FFFFFE000CFF0000FFFFFFC07FFF0000FFFFFFF8FFFF
    0000FFFFFFFFFFFF0000
  }
  LCLVersion = '1.4.4.0'
  object btnProject: TButton
    Left = 0
    Height = 106
    Top = 0
    Width = 373
    Align = alClient
    Caption = '(Pauze)'
    Default = True
    TabOrder = 0

  end
end








|






|
|
>



844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862

    0000FE00000000FF0000FE00000000FF0000FE00000000FF0000FE00000000FF
    0000FE00000000FF0000FE00000000FF0000FE000000007F0000FE000000007F
    0000FF000000007F0000FFC00000007F0000FFF80000007F0000FFFF8000007F
    0000FFFFF000007F0000FFFFFE000CFF0000FFFFFFC07FFF0000FFFFFFF8FFFF
    0000FFFFFFFFFFFF0000
  }
  LCLVersion = '1.4.4.0'
  object btnProject: TSpeedButton
    Left = 0
    Height = 106
    Top = 0
    Width = 373
    Align = alClient
    Caption = '(Pauze)'
    Font.Height = -40
    OnClick = btnProjectClick
    ParentFont = False
  end
end

Changes to ProjectIt/src/f_project.pas. 

1
2
3
4
5
6
7
8

9
10
11
12
13
14
15

16
17
18
19
20
21
22
23
24
25


26
27







28
29
30

unit f_project;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;


type

  { TfrmCurrentProject }

  TfrmCurrentProject = class(TForm)
    btnProject: TButton;

  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmCurrentProject: TfrmCurrentProject;

implementation



{$R *.lfm}








end.









|
>






|
>










>
>


>
>
>
>
>
>
>




1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

unit f_project;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Buttons;

type

  { TfrmCurrentProject }

  TfrmCurrentProject = class(TForm)
    btnProject: TSpeedButton;
    procedure btnProjectClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  frmCurrentProject: TfrmCurrentProject;

implementation
uses
  f_main;

{$R *.lfm}

{ TfrmCurrentProject }

procedure TfrmCurrentProject.btnProjectClick(Sender: TObject);
begin
  frmMain.ShowModal;
end;

end.

Changes to ProjectIt/src/lazarus/projectit.lpr. 

14
15
16
17
18
19
20
21
22
23
24
25

{$R *.res}

begin
  Application.Title:='ProjectIt!';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TmodMain, modMain);
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmCurrentProject, frmCurrentProject);
  Application.Run;
end.









|
|




14
15
16
17
18
19
20
21
22
23
24
25

{$R *.res}

begin
  Application.Title:='ProjectIt!';
  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TmodMain, modMain);
  Application.CreateForm(TfrmCurrentProject, frmCurrentProject);
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

Fossil version [c6dfb55802] 2019-11-28 10:27:30