Changeset 9 for trunk/Forms/UFormDatabases.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/UFormDatabases.pas (modified) (4 diffs)

trunk/Forms/UFormDatabases.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  Menus, ActnList;
+  Menus, ActnList, UDatabase;
 
 type
@@ -42 +42 @@
     { private declarations }
   public
+    SelectedDatabase: TDatabase;
     procedure ReloadList;
     procedure UpdateInterface;
@@ -54 +55 @@
 
 uses
-  UCore, UDatabase, UFormTables, UFormConnect;
+  UCore, UFormTables, UFormConnect;
 
 { TFormDatabases }
@@ -65 +66 @@
 procedure TFormDatabases.AOpenExecute(Sender: TObject);
 begin
-  if Assigned(ListView1.Selected) then
-  with TDatabase(ListView1.Selected.Data) do begin
-    Load;
-    FormTables.Database := TDatabase(ListView1.Selected.Data);
-    FormTables.ShowModal;
+  if Assigned(ListView1.Selected) then begin
+    SelectedDatabase := TDatabase(ListView1.Selected.Data);
+    ModalResult := mrOk;
   end;
 end;