Changeset 5 for trunk/Forms/UMainForm.pas

Timestamp:

Jun 3, 2010, 6:00:52 PM (14 years ago)

Author:

george

Message:

• Přidáno: Formulář pro vkládání položek.

File:

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

trunk/Forms/UMainForm.pas

@@ -21 +21 @@
 
   TMainForm = class(TForm)
+    AObjectEdit: TAction;
+    AObjectDelete: TAction;
     AObjectGroupEdit: TAction;
     AObjectGroupAddObject: TAction;
@@ -37 +39 @@
     ListView1: TListView;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -44 +47 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     Panel1: TPanel;
     Panel2: TPanel;
@@ -54 +58 @@
     procedure AItemEditExecute(Sender: TObject);
     procedure AItemViewExecute(Sender: TObject);
+    procedure AObjectEditExecute(Sender: TObject);
     procedure AObjectGroupAddGroupExecute(Sender: TObject);
+    procedure AObjectGroupEditExecute(Sender: TObject);
     procedure ButtonAddClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -84 +90 @@
 
 uses
-  UItemView, UItemEdit;
+  UItemView, UItemEdit, UItemAdd;
 
 {$R *.lfm}
@@ -153 +159 @@
 end;
 
+procedure TMainForm.AObjectEditExecute(Sender: TObject);
+begin
+  if Assigned(TreeView1.Selected) then begin
+    SelectedObject := 9;
+    SelectedItem := Integer(TreeView1.Selected.Data);
+    ItemEditForm.Show;
+  end;
+end;
+
 procedure TMainForm.AObjectGroupAddGroupExecute(Sender: TObject);
 begin
@@ -158 +173 @@
 end;
 
+procedure TMainForm.AObjectGroupEditExecute(Sender: TObject);
+begin
+  if Assigned(TreeView1.Selected) then begin
+    SelectedObject := 8;
+    SelectedItem := Integer(TreeView1.Selected.Data);
+    ItemEditForm.Show;
+  end;
+end;
+
 procedure TMainForm.AItemEditExecute(Sender: TObject);
 begin
@@ -165 +189 @@
 procedure TMainForm.AItemAddExecute(Sender: TObject);
 begin
-
+  ItemAddForm.Show;
 end;
 
@@ -206 +230 @@
 procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
 begin
-  LoadItemList;
   AObjectGroupDelete.Enabled := Assigned(TreeView1.Selected);
   AObjectGroupEdit.Enabled := Assigned(TreeView1.Selected);
   if Assigned(TreeView1.Selected) then begin
-    if TreeView1.Selected.ImageIndex = 0 then
+    if TreeView1.Selected.ImageIndex = 0 then begin
       TreeView1.PopupMenu := PopupMenuObjectGroup;
-    if TreeView1.Selected.ImageIndex = 1 then
+      ListView1.Visible := False;
+    end;
+    if TreeView1.Selected.ImageIndex = 1 then begin
       TreeView1.PopupMenu := PopupMenuObject;
+      LoadItemList;
+    end;
   end;
 end;
@@ -237 +264 @@
       NewNode.ImageIndex := 0;
       NewNode.SelectedIndex := 0;
+      NewNode.Data := Pointer(StrToInt(DbRows[I].Values['Id']));
       ObjectDbRows := Database.Query('SELECT * FROM `Object` WHERE `Group`=' + DbRows[I].Values['Id']);
       for O := 0 to ObjectDbRows.Count - 1 do begin
@@ -263 +291 @@
 begin
   SelectedObject := 0;
-  if Assigned(TreeView1.Selected) then
+  if Assigned(TreeView1.Selected)then
   with ListView1, Items do begin
+    Visible := True;
     Clear;
     DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(Integer(TreeView1.Selected.Data)));