mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: More compact main window title

Browse source
This commit is contained in:
Alexander Koblov 2022-06-12 13:18:07 +03:00
commit b8795bb97d
1 changed files with 20 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/fmain.pas
View file

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