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

LCL-GTK3: Improve resizing of TGtk3Window. Makes TSplitter work. Issue #36256, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@62694 -
This commit is contained in:
juha 2020-03-05 11:28:33 +00:00
parent d1b15edcfe
commit b4312b6446
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1457,8 +1457,16 @@ begin
Msg.SizeType := SIZE_RESTORED; Msg.SizeType := SIZE_RESTORED;
Msg.SizeType := Msg.SizeType or Size_SourceIsInterface; Msg.SizeType := Msg.SizeType or Size_SourceIsInterface;
Msg.Width := Word(NewSize.cx);
Msg.Height := Word(NewSize.cy); if ACtl is TGtk3Window then
begin
Msg.Width := Word(NewSize.cx);
Msg.Height := Word(NewSize.cy);
end else
begin
Msg.Width := ACtl.LCLObject.Width;//Word(NewSize.cx);
Msg.Height := ACtl.LCLObject.Height;//Word(NewSize.cy);
end;
ACtl.DeliverMessage(Msg); ACtl.DeliverMessage(Msg);
if (wtWindow in ACtl.WidgetType) and if (wtWindow in ACtl.WidgetType) and