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

gtk3: fixed gtk3 assertion in form SetBounds()

Browse Source 
git-svn-id: trunk@55072 -
This commit is contained in:
zeljko 2017-05-24 18:13:10 +00:00
parent 94be804f66
commit b3cebb8792
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk3/gtk3wsforms.pp
View File

@ -199,6 +199,7 @@ var
AHints: TGdkWindowHints;
AFixedWidthHeight: Boolean;
AForm: TCustomForm;
AMinSize, ANaturalSize: gint;
begin
if not WSCheckHandleAllocated(AWinControl, 'SetBounds') then
Exit;
@ -213,6 +214,10 @@ begin
ARect.width := AWidth;
ARect.Height := AHeight;
try
{fixes gtk3 assertion}
PGtkWindow(AWidget)^.get_preferred_width(@AMinSize, @ANaturalSize);
PGtkWindow(AWidget)^.get_preferred_height(@AMinSize, @ANaturalSize);
AWidget^.size_allocate(@ARect);
if not (csDesigning in AForm.ComponentState) and (AForm.Parent = nil) and (AForm.ParentWindow = 0) then
begin