Changeset 9 for trunk/Forms/UFormTables.pas

Timestamp:

Jan 25, 2015, 9:41:26 PM (9 years ago)

Author:

chronos

Message:

• Added: Preferences dialog window.
• Modified: Currently selected database is set in TCore class in field Database.
• Added: Application remembers name of previous opened database and reopen it during startup.
• Modified: FormDatabases is now used as modal form.

File:

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

trunk/Forms/UFormTables.pas

@@ -45 +45 @@
       Selected: Boolean);
   private
+    FDatabase: TDatabase;
+    procedure SetDatabase(AValue: TDatabase);
     { private declarations }
   public
-    Database: TDatabase;
+    property Database: TDatabase read FDatabase write SetDatabase;
     procedure UpdateInterface;
     procedure ReloadList;
@@ -80 +82 @@
 end;
 
+procedure TFormTables.SetDatabase(AValue: TDatabase);
+begin
+  if FDatabase = AValue then Exit;
+  FDatabase := AValue;
+  ReloadList;
+end;
+
 procedure TFormTables.UpdateInterface;
 begin
-  AModify.Enabled := Assigned(ListView1.Selected);
-  ARemove.Enabled := Assigned(ListView1.Selected);
-  AShowRecords.Enabled := Assigned(ListView1.Selected);
-  AShowFields.Enabled := Assigned(ListView1.Selected);
+  ListView1.Enabled := Assigned(Database);
+  AAdd.Enabled := Assigned(Database);
+  AModify.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
+  AShowRecords.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
+  AShowFields.Enabled := Assigned(Database) and Assigned(ListView1.Selected);
 end;
 
@@ -190 +201 @@
 procedure TFormTables.FormShow(Sender: TObject);
 begin
-  ReloadList;
+  UpdateInterface;
 end;
 
 procedure TFormTables.ReloadList;
 begin
-  ListView1.Items.Count := Database.Tables.Count;
-  ListView1.Repaint;
+  if Assigned(Database) then begin
+    ListView1.Items.Count := Database.Tables.Count;
+    ListView1.Repaint;
+  end else ListView1.Items.Count := 0;
   UpdateInterface;
 end;