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

Gtk3: TGtk3GroupBox does not need overriden SetBounds().

Browse Source
This commit is contained in:
zeljan1 2025-02-22 23:49:10 +01:00
parent 25900905ef
commit 27bd792656
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -708,7 +708,6 @@ type
function getText: String; override;
procedure setText(const AValue: String); override;
public
procedure SetBounds(ALeft,ATop,AWidth,AHeight:integer); override;
function getClientRect:TRect; override;
property GroupBoxType: TGtk3GroupBoxType read FGroupBoxType write FGroupBoxType;
end;
@ -3603,23 +3602,6 @@ begin
end;
end;
procedure TGtk3GroupBox.SetBounds(ALeft,ATop,AWidth,AHeight:integer);
var
Alloc:TGtkAllocation;
begin
{$IF DEFINED(GTK3DEBUGSIZE) OR DEFINED(GTK3DEBUGGROUPBOX)}
writeln(Format('TGtk3GroupBox.setBounds l %d t %d w %d h %d',[ALeft, ATop, AWidth, AHeight]));
{$ENDIF}
LCLWidth := AWidth;
LCLHeight := AHeight;
Alloc.x := ALeft;
Alloc.y := ATop;
Alloc.width := AWidth;
Alloc.Height := AHeight;
Widget^.set_allocation(@Alloc);
Move(ALeft, ATop);
end;
{$IF DEFINED(GTK3DEBUGSIZE) OR DEFINED(GTK3DEBUGGROUPBOX)}
procedure ContainerChildrenCallback(widget: PGtkWidget; data: gpointer); cdecl;
begin