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

Gtk3: cleanup.

Browse Source
This commit is contained in:
zeljan1 2025-02-23 09:53:34 +01:00
parent 2294053a4e
commit 5a868ae35b
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/gtk3/gtk3lclframe.inc
View File

@ -36,17 +36,6 @@ begin
DebugLn('Error: LCLGtkFrameGetPreferredWidth cannot get TGtk3Widget for widget parameter.');
Exit;
end;
// LCL does not like when ws calculates autosize dimensions
// writeln('====> FGPW(',dbgsName(AControl.LCLObject),'): AutoSize=', AControl.LCLObject.AutoSize,' minW=',min_width^,' natW=',nat_width^,' LCLWidth=',AControl.LCLWidth,' LCLHeight=',AControl.LCLHeight);
if AControl.LCLObject.AutoSize then
begin
//if AControl.LCLWidth > min_width^ then
// nat_width^ := AControl.LCLWidth;
//min_width^ := Max(min_width^, AControl.LCLObject.Width);
//if AControl.LCLWidth > 0 then
// nat_width^ := Max(min_width^, AControl.LCLWidth);
// exit;
end;
if AControl.LCLWidth = 0 then
begin
@ -92,15 +81,6 @@ begin
DebugLn('Error: LCLGtkFrameGetPreferredHeight cannot get TGtk3Widget for widget parameter.');
Exit;
end;
// fixme. min_height and nat_height reports complete box size, but lcl sets client size ?
// LCL does not like when ws calculates autosize dimensions.
// writeln('====> FGPH(',dbgsName(AControl.LCLObject),'): AutoSize=', AControl.LCLObject.AutoSize,' minH=',min_height^,' natH=',nat_height^,' LCLWidth=',AControl.LCLWidth,' Height=',AControl.LCLHeight);
if AControl.LCLObject.AutoSize then
begin
// if AControl.LCLHeight > nat_height^ then
// nat_height^ := AControl.LCLHeight;
// exit;
end;
if AControl.LCLHeight = 0 then
begin