From e3ffe1e179caec5af3d8eb9707695a1997b88a69 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:25 +0000 Subject: [PATCH] added more Delphi win32 compatibility functions git-svn-id: trunk@2498 - --- lcl/interfaces/gtk/gtkwinapih.inc | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/gtk/gtkwinapih.inc b/lcl/interfaces/gtk/gtkwinapih.inc index eaed322f0e..344f58da02 100644 --- a/lcl/interfaces/gtk/gtkwinapih.inc +++ b/lcl/interfaces/gtk/gtkwinapih.inc @@ -51,7 +51,7 @@ function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; overr function CreateCompatibleDC(DC: HDC): HDC; override; function CreateFontIndirect(const LogFont: TLogFont): HFONT; override; function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override; -function CreatePalette(const LogPalette: TLogPalette): HPALETTE; +function CreatePalette(const LogPalette: TLogPalette): HPALETTE; override; function CreatePenIndirect(const LogPen: TLogPen): HPEN; override; function CreatePixmapIndirect(const Data: Pointer; const TransColor: Longint): HBITMAP; override; Function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; Override; @@ -106,7 +106,7 @@ function GetTextColor(DC: HDC) : TColorRef; Override; function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; override; function GetTextMetrics(DC: HDC; var TM: TTextMetric): Boolean; override; Function GetWindowLong(Handle : hwnd; int: Integer): Longint; override; -Function GetWindowOrgEx(dc : hdc; var P: TPoint): Integer; override; +Function GetWindowOrgEx(dc : hdc; P: PPoint): Integer; override; Function GetWindowRect(Handle : hwnd; var ARect: TRect): Integer; override; Function GetWindowSize(Handle : hwnd; var Width, Height: integer): boolean; override; function GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint; @@ -190,6 +190,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override; { ============================================================================= $Log$ + Revision 1.58 2002/12/27 17:12:38 mattias + added more Delphi win32 compatibility functions + Revision 1.57 2002/12/26 11:00:15 mattias added included by to unitinfo and a few win32 functions