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

implemented changing caption during compilation/debugging

Browse Source 
git-svn-id: trunk@3031 -
This commit is contained in:
mattias 2002-08-18 08:57:10 +00:00
parent 183944e1f8
commit f845ed1836
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -550,7 +550,7 @@ type
var ActiveSourceEditor:TSourceEditor; var ActiveUnitInfo:TUnitInfo);
function GetFormOfSource(AnUnitInfo: TUnitInfo;
LoadForm: boolean): TCustomForm;
procedure UpdateCaption;
procedure UpdateCaption; override;
function DoConvertDFMFileToLFMFile(const DFMFilename: string): TModalResult;
// methods for codetools
@ -6259,7 +6259,7 @@ begin
end;
procedure TMainIDE.UpdateCaption;
var NewCaption:string;
var NewCaption: string;
begin
NewCaption := Format(lisLazarusEditorV, [lisLazarusVersionString]);
if Project1<>nil then begin
@ -6270,6 +6270,10 @@ begin
else
NewCaption:=Format(lisnewProject, [NewCaption])
end;
case ToolStatus of
itBuilder: NewCaption:=NewCaption+' (compiliing ...)';
itDebugger: NewCaption:=NewCaption+' (debugging ...)';
end;
Caption:=NewCaption;
end;
@ -8706,6 +8710,9 @@ end.
{ =============================================================================
$Log$
Revision 1.575 2003/05/23 16:58:18 mattias
implemented changing caption during compilation/debugging
Revision 1.574 2003/05/23 14:12:50 mattias
implemented restoring breakpoints