From 0b8c73b16e42699aa649442f588cce6b3fe4c848 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 2 May 2010 06:16:38 +0000
Subject: [PATCH] win32: allow interception of LM_SYSCOMMAND (issue #0013442)

git-svn-id: trunk@25123 -
---
 lcl/interfaces/win32/win32callback.inc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/win32/win32callback.inc b/lcl/interfaces/win32/win32callback.inc
index bb4a1a8a38..9901845c57 100644
--- a/lcl/interfaces/win32/win32callback.inc
+++ b/lcl/interfaces/win32/win32callback.inc
@@ -2064,6 +2064,9 @@ begin
     WM_SYSCOMMAND:
     begin
       HandleSysCommand;
+      LMessage.Msg := Msg;
+      LMessage.WParam := WParam;
+      LMessage.LParam := LParam;
     end;
     WM_SYSKEYDOWN:
     begin