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

IDE: Watches, hide array-navigations scrolled out by expanding a node above / adjust Clientrect - wrong right site.

Browse Source
This commit is contained in:
Martin 2022-06-13 15:41:18 +02:00
parent 68b7b9fad9
commit ee5cc5f780
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/packages/idedebugger/debuggertreeview.pas
View File

@ -20,6 +20,7 @@ type
TDbgTreeView = class(TLazVirtualStringTree)
private
FLastVisibleBeforeExpanding: PVirtualNode;
function GetNodeControl(Node: PVirtualNode): TControl;
function GetNodeItem(Node: PVirtualNode): TObject;
function GetNodeText(Node: PVirtualNode; AColumn: integer): String;
@ -28,6 +29,8 @@ type
procedure SetNodeText(Node: PVirtualNode; AColumn: integer; AValue: String);
protected
function DoCollapsing(Node: PVirtualNode): Boolean; override;
function DoExpanding(Node: PVirtualNode): Boolean; override;
procedure DoExpanded(Node: PVirtualNode); override;
procedure ValidateNodeDataSize(var Size: Integer); override;
procedure DoFreeNode(Node: PVirtualNode); override;
function DetermineLineImageAndSelectLevel(Node: PVirtualNode;
@ -154,6 +157,30 @@ begin
Result := inherited DoCollapsing(Node);
end;
function TDbgTreeView.DoExpanding(Node: PVirtualNode): Boolean;
begin
FLastVisibleBeforeExpanding := GetLastVisibleNoInit(Node);
Result := inherited DoExpanding(Node);
end;
procedure TDbgTreeView.DoExpanded(Node: PVirtualNode);
var
N: PVirtualNode;
NData: PDbgTreeNodeData;
begin
N := GetLastVisibleNoInit(Node);
while (N <> nil) do begin
NData := GetNodeData(N);
if NData^.Control <> nil then
NData^.Control.Visible := False;
if N = FLastVisibleBeforeExpanding then
break;
N := GetNextNoInit(N);
end;
inherited DoExpanded(Node);
end;
procedure TDbgTreeView.ValidateNodeDataSize(var Size: Integer);
begin
Size := SizeOf(TDbgTreeNodeData);
@ -161,7 +188,7 @@ end;
procedure TDbgTreeView.DoFreeNode(Node: PVirtualNode);
begin
PDbgTreeNodeData(GetNodeData(Node))^.Control.Free;
FreeAndNil(PDbgTreeNodeData(GetNodeData(Node))^.Control);
PDbgTreeNodeData(GetNodeData(Node))^ := Default(TDbgTreeNodeData);
inherited DoFreeNode(Node);
end;
@ -206,7 +233,7 @@ begin
if NData^.Control <> nil then begin
if PaintInfo.Column = 0 then begin
r := GetDisplayRect(PaintInfo.Node, 0, True, False);
r.Right := ClientWidth - r.Left - 1;
r.Right := ClientWidth - 1;
NData^.Control.BoundsRect := r;
NData^.Control.Visible := True;
if (r.Top < (r.Bottom - r.Height) * 2 + 5) or