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

LCL-GTK2: Do not truncate Groupbox caption (fix for previous). Issue #32621, patch from accorp.

Browse Source 
git-svn-id: trunk@59046 -
This commit is contained in:
juha 2018-09-17 19:01:54 +00:00
parent 7f272a8e4e
commit 62c05b07e0
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -6523,7 +6523,7 @@ procedure GetGTKDefaultWidgetSize(AWinControl: TWinControl;
var
Widget: PGtkWidget;
Requisition: TGtkRequisition;
FixedWidget: PGtkWidget;
FixedWidget, LblWidget: PGtkWidget;
begin
Widget := {%H-}PGtkWidget(AWinControl.Handle);
{$IFDEF VerboseCalculatePreferredSize}
@ -6547,7 +6547,6 @@ begin
{$ENDIF}
if GtkWidgetIsA(Widget,GTK_TYPE_EVENT_BOX)
and not (AWinControl is TCustomGroupBox)
and (AWinControl.ControlCount>0) then begin
// ignore client area (child controls)
FixedWidget:=PGtkWidget(GetFixedWidget(Widget));
@ -6563,6 +6562,13 @@ begin
end;
end;
// Do not truncate Groupbox caption. Issue #32621
if AWinControl is TCustomGroupBox then begin
LblWidget := gtk_frame_get_label_widget(PGtkFrame(PGtkBin(Widget)^.child));
if LblWidget <> nil then
PreferredWidth := Max(PreferredWidth, LblWidget^.allocation.x * 2 + LblWidget^.requisition.width);
end;
// restore size
gtk_widget_set_size_request(Widget, AWinControl.Width, AWinControl.Height);
{$IFDEF VerboseCalculatePreferredSize}