paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 05:39:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Designer: cleanup a debug message.

Browse Source 
git-svn-id: trunk@47176 -
This commit is contained in:
juha 2014-12-12 00:49:04 +00:00
parent 9207616447
commit a949da703b
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
designer/designer.pp
View File

@ -2944,9 +2944,7 @@ begin
LM_ACTIVATE: begin LM_ACTIVATE: begin
{$IFDEF VerboseComponentPalette} {$IFDEF VerboseComponentPalette}
DebugLn(['TDesigner.IsDesignMsg: Got LM_ACTIVATE message.', DebugLn(['TDesigner.IsDesignMsg: Got LM_ACTIVATE message.',
' Message.Active=',TLMActivate(TheMessage).Active, ' Message.Active=',TLMActivate(TheMessage).Active]);
', calling DoFormActivated(',TLMActivate(TheMessage).Active=WA_ACTIVE,')'
]);
{$ENDIF} {$ENDIF}
Act:=TLMActivate(TheMessage).Active; Act:=TLMActivate(TheMessage).Active;
Result:=DoFormActivated(Act in [WA_ACTIVE, WA_CLICKACTIVE]); Result:=DoFormActivated(Act in [WA_ACTIVE, WA_CLICKACTIVE]);