added message window to persistent IDE windows

git-svn-id: trunk@7246 -

ide/helpmanager.pas

@@ -679,7 +679,6 @@ procedure THelpManager.ShowHelpForMessage(Line: integer);
   end;
 
 var
-  Msg: String;
   MessageParts: TStringList;
   MsgItem: TMessageLine;
 begin

ide/ideoptiondefs.pas

@@ -100,7 +100,6 @@ const
     nmiwNone,
     nmiwMainIDEName,
     nmiwSourceNoteBookName,
-    nmiwMessagesViewName,
     nmiwDbgOutput,
     nmiwSearchResultsViewName,
     nmiwAnchorEditor

ide/main.pp

@@ -1641,6 +1641,8 @@ begin
       DoShowCodeExplorer;
     nmiwAnchorEditor:
       DoViewAnchorEditor;
+    nmiwMessagesViewName:
+      DoShowMessagesView;
     nmiwBreakPoints:
       ;//itmViewBreakPoints.OnClick(Self);
     nmiwWatches:
@@ -11714,6 +11716,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.876  2005/06/17 16:06:16  mattias
+  added message window to persistent IDE windows
+
   Revision 1.875  2005/06/17 15:57:03  mattias
   added Cut/Copy/Paste to sourceeditor popupmenu  from George Lober
 

ide/msgview.pp

@@ -50,17 +50,20 @@ type
     FDirectory: string;
     FMsg: string;
     FOriginalIndex: integer;
+    FParts: TStrings;
     FPosition: integer;
     FVisiblePosition: integer;
     procedure SetDirectory(const AValue: string);
     procedure SetMsg(const AValue: string);
   public
     constructor Create;
+    destructor Destroy; override;
     property Msg: string read FMsg write SetMsg;
     property Directory: string read FDirectory write SetDirectory;
     property Position: integer read FPosition;
     property VisiblePosition: integer read FVisiblePosition;
     property OriginalIndex: integer read FOriginalIndex;
+    property Parts: TStrings read FParts write FParts;
   end;
   
 
@@ -523,6 +526,12 @@ begin
   FVisiblePosition:=-1;
 end;
 
+destructor TMessageLine.Destroy;
+begin
+  FParts.Free;
+  inherited Destroy;
+end;
+
 initialization
   MessagesView:=nil;