Changeset 9 for trunk/Forms/UFormMain.pas

Timestamp:

May 18, 2015, 11:49:39 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple Bazaar backend.\n* Added: Support for backends dynamic registration.\n* Added: Backend selection in checkout form.

File:

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

trunk/Forms/UFormMain.pas

@@ -85 +85 @@
 const
   AppName = 'VCSCommander';
+var
+  NewCaption: string;
 begin
+  NewCaption := '';
   if Assigned(Core.Project) then
-    Caption := Core.Project.Directory + ' - ' + AppName
-    else Caption := AppName;
+    NewCaption := Core.Project.Directory + ' (' + Core.Project.Backend.Name + ') - ';
+  NewCaption := NewCaption + AppName;
+  Caption := NewCaption;
 end;