paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-06 23:06:02 +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

5
lcl/lclmessageglue.pas
View File

@ -222,11 +222,12 @@ end;
function LCLSendShowWindowMsg(const Target: TControl; Show: Boolean; function LCLSendShowWindowMsg(const Target: TControl; Show: Boolean;
Status: LPARAM = 0): PtrInt; Status: LPARAM = 0): PtrInt;
var var
Mess : TLMShowWindow; Mess : TLMShowWindow;
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;