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

added more Delphi win32 compatibility functions

Browse Source 
git-svn-id: trunk@2185 -
This commit is contained in:
mattias 2002-08-17 23:41:05 +00:00
parent cbf91e11ce
commit 9dd4377ab8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1044,8 +1044,9 @@ 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} {$IFDEF VerboseDeliverMessage}
writeln('DeliverMessage ',TComponent(Target).Name,':',TObject(Target).ClassName, writeln('DeliverMessage ',HexStr(Cardinal(Target),8),
' Message=',TLMessage(AMessage).Msg); ' ',TComponent(Target).Name,':',TObject(Target).ClassName,
' Message=',GetMessageName(TLMessage(AMessage).Msg));
{$ENDIF} {$ENDIF}
if TObject(Target) is TControl then if TObject(Target) is TControl then
begin begin
@ -1059,7 +1060,6 @@ begin
Result := TLMessage(AMessage).Result; Result := TLMessage(AMessage).Result;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Function: ObjectToGTKObject Function: ObjectToGTKObject
Params: AObject: A LCL Object Params: AObject: A LCL Object
@ -3949,6 +3949,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.155 2002/12/27 17:12:38 mattias
added more Delphi win32 compatibility functions
Revision 1.154 2002/12/22 23:13:31 mattias Revision 1.154 2002/12/22 23:13:31 mattias
fixed mem leak of tooltips in GetStyle fixed mem leak of tooltips in GetStyle