Changeset 9 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 25, 2015, 9:41:26 PM (10 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/UFormMain.pas (modified) (3 diffs)

trunk/Forms/UFormMain.pas

@@ -30 +30 @@
   public
     procedure DockInit;
+    procedure UpdateInterface;
   end;
 
@@ -40 +41 @@
 
 uses
-  UFormDatabases, UCore;
+  UFormDatabases, UCore, UFormTables;
 
 { TFormMain }
@@ -61 +62 @@
 procedure TFormMain.DockInit;
 begin
-  FormDatabases.ManualDock(FormMain, nil, alClient);
-  FormDatabases.Align := alClient;
-  FormDatabases.Show;
+  FormTables.ManualDock(FormMain, nil, alClient);
+  FormTables.Align := alClient;
+  FormTables.Show;
+end;
+
+procedure TFormMain.UpdateInterface;
+var
+  NewCaption: string;
+begin
+  NewCaption := Application.Title;
+  if Assigned(Core.Database) then NewCaption := NewCaption + ' - ' + Core.Database.Name;
+  FormMain.Caption := NewCaption;
 end;