From a3490826ea6830a15346fd2eb88d019e5845d350 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Mon, 8 Dec 2014 21:30:26 +0000
Subject: [PATCH] Designer: fix the palette update problem with DataModule on
 Windows. Message.Active can be WA_CLICKACTIVE, too.

git-svn-id: trunk@47142 -
---
 designer/designer.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/designer/designer.pp b/designer/designer.pp
index 58af4a7f0a..1b4dae10b1 100644
--- a/designer/designer.pp
+++ b/designer/designer.pp
@@ -2921,6 +2921,8 @@ begin
 end;
 
 function TDesigner.IsDesignMsg(Sender: TControl; var TheMessage: TLMessage): Boolean;
+var
+  Act: Word;
 begin
   Result := false;
   if csDesigning in Sender.ComponentState then begin
@@ -2946,7 +2948,8 @@ begin
                    ', calling DoFormActivated(',TLMActivate(TheMessage).Active=WA_ACTIVE,')'
                   ]);
           {$ENDIF}
-          Result:=DoFormActivated(TLMActivate(TheMessage).Active=WA_ACTIVE);
+          Act:=TLMActivate(TheMessage).Active;
+          Result:=DoFormActivated(Act in [WA_ACTIVE, WA_CLICKACTIVE]);
         end;
         LM_CLOSEQUERY:  Result:=DoFormCloseQuery;
         LM_SETCURSOR:   Result:=HandleSetCursor(TheMessage);