source: trunk/Forms/FormProjectGroup.pas

Last change on this file was 23, checked in by chronos, 2 weeks ago
  • Modified: All unit renamed to names without U prefix.
  • Modified: Removed global form variables.
  • Modified: Code cleanup.
File size: 1.3 KB
Line 
1unit FormProjectGroup;
2
3interface
4
5uses
6 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
7 Menus, ActnList, Project, LazFileUtils;
8
9type
10
11 { TFormProjectGroup }
12
13 TFormProjectGroup = class(TForm)
14 AAdd: TAction;
15 AModify: TAction;
16 ARemove: TAction;
17 ActionList1: TActionList;
18 MenuItem1: TMenuItem;
19 MenuItem2: TMenuItem;
20 MenuItem3: TMenuItem;
21 PopupMenu1: TPopupMenu;
22 TreeView1: TTreeView;
23 procedure FormShow(Sender: TObject);
24 public
25 procedure ReloadTree;
26 procedure UpdateInterface;
27 end;
28
29
30implementation
31
32{$R *.lfm}
33
34uses
35 Core;
36
37{ TFormProjectGroup }
38
39procedure TFormProjectGroup.FormShow(Sender: TObject);
40begin
41 ReloadTree;
42end;
43
44procedure TFormProjectGroup.ReloadTree;
45var
46 I: Integer;
47begin
48 TreeView1.Items.Clear;
49 if Assigned(Core.Core.ProjectGroup) then begin
50 TreeView1.Items.AddChild(nil, ExtractFileNameOnly(Core.Core.ProjectGroup.FileName));
51 for I := 0 to Core.Core.ProjectGroup.Projects.Count - 1 do
52 TreeView1.Items.AddChildObject(TreeView1.TopItem,
53 ExtractFileName(Core.Core.ProjectGroup.Projects[I].Directory),
54 Core.Core.ProjectGroup.Projects[I]);
55 end;
56 UpdateInterface;
57end;
58
59procedure TFormProjectGroup.UpdateInterface;
60begin
61 AModify.Enabled := Assigned(TreeView1.Selected);
62 ARemove.Enabled := Assigned(TreeView1.Selected);
63end;
64
65end.
66
Note: See TracBrowser for help on using the repository browser.