From f845ed183625b47c44d2905ce90f883be257bd37 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:57:10 +0000
Subject: [PATCH] implemented changing caption during compilation/debugging

git-svn-id: trunk@3031 -
---
 ide/main.pp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index d63bcfeafc..8beca95a0a 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -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