paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 10:59:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added verbosity to delivermessage

Browse Source 
git-svn-id: trunk@1297 -
This commit is contained in:
lazarus 2002-02-09 01:48:14 +00:00
parent d694f25fdd
commit 7657c373a1
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1062,6 +1062,10 @@ end;
function DeliverMessage(const Target: Pointer; var AMessage): Integer; function DeliverMessage(const Target: Pointer; var AMessage): Integer;
begin begin
if Target=nil then writeln('[DeliverMessage] Target = nil'); if Target=nil then writeln('[DeliverMessage] Target = nil');
{$IFDEF VerboseDeliverMessage}
writeln('DeliverMessage ',TComponent(Target).Name,':',TObject(Target).ClassName,
' Message=',TLMessage(AMessage).Msg);
{$ENDIF}
if TObject(Target) is TControl then if TObject(Target) is TControl then
begin begin
TControl(Target).WindowProc(TLMessage(AMessage)); TControl(Target).WindowProc(TLMessage(AMessage));
@ -3986,6 +3990,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.143 2002/10/27 22:37:12 lazarus
MG: added verbosity to delivermessage
Revision 1.142 2002/10/27 11:51:35 lazarus Revision 1.142 2002/10/27 11:51:35 lazarus
MG: fixed memleaks MG: fixed memleaks