Changeset 4 for trunk/Forms/UMainForm.pas

Timestamp:

Jun 3, 2010, 5:25:10 PM (14 years ago)

Author:

george

Message:

• Přidáno: Knihovna pro uchování stavu rozevření stromu.
• Přidáno: Ikonky stromu skupin.

File:

• trunk/Forms/UMainForm.pas (modified) (11 diffs)

trunk/Forms/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm, UItemView;
+  StdCtrls, ActnList, Menus, ExtCtrls, USqlDatabase, DOM, XMLRead, XMLWrite,
+  UPersistentForm, UTreeState;
 
 const
@@ -13 +14 @@
 
 type
+  TValueType = (vtNone, vtInteger, vtString, vtText, vtDateTime, vtFloat, vtImage, vtBoolean,
+  vtIPv4, vtMAC, vtIPv6, vtFile, vtGPS, vtEnumeration, vtHyperlink, vtPassword,
+  vtReference, vtDate, vtTime, vtColor);
 
   { TMainForm }
 
   TMainForm = class(TForm)
+    AObjectGroupEdit: TAction;
+    AObjectGroupAddObject: TAction;
+    AObjectGroupAddGroup: TAction;
+    AObjectGroupDelete: TAction;
+    AItemView: TAction;
+    AItemEdit: TAction;
+    AItemAdd: TAction;
+    AItemDelete: TAction;
+    ActionListItem: TActionList;
+    ButtonAdd: TButton;
+    ButtonRemove: TButton;
+    ImageListActions: TImageList;
     Label1: TLabel;
     Label2: TLabel;
     ListView1: TListView;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    PopupMenuObjectGroup: TPopupMenu;
+    PopupMenuObject: TPopupMenu;
+    PopupMenuItem: TPopupMenu;
+    Splitter1: TSplitter;
     TreeView1: TTreeView;
+    procedure AItemAddExecute(Sender: TObject);
+    procedure AItemEditExecute(Sender: TObject);
+    procedure AItemViewExecute(Sender: TObject);
+    procedure AObjectGroupAddGroupExecute(Sender: TObject);
+    procedure ButtonAddClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1DblClick(Sender: TObject);
@@ -37 +73 @@
     PersistentForm: TPersistentForm;
     Database: TSQLDatabase;
+    TreeState: TTreeState;
     procedure LoadTree;
     procedure LoadItemList;
@@ -45 +82 @@
 
 implementation
+
+uses
+  UItemView, UItemEdit;
 
 {$R *.lfm}
@@ -87 +127 @@
   LoadConfiguration;
   Database.Connect;
+  TreeState := TTreeState.Create;
   PersistentForm := TPersistentForm.Create;
 end;
 
+procedure TMainForm.FormDestroy(Sender: TObject);
+begin
+  TreeState.Destroy;
+  Database.Destroy;
+  PersistentForm.Destroy;
+end;
+
 procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
   PersistentForm.Save(Self);
+end;
+
+procedure TMainForm.ButtonAddClick(Sender: TObject);
+begin
+
+end;
+
+procedure TMainForm.AItemViewExecute(Sender: TObject);
+begin
+  ItemViewForm.Show;
+end;
+
+procedure TMainForm.AObjectGroupAddGroupExecute(Sender: TObject);
+begin
+
+end;
+
+procedure TMainForm.AItemEditExecute(Sender: TObject);
+begin
+  ItemEditForm.Show;
+end;
+
+procedure TMainForm.AItemAddExecute(Sender: TObject);
+begin
+
 end;
 
@@ -103 +176 @@
 procedure TMainForm.ListView1DblClick(Sender: TObject);
 begin
-  ItemViewForm.Show;
+  AItemViewExecute(Self);
 end;
 
 procedure TMainForm.ListView1KeyPress(Sender: TObject; var Key: char);
 begin
-  if Key = #13 then ListView1DblClick(Sender);
+  if Key = #13 then AItemViewExecute(Self);
 end;
 
@@ -125 +198 @@
     SelectedItem := Integer(ListView1.Selected.Data)
     else SelectedItem := 0;
+
+  AItemDelete.Enabled := Assigned(ListView1.Selected);
+  AItemView.Enabled := Assigned(ListView1.Selected);
+  AItemEdit.Enabled := Assigned(ListView1.Selected);
 end;
 
@@ -130 +207 @@
 begin
   LoadItemList;
+  AObjectGroupDelete.Enabled := Assigned(TreeView1.Selected);
+  AObjectGroupEdit.Enabled := Assigned(TreeView1.Selected);
+  if Assigned(TreeView1.Selected) then begin
+    if TreeView1.Selected.ImageIndex = 0 then
+      TreeView1.PopupMenu := PopupMenuObjectGroup;
+    if TreeView1.Selected.ImageIndex = 1 then
+      TreeView1.PopupMenu := PopupMenuObject;
+  end;
 end;
 
@@ -142 +227 @@
 begin
   with TreeView1, Items do begin
+    TreeState.SaveTree(TreeView1);
     Clear;
     AddChild(nil, 'Skupiny');
-    DbRows := Database.Query('SELECT * FROM `MenuGroup`');
+    TopItem.ImageIndex := 0;
+    TopItem.SelectedIndex := 0;
+    DbRows := Database.Query('SELECT * FROM `ObjectGroup`');
     for I := 0 to DbRows.Count - 1 do begin
       NewNode := AddChild(TopItem, DbRows[I].Values['Name']);
-      ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `MenuGroup`=' + DbRows[I].Values['Id']);
+      NewNode.ImageIndex := 0;
+      NewNode.SelectedIndex := 0;
+      ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
       for O := 0 to ObjectDbRows.Count - 1 do begin
         NewObjectNode := AddChild(NewNode, ObjectDbRows[O].Values['Name']);
-        NewObjectNode.ImageIndex := StrToInt(ObjectDbRows[O].Values['Id']);
+        NewObjectNode.Data := Pointer(StrToInt(ObjectDbRows[O].Values['Id']));
+        NewObjectNode.ImageIndex := 1;
+        NewObjectNode.SelectedIndex := 1;
       end;
       ObjectDbRows.Destroy;
@@ -156 +248 @@
     TopItem.Expand(True);
     DbRows.Destroy;
+    TreeState.LoadTree(TreeView1);
   end;
 end;
@@ -173 +266 @@
   with ListView1, Items do begin
     Clear;
-    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(TreeView1.Selected.ImageIndex));
+    DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));
     if DbRows.Count = 1 then begin
       SelectedObject := StrToInt(DbRows[0].Values['Id']);