Changeset 54 for trunk/Client/Forms/UFormMain.pas

Timestamp:

Oct 12, 2012, 11:43:43 AM (12 years ago)

Author:

chronos

Message:

• Added: ChronisAppServer base project.
• Modified: Changes in client virtual database layer handling.

File:

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

trunk/Client/Forms/UFormMain.pas

@@ -150 +150 @@
   if Core.System.Active then
   with Core.System.Client do
-    StatusBar1.Panels[0].Text := User + '@' + Host + ':' + IntToStr(Port) + '/' + Schema;
+    StatusBar1.Panels[0].Text := User + '@' + Host + ':' + IntToStr(Port) + '/' + Schema
+    else StatusBar1.Panels[0].Text := '';
 
   for I := 0 to ToolBar1.ButtonCount - 1 do