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

LCL: Assign parameters in LCLSendShowWindowMsg. Issue #40212, patch by Alexey Torgashin.

Browse Source
This commit is contained in:
Juha 2023-04-16 17:40:01 +03:00
parent 74cd012d9c
commit cacdbc65f4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lclmessageglue.pas
View File

@ -226,7 +226,8 @@ var
begin begin
FillChar(Mess,SizeOf(Mess),0); FillChar(Mess,SizeOf(Mess),0);
Mess.Msg := LM_SHOWWINDOW; Mess.Msg := LM_SHOWWINDOW;
Mess.Show := True; Mess.Show := Show;
Mess.Status := Status;
Result := DeliverMessage(Target, Mess); Result := DeliverMessage(Target, Mess);
end; end;