From 27bd792656a699134c25d610b667983d8aa2a3fe Mon Sep 17 00:00:00 2001 From: zeljan1 Date: Sat, 22 Feb 2025 23:49:10 +0100 Subject: [PATCH] Gtk3: TGtk3GroupBox does not need overriden SetBounds(). --- lcl/interfaces/gtk3/gtk3widgets.pas | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas index 26a266efb1..76546a96c7 100644 --- a/lcl/interfaces/gtk3/gtk3widgets.pas +++ b/lcl/interfaces/gtk3/gtk3widgets.pas @@ -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