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

implemented changing caption during compilation/debugging

Browse Source 
git-svn-id: trunk@4176 -
This commit is contained in:
mattias 2003-05-23 16:58:18 +00:00
parent 19d595dc9e
commit 692d003027
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/mainbar.pas
View File

@ -334,6 +334,9 @@ type
HintWindow1 : THintWindow; HintWindow1 : THintWindow;
procedure mnuWindowsItemClick(Sender: TObject); procedure mnuWindowsItemClick(Sender: TObject);
private
FToolStatus: TIDEToolStatus;
procedure SetToolStatus(const AValue: TIDEToolStatus);
protected protected
TheCompiler: TCompiler; TheCompiler: TCompiler;
TheOutputFilter: TOutputFilter; TheOutputFilter: TOutputFilter;
@ -353,10 +356,12 @@ type
procedure LoadMenuShortCuts; virtual; procedure LoadMenuShortCuts; virtual;
public public
ToolStatus: TIDEToolStatus;
CurrentParsedCompilerOption: TParsedCompilerOptions; CurrentParsedCompilerOption: TParsedCompilerOptions;
MacroList: TTransferMacroList; MacroList: TTransferMacroList;
property ToolStatus: TIDEToolStatus read FToolStatus write SetToolStatus;
procedure UpdateCaption; virtual; abstract;
procedure CreateOftenUsedForms; virtual; abstract; procedure CreateOftenUsedForms; virtual; abstract;
function FindUnitFile(const AFilename: string): string; virtual; abstract; function FindUnitFile(const AFilename: string): string; virtual; abstract;
@ -502,6 +507,13 @@ begin
end; end;
end; end;
procedure TMainIDEBar.SetToolStatus(const AValue: TIDEToolStatus);
begin
if FToolStatus=AValue then exit;
FToolStatus:=AValue;
UpdateCaption;
end;
function TMainIDEBar.CreateMenuSeparator : TMenuItem; function TMainIDEBar.CreateMenuSeparator : TMenuItem;
begin begin
Result := TMenuItem.Create(Self); Result := TMenuItem.Create(Self);