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

MG: accelerated designer drawings

Browse Source 
git-svn-id: trunk@2314 -
This commit is contained in:
lazarus 2002-08-17 23:41:15 +00:00
parent f05e7890e9
commit cfb580846c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk/gtkwinapih.inc
View File

@ -85,6 +85,7 @@ Function GetClipRGN(DC : hDC; RGN : hRGN) : Longint; override;
Function GetCmdLineParamDescForInterface: string; override;
function GetDC(hWnd: HWND): HDC; override;
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; Override;
function GetDeviceSize(DC: HDC; var p: TPoint): boolean; override;
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; Override;
function GetFocus: HWND; override;
@ -187,6 +188,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
{ =============================================================================
$Log$
Revision 1.48 2002/09/19 19:56:18 lazarus
MG: accelerated designer drawings
Revision 1.47 2002/09/18 17:07:30 lazarus
MG: added patch from Andrew