Changeset 20 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 23, 2018, 1:59:25 PM (6 years ago)

Author:

chronos

Message:

• Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
• Modified: TDbManager is top most class for managing other database classes.
• Modified: TDbConnectParams class contains client specific parameters for connect profile.

File:

• trunk/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -77 +77 @@
 begin
   NewCaption := Application.Title;
-  if Assigned(Core.Database) then NewCaption := Core.Database.Name + ' - ' + NewCaption;
+  if Assigned(Core.DbClient) then
+    NewCaption := Core.DbClient.ConnectProfile.Name + ' - ' + NewCaption;
   FormMain.Caption := NewCaption;
 end;