Changeset 30 for trunk/Forms/UMainForm.pas

Timestamp:

Nov 24, 2011, 8:35:25 AM (13 years ago)

Author:

chronos

Message:

• Added: TabControl in ItemEditForm for edit of OneToMany relations.

File:

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

trunk/Forms/UMainForm.pas

@@ -34 +34 @@
     AItemDelete: TAction;
     ActionListItem: TActionList;
+    ButtonEdit: TButton;
+    ButtonView: TButton;
     ButtonAdd: TButton;
-    ButtonRemove: TButton;
+    ButtonDelete: TButton;
     ImageListActions: TImageList;
     Label1: TLabel;
@@ -306 +308 @@
       LoadTree;
     except
-      on E:Exception do ShowMessage(E.Message);
+      on E: Exception do ShowMessage(E.Message);
     end;
   end;
@@ -371 +373 @@
     else SelectedItem := 0;
 
-  AItemDelete.Enabled := Assigned(ListView1.Selected);
-  AItemView.Enabled := Assigned(ListView1.Selected);
-  AItemEdit.Enabled := Assigned(ListView1.Selected);
+  ButtonDelete.Enabled := Assigned(ListView1.Selected);
+  ButtonView.Enabled := Assigned(ListView1.Selected);
+  ButtonEdit.Enabled := Assigned(ListView1.Selected);
 end;