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

codetools: fixed endless loop TPascalReaderTool.FindClassNode

Browse Source 
git-svn-id: trunk@11989 -
This commit is contained in:
mattias 2007-09-10 18:36:09 +00:00
parent 9f7f8da245
commit ed527a677a
3 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/pascalreadertool.pas
View File

@ -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;

8
ide/msgview.lfm
View File

@ -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

24
ide/msgview.lrs
View File

@ -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
]);