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

lcl: debug

Browse Source 
git-svn-id: trunk@57496 -
This commit is contained in:
mattias 2018-03-10 16:32:56 +00:00
parent 6bcc3e2dc4
commit 810effaf54
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lclmessageglue.pas
View File

@ -95,7 +95,7 @@ begin
and (TLMessage(AMessage).Msg <>LM_PAINT) and (TLMessage(AMessage).Msg <>LM_PAINT)
and (TLMessage(AMessage).Msg <>LM_KEYDOWN) and (TLMessage(AMessage).Msg <>LM_KEYDOWN)
and (TLMessage(AMessage).Msg <>LM_KEYUP) and (TLMessage(AMessage).Msg <>LM_KEYUP)
and (TLMessage(AMessage).Msg < CN_KEYDOWN ) then and (TLMessage(AMessage).Msg <> CN_KEYDOWN ) then
DebugLn('DeliverMessage ',DbgS(Target), DebugLn('DeliverMessage ',DbgS(Target),
' ',TComponent(Target).Name,':',TObject(Target).ClassName, ' ',TComponent(Target).Name,':',TObject(Target).ClassName,
' Message=',GetMessageName(TLMessage(AMessage).Msg)); ' Message=',GetMessageName(TLMessage(AMessage).Msg));