From ed527a677a4fa1801b4c5913ba997cf9e44c7502 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 10 Sep 2007 18:36:09 +0000
Subject: [PATCH] codetools: fixed endless loop TPascalReaderTool.FindClassNode

git-svn-id: trunk@11989 -
---
 components/codetools/pascalreadertool.pas |  3 ++-
 ide/msgview.lfm                           |  8 +++++---
 ide/msgview.lrs                           | 24 +++++++++++------------
 3 files changed, 19 insertions(+), 16 deletions(-)

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 6c5f840f55..f9b2ae3c49 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -1126,9 +1126,10 @@ begin
         ANode:=ANode.Parent;
         if (ANode=nil) then exit;
         if (not (ANode.Desc in [ctnTypeSection]+AllCodeSections)) then exit;
-        if ANode.NextBrother<>nil then
+        if ANode.NextBrother<>nil then begin
           ANode:=ANode.NextBrother;
           break;
+        end;
       until false;
     end;
   end;
diff --git a/ide/msgview.lfm b/ide/msgview.lfm
index 78046fb9ab..bbcb7193fa 100644
--- a/ide/msgview.lfm
+++ b/ide/msgview.lfm
@@ -1,13 +1,15 @@
 inherited MessagesView: TMessagesView
-  Left = 262
+  Left = 259
   Height = 79
-  Top = 518
+  Top = 502
   Width = 722
   HorzScrollBar.Page = 721
   VertScrollBar.Page = 78
   ActiveControl = MessageTreeView
   BorderStyle = bsSizeToolWin
   Caption = 'MessagesView'
+  ClientHeight = 79
+  ClientWidth = 722
   KeyPreview = True
   OnDeactivate = FormDeactivate
   OnKeyDown = MessagesViewKeyDown
@@ -15,7 +17,7 @@ inherited MessagesView: TMessagesView
     Height = 79
     Width = 722
     Align = alClient
-    DefaultItemHeight = 14
+    DefaultItemHeight = 19
     PopupMenu = MainPopupMenu
     TabOrder = 0
     OnExit = MessageViewExit
diff --git a/ide/msgview.lrs b/ide/msgview.lrs
index 21cb1b282b..b5c6b832b1 100644
--- a/ide/msgview.lrs
+++ b/ide/msgview.lrs
@@ -1,16 +1,16 @@
 { This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('TMessagesView','FORMDATA',[
-  'TPF0'#241#13'TMessagesView'#12'MessagesView'#4'Left'#3#6#1#6'Height'#2'O'#3
-  +'Top'#3#6#2#5'Width'#3#210#2#18'HorzScrollBar.Page'#3#209#2#18'VertScrollBar'
-  +'.Page'#2'N'#13'ActiveControl'#7#15'MessageTreeView'#11'BorderStyle'#7#13'bs'
-  +'SizeToolWin'#7'Caption'#6#12'MessagesView'#10'KeyPreview'#9#12'OnDeactivate'
-  +#7#14'FormDeactivate'#9'OnKeyDown'#7#19'MessagesViewKeyDown'#0#9'TTreeView'
-  +#15'MessageTreeView'#6'Height'#2'O'#5'Width'#3#210#2#5'Align'#7#8'alClient'
-  +#17'DefaultItemHeight'#2#14#9'PopupMenu'#7#13'MainPopupMenu'#8'TabOrder'#2#0
-  +#6'OnExit'#7#15'MessageViewExit'#7'Options'#11#19'tvoAllowMultiselect'#17'tv'
-  +'oAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#14'tvoShowB'
-  +'uttons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#10'TPopupMen'
-  +'u'#13'MainPopupMenu'#7'OnPopup'#7#18'MainPopupMenuPopup'#4'left'#2'.'#3'top'
-  +#2')'#0#0#0
+  'TPF0'#241#13'TMessagesView'#12'MessagesView'#4'Left'#3#3#1#6'Height'#2'O'#3
+  +'Top'#3#246#1#5'Width'#3#210#2#18'HorzScrollBar.Page'#3#209#2#18'VertScrollB'
+  +'ar.Page'#2'N'#13'ActiveControl'#7#15'MessageTreeView'#11'BorderStyle'#7#13
+  +'bsSizeToolWin'#7'Caption'#6#12'MessagesView'#12'ClientHeight'#2'O'#11'Clien'
+  +'tWidth'#3#210#2#10'KeyPreview'#9#12'OnDeactivate'#7#14'FormDeactivate'#9'On'
+  +'KeyDown'#7#19'MessagesViewKeyDown'#0#9'TTreeView'#15'MessageTreeView'#6'Hei'
+  +'ght'#2'O'#5'Width'#3#210#2#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#19
+  +#9'PopupMenu'#7#13'MainPopupMenu'#8'TabOrder'#2#0#6'OnExit'#7#15'MessageView'
+  +'Exit'#7'Options'#11#19'tvoAllowMultiselect'#17'tvoAutoItemHeight'#16'tvoHid'
+  +'eSelection'#21'tvoKeepCollapsedNodes'#14'tvoShowButtons'#12'tvoShowLines'#11
+  +'tvoShowRoot'#11'tvoToolTips'#0#0#0#10'TPopupMenu'#13'MainPopupMenu'#7'OnPop'
+  +'up'#7#18'MainPopupMenuPopup'#4'left'#2'.'#3'top'#2')'#0#0#0
 ]);