UPD: More compact main window title

src/fmain.pas

@@ -927,7 +927,7 @@ uses
   uFileSourceOperationOptionsUI, uDebug, uHotkeyManager, uFileSourceUtil, uTempFileSystemFileSource,
   Laz2_XMLRead, DCOSUtils, DCStrUtils, fOptions, fOptionsFrame, fOptionsToolbar, uClassesEx,
   uHotDir, uFileSorting, DCBasicTypes, foptionsDirectoryHotlist, uConnectionManager,
-  fOptionsToolbarBase, fOptionsToolbarMiddle, fEditor, uColumns
+  fOptionsToolbarBase, fOptionsToolbarMiddle, fEditor, uColumns, StrUtils
   {$IFDEF COLUMNSFILEVIEW_VTV}
   , uColumnsFileViewVtv
   {$ELSE}
@@ -1049,20 +1049,29 @@ procedure TfrmMain.FormCreate(Sender: TObject);
     Result.OnDragOver:= @NotebookDragOver;
     Result.OnDragDrop:= @NotebookDragDrop;
   end;
-  function GenerateTitle():String;
-  var 
-    ServernameString: String;
+
+  function GenerateTitle(): String;
+  var
+    R: Integer;
+    ARevision, AServerName: String;
   begin
-    ServernameString := '';
     if Length(UniqueInstance.ServernameByUser) > 0 then
-      ServernameString := ' [' + UniqueInstance.ServernameByUser + ']';
+      AServerName := ' [' + UniqueInstance.ServernameByUser + ']'
+    else begin
+      AServerName := String.Empty;
+    end;
+
+    if TryStrToInt(dcRevision, R) then
+      ARevision:= '.' + dcRevision
+    else begin
+      ARevision:= String.Empty;
+    end;
 
-    Result := Format('%s%s %s build %s; %s',
+    Result := Format('%s%s %s%s',
         ['Double Commander',
-        ServernameString,
-        dcVersion,
-        dcRevision,
-        dcBuildDate]
+        AServerName,
+        Copy2Space(dcVersion),
+        ARevision]
     );
   end;