paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 23:09:16 +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; ANode:=ANode.Parent;
if (ANode=nil) then exit; if (ANode=nil) then exit;
if (not (ANode.Desc in [ctnTypeSection]+AllCodeSections)) 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; ANode:=ANode.NextBrother;
break; break;
end;
until false; until false;
end; end;
end; end;

8
ide/msgview.lfm
View File

@ -1,13 +1,15 @@
inherited MessagesView: TMessagesView inherited MessagesView: TMessagesView
Left = 262 Left = 259
Height = 79 Height = 79
Top = 518 Top = 502
Width = 722 Width = 722
HorzScrollBar.Page = 721 HorzScrollBar.Page = 721
VertScrollBar.Page = 78 VertScrollBar.Page = 78
ActiveControl = MessageTreeView ActiveControl = MessageTreeView
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'MessagesView' Caption = 'MessagesView'
ClientHeight = 79
ClientWidth = 722
KeyPreview = True KeyPreview = True
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
OnKeyDown = MessagesViewKeyDown OnKeyDown = MessagesViewKeyDown
@ -15,7 +17,7 @@ inherited MessagesView: TMessagesView
Height = 79 Height = 79
Width = 722 Width = 722
Align = alClient Align = alClient
DefaultItemHeight = 14 DefaultItemHeight = 19
PopupMenu = MainPopupMenu PopupMenu = MainPopupMenu
TabOrder = 0 TabOrder = 0
OnExit = MessageViewExit OnExit = MessageViewExit

24
ide/msgview.lrs
View File

@ -1,16 +1,16 @@
{ This is an automatically generated lazarus resource file } { This is an automatically generated lazarus resource file }
LazarusResources.Add('TMessagesView','FORMDATA',[ LazarusResources.Add('TMessagesView','FORMDATA',[
'TPF0'#241#13'TMessagesView'#12'MessagesView'#4'Left'#3#6#1#6'Height'#2'O'#3 'TPF0'#241#13'TMessagesView'#12'MessagesView'#4'Left'#3#3#1#6'Height'#2'O'#3
+'Top'#3#6#2#5'Width'#3#210#2#18'HorzScrollBar.Page'#3#209#2#18'VertScrollBar' +'Top'#3#246#1#5'Width'#3#210#2#18'HorzScrollBar.Page'#3#209#2#18'VertScrollB'
+'.Page'#2'N'#13'ActiveControl'#7#15'MessageTreeView'#11'BorderStyle'#7#13'bs' +'ar.Page'#2'N'#13'ActiveControl'#7#15'MessageTreeView'#11'BorderStyle'#7#13
+'SizeToolWin'#7'Caption'#6#12'MessagesView'#10'KeyPreview'#9#12'OnDeactivate' +'bsSizeToolWin'#7'Caption'#6#12'MessagesView'#12'ClientHeight'#2'O'#11'Clien'
+#7#14'FormDeactivate'#9'OnKeyDown'#7#19'MessagesViewKeyDown'#0#9'TTreeView' +'tWidth'#3#210#2#10'KeyPreview'#9#12'OnDeactivate'#7#14'FormDeactivate'#9'On'
+#15'MessageTreeView'#6'Height'#2'O'#5'Width'#3#210#2#5'Align'#7#8'alClient' +'KeyDown'#7#19'MessagesViewKeyDown'#0#9'TTreeView'#15'MessageTreeView'#6'Hei'
+#17'DefaultItemHeight'#2#14#9'PopupMenu'#7#13'MainPopupMenu'#8'TabOrder'#2#0 +'ght'#2'O'#5'Width'#3#210#2#5'Align'#7#8'alClient'#17'DefaultItemHeight'#2#19
+#6'OnExit'#7#15'MessageViewExit'#7'Options'#11#19'tvoAllowMultiselect'#17'tv' +#9'PopupMenu'#7#13'MainPopupMenu'#8'TabOrder'#2#0#6'OnExit'#7#15'MessageView'
+'oAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'#14'tvoShowB' +'Exit'#7'Options'#11#19'tvoAllowMultiselect'#17'tvoAutoItemHeight'#16'tvoHid'
+'uttons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoToolTips'#0#0#0#10'TPopupMen' +'eSelection'#21'tvoKeepCollapsedNodes'#14'tvoShowButtons'#12'tvoShowLines'#11
+'u'#13'MainPopupMenu'#7'OnPopup'#7#18'MainPopupMenuPopup'#4'left'#2'.'#3'top' +'tvoShowRoot'#11'tvoToolTips'#0#0#0#10'TPopupMenu'#13'MainPopupMenu'#7'OnPop'
+#2')'#0#0#0 +'up'#7#18'MainPopupMenuPopup'#4'left'#2'.'#3'top'#2')'#0#0#0
]); ]);