paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 08:19:29 +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
if Target=nil then writeln('[DeliverMessage] Target = nil');
{$IFDEF VerboseDeliverMessage}
writeln('DeliverMessage ',TComponent(Target).Name,':',TObject(Target).ClassName,
' Message=',TLMessage(AMessage).Msg);
writeln('DeliverMessage ',HexStr(Cardinal(Target),8),
' ',TComponent(Target).Name,':',TObject(Target).ClassName,
' Message=',GetMessageName(TLMessage(AMessage).Msg));
{$ENDIF}
if TObject(Target) is TControl then
begin
@ -1059,7 +1060,6 @@ begin
Result := TLMessage(AMessage).Result;
end;
{------------------------------------------------------------------------------
Function: ObjectToGTKObject
Params: AObject: A LCL Object
@ -3949,6 +3949,9 @@ end;
{ =============================================================================
$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
fixed mem leak of tooltips in GetStyle