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

IdeDebugger: fix icons for array nav bar in inspect window

Browse Source
This commit is contained in:
Martin 2024-08-30 21:11:24 +02:00
parent ceda32ed83
commit f32417d0d1
1 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
ide/packages/idedebugger/arraynavigationframe.pas
View File

@ -74,6 +74,7 @@ type
procedure VisibleChanged; override;
procedure CreateWnd; override;
procedure SetParent(AParent: TWinControl); override;
procedure Init;
public
constructor Create(TheOwner: TComponent); override;
constructor Create(TheOwner: TComponent; ATree: TDbgTreeView; ANode: PVirtualNode); reintroduce;
@ -595,22 +596,8 @@ begin
end;
end;
constructor TArrayNavigationBar.Create(TheOwner: TComponent);
procedure TArrayNavigationBar.Init;
begin
inherited Create(TheOwner);
btnHide.Visible := False;
cbAutoHide.Visible := False;
end;
constructor TArrayNavigationBar.Create(TheOwner: TComponent; ATree: TDbgTreeView;
ANode: PVirtualNode);
begin
FTree := ATree;
FNode := ANode;
inherited Create(TheOwner);
Name := '';
Constraints.MinWidth := cbEnforceBound.Left + btnHide.Width + btnHide.Width;
edArrayStart.Hint := dlgInspectIndexOfFirstItemToShow;
edArrayPageSize.Hint := dlgInspectAmountOfItemsToShow;
@ -642,6 +629,26 @@ begin
cbEnforceBound.Caption := arrnavEnforceBounds;
cbAutoHide.Caption := arrnavAutoHide;
end;
constructor TArrayNavigationBar.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
btnHide.Visible := False;
cbAutoHide.Visible := False;
Init;
end;
constructor TArrayNavigationBar.Create(TheOwner: TComponent; ATree: TDbgTreeView;
ANode: PVirtualNode);
begin
FTree := ATree;
FNode := ANode;
inherited Create(TheOwner);
Name := '';
Constraints.MinWidth := cbEnforceBound.Left + btnHide.Width + btnHide.Width;
Init;
FNavBarVisible := True;
btnHide.Images := IDEImages.Images_16;