From cacdbc65f4b8d2d91c5255b8b136e8679daa33a8 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Sun, 16 Apr 2023 17:40:01 +0300
Subject: [PATCH] LCL: Assign parameters in LCLSendShowWindowMsg. Issue #40212,
 patch by Alexey Torgashin.

---
 lcl/lclmessageglue.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lcl/lclmessageglue.pas b/lcl/lclmessageglue.pas
index 9166746b3e..254f86f9b4 100644
--- a/lcl/lclmessageglue.pas
+++ b/lcl/lclmessageglue.pas
@@ -222,11 +222,12 @@ end;
 function LCLSendShowWindowMsg(const Target: TControl; Show: Boolean;
   Status: LPARAM = 0): PtrInt;
 var
-   Mess : TLMShowWindow;
+  Mess : TLMShowWindow;
 begin
   FillChar(Mess,SizeOf(Mess),0);
   Mess.Msg := LM_SHOWWINDOW;
-  Mess.Show := True;
+  Mess.Show := Show;
+  Mess.Status := Status;
 
   Result := DeliverMessage(Target, Mess);
 end;