paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: change TaskBar caption together with MainBar title bar caption (for widgetsets which supports Application.Title)

Browse Source 
git-svn-id: trunk@23189 -
This commit is contained in:
paul 2009-12-18 17:18:19 +00:00
parent c632b48e5e
commit 5e5b4cb3b2
1 changed files with 28 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
ide/main.pp
View File

@ -11497,36 +11497,43 @@ begin
end;
procedure TMainIDE.UpdateCaption;
var NewCaption: string;
ProjectName: String;
var
NewCaption, NewTitle, ProjectName: String;
begin
if MainIDEBar=nil then exit;
if ToolStatus = itExiting then exit;
if MainIDEBar = nil then Exit;
if ToolStatus = itExiting then Exit;
NewCaption := Format(lisLazarusEditorV, [GetLazarusVersionString]);
if MainBarSubTitle<>'' then begin
NewCaption:=NewCaption+' - '+MainBarSubTitle;
end else begin
if Project1<>nil then begin
ProjectName:='';
if Project1.Title<>'' then
ProjectName:=Project1.Title
else if Project1.ProjectInfoFile<>'' then
ProjectName:=ExtractFileName(Project1.ProjectInfoFile);
if ProjectName<>'' then
NewTitle := NewCaption;
if MainBarSubTitle <> '' then
NewCaption := NewCaption + ' - ' + MainBarSubTitle
else
begin
if Project1 <> nil then
begin
ProjectName := '';
if Project1.Title <> '' then
ProjectName := Project1.Title
else
if Project1.ProjectInfoFile <> '' then
ProjectName := ExtractFileName(Project1.ProjectInfoFile);
if ProjectName <> '' then
begin
if EnvironmentOptions.IDETitleStartsWithProject then
NewCaption:=ProjectName+' - '+NewCaption
NewCaption := ProjectName + ' - ' + NewCaption
else
NewCaption:=NewCaption+' - '+ProjectName;
end else
NewCaption:=Format(lisnewProject, [NewCaption]);
NewCaption := NewCaption + ' - ' + ProjectName;
end
else
NewCaption := Format(lisnewProject, [NewCaption]);
NewTitle := NewCaption;
end;
end;
case ToolStatus of
itBuilder: NewCaption:=Format(liscompiling, [NewCaption]);
itDebugger: NewCaption:=Format(lisdebugging, [NewCaption]);
itBuilder: NewCaption := Format(liscompiling, [NewCaption]);
itDebugger: NewCaption := Format(lisdebugging, [NewCaption]);
end;
MainIDEBar.Caption:=NewCaption;
MainIDEBar.Caption := NewCaption;
Application.Title := NewTitle;
end;
procedure TMainIDE.HideIDE;