Changeset 4 for trunk/Forms/UFormTable.pas

Timestamp:

Jan 18, 2015, 11:29:26 PM (10 years ago)

Author:

chronos

Message:

• Moved: Field and value data type declaration moved to separate unit.
• Modified: Fields edit form is now modal and made need changes need to be accepted.
• Added: 32x32 icons to actions.
• Fixed: If fileds count or type changed then table values are updated.

File:

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

trunk/Forms/UFormTable.pas

@@ -15 +15 @@
   TFormTable = class(TForm)
     ButtonOk: TButton;
+    ButtonCancel: TButton;
     EditName: TEdit;
+    EditCaption: TEdit;
     Label1: TLabel;
+    Label2: TLabel;
   private
     { private declarations }
@@ -36 +39 @@
 begin
   EditName.Text := Table.Name;
+  EditCaption.Text := Table.Caption;
 end;
 
@@ -41 +45 @@
 begin
   Table.Name := EditName.Text;
+  Table.Caption := EditCaption.Text;
 end;