mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-18 01:39:25 +02:00
parent
92e5f14166
commit
bd361cb359
@ -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;
|
||||||
|
|
||||||
|
@ -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.
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user