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

LCL-GTK: Fix the order of parameters for FillChar(). Issue #40403.

Browse Source
This commit is contained in:
Juha 2023-07-25 11:38:13 +03:00
parent cbf9d30ddf
commit 92b11e2662
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwsforms.pp
View File

@ -255,7 +255,7 @@ var
AForm: TCustomForm;
begin
Result := True;
FillChar(Message, 0, SizeOf(Message));
FillChar(Message, SizeOf(Message), 0);
AForm := TCustomForm(WidgetInfo^.LCLObject);
Message.Width := AForm.Width;
Message.Height := AForm.Height;
@ -300,7 +300,7 @@ begin
if not GDK_WINDOW_GET_MINIMIZED(PGdkWindowPrivate(Widget^.Window)) then Exit;
Result := True;
FillChar(Message, 0, SizeOf(Message));
FillChar(Message, SizeOf(Message), 0);
AForm := TCustomForm(WidgetInfo^.LCLObject);
Message.Msg := LM_SIZE;
Message.SizeType := SIZEICONIC or Size_SourceIsInterface;