paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:19:23 +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 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)]); 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; CursorNode:=Tree.Root;
while CursorNode.NextBrother<>nil do if CursorNode=nil then begin
CursorNode:=CursorNode.NextBrother; debugln([' no nodes']);
while CursorNode<>nil do begin end else begin
debugln([' Node=',CursorNode.DescAsString,',Start=',CursorNode.StartPos,',End=',CursorNode.EndPos,',Src="...',dbgstr(RightStr(ExtractNode(CursorNode,[]),100)),'"']); while CursorNode.NextBrother<>nil do
CursorNode:=CursorNode.LastChild; 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;
end; end;

6
ideintf/componentreg.pas
View File

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