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

Designer: fix the palette update problem with DataModule on Windows. Message.Active can be WA_CLICKACTIVE, too.

Browse Source 
git-svn-id: trunk@47142 -
This commit is contained in:
juha 2014-12-08 21:30:26 +00:00
parent 4990c79e9f
commit a3490826ea
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
designer/designer.pp
View File

@ -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);