paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 05:00:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

GTK3: Fixed computation of default widget height bounds.

Browse Source 
Closes: #40510.
Thanks To: Anton Kavalenka.
This commit is contained in:
Abou Al Montacir 2023-11-28 22:26:31 +01:00
parent bfc786c46c
commit a0ac9a9da0
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk3/gtk3lclintf.inc
View File

@ -1097,12 +1097,10 @@ begin
// TScrollBar // TScrollBar
if TScrollBar(SizeConstraints.Control).Kind=sbHorizontal then begin if TScrollBar(SizeConstraints.Control).Kind=sbHorizontal then begin
Widget:=GetStyleWidget(lgsHorizontalScrollbar); Widget:=GetStyleWidget(lgsHorizontalScrollbar);
MinHeight:=Widget^.get_allocated_height(); widget^.get_preferred_height(@MinHeight,@MaxHeight);
MaxHeight:=MinHeight;
end else begin end else begin
Widget:=GetStyleWidget(lgsVerticalScrollbar); Widget:=GetStyleWidget(lgsVerticalScrollbar);
MinWidth:=Widget^.get_allocated_width(); widget^.get_preferred_width(@MinWidth,@MaxWidth);
MaxWidth:=MinWidth;
end; end;
//DebugLn('TGtk3WidgetSet.GetControlConstraints A '+dbgs(MinWidth)+','+dbgs(MinHeight),' ',dbgs(TScrollBar(SizeConstraints.Control).Kind=sbHorizontal),' ',TScrollBar(SizeConstraints.Control).Name); //DebugLn('TGtk3WidgetSet.GetControlConstraints A '+dbgs(MinWidth)+','+dbgs(MinHeight),' ',dbgs(TScrollBar(SizeConstraints.Control).Kind=sbHorizontal),' ',TScrollBar(SizeConstraints.Control).Name);
end else if SizeConstraints.Control is TPageControl then begin end else if SizeConstraints.Control is TPageControl then begin