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

codetools: fixed debugging code, bug #23827

Browse Source 
git-svn-id: trunk@40183 -
This commit is contained in:
mattias 2013-02-04 22:26:36 +00:00
parent 92e5f14166
commit bd361cb359
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/identcompletiontool.pas
View File

@ -1784,11 +1784,15 @@ begin
if CursorPos.Y<=CursorPos.Code.LineCount then
debugln([' Line=',dbgstr(CursorPos.Code.GetLine(CursorPos.Y-1),1,CursorPos.X-1),'|',dbgstr(CursorPos.Code.GetLine(CursorPos.Y-1),CursorPos.X,100)]);
CursorNode:=Tree.Root;
while CursorNode.NextBrother<>nil do
CursorNode:=CursorNode.NextBrother;
while CursorNode<>nil do begin
debugln([' Node=',CursorNode.DescAsString,',Start=',CursorNode.StartPos,',End=',CursorNode.EndPos,',Src="...',dbgstr(RightStr(ExtractNode(CursorNode,[]),100)),'"']);
CursorNode:=CursorNode.LastChild;
if CursorNode=nil then begin
debugln([' no nodes']);
end else begin
while CursorNode.NextBrother<>nil do
CursorNode:=CursorNode.NextBrother;
while CursorNode<>nil do begin
debugln([' Node=',CursorNode.DescAsString,',Start=',CursorNode.StartPos,',End=',CursorNode.EndPos,',Src="...',dbgstr(RightStr(ExtractNode(CursorNode,[]),100)),'"']);
CursorNode:=CursorNode.LastChild;
end;
end;
end;

6
ideintf/componentreg.pas
View File

@ -231,7 +231,7 @@ type
var
IDEComponentPalette: TBaseComponentPalette;
IDEComponentPalette: TBaseComponentPalette = nil;
function ComponentPriority(Category: TComponentPriorityCategory; Level: integer): TComponentPriority;
function ComparePriority(const p1,p2: TComponentPriority): integer;
@ -826,9 +826,5 @@ begin
RemoveHandler(cphtUpdateVisible,TMethod(OnUpdateCompVisibleEvent));
end;
initialization
IDEComponentPalette:=nil;
end.