Changeset 3 for trunk/Forms/UFormTables.pas

Timestamp:

Jan 18, 2015, 5:25:37 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for editing String and DateTime value types in record edit form.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormTables.pas (modified) (4 diffs)

trunk

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

trunk/Forms/UFormTables.pas

@@ -38 +38 @@
     procedure AShowFieldsExecute(Sender: TObject);
     procedure AShowRecordsExecute(Sender: TObject);
+    procedure FormActivate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
@@ -116 +118 @@
     Database.Tables.Remove(ListView1.Selected.Data);
     ReloadList;
-    UpdateInterface;
   end;
 end;
@@ -138 +139 @@
 end;
 
+procedure TFormMain.FormActivate(Sender: TObject);
+begin
+  Core.Init;
+end;
+
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.Done;
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
   Database := Core.Database;
   ReloadList;
-  UpdateInterface;
 end;
 
@@ -149 +159 @@
   ListView1.Items.Count := Database.Tables.Count;
   ListView1.Repaint;
+  FormMain.UpdateInterface;
 end;
 

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml