From a710468718a65d674a7ff63be4857d643f6f426a Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 17 Aug 2002 23:39:44 +0000
Subject: [PATCH] MG: accelerated designer drawings

git-svn-id: trunk@1892 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 48ddcd032b..0f75d5e52d 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -3259,6 +3259,31 @@ begin
   end;
 end;
 
+{------------------------------------------------------------------------------
+  function GetDeviceSize(DC: HDC; var p: TPoint): boolean;
+
+  Retrieves the width and height of the device context in pixels.
+ ------------------------------------------------------------------------------}
+function TgtkObject.GetDeviceSize(DC: HDC; var p: TPoint): boolean;
+begin
+  Result := false;
+  P := Point(0,0);
+  If IsValidDC(DC) then
+  with PDeviceContext(DC)^ do begin
+    if Drawable<>nil then begin
+      gdk_window_get_size(PGdkWindow(Drawable), @P.X, @P.Y);
+      Result := true;
+    end else begin
+      {$IFDEF RaiseExceptionOnNilPointers}
+      RaiseException('TGTKObject.GetDeviceSize Window=nil');
+      {$ENDIF}
+      writeln('TgtkObject.GetDeviceSize:',
+        ' WARNING: DC ',HexStr(Cardinal(DC),8),' without gdkwindow.',
+        ' Widget=',HexStr(Cardinal(hwnd),8));
+    end;
+  end;
+end;
+
 {------------------------------------------------------------------------------
   Function: GetFocus
   Params:  none
@@ -7157,6 +7182,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.136  2002/09/19 19:56:17  lazarus
+  MG: accelerated designer drawings
+
   Revision 1.135  2002/09/19 16:45:54  lazarus
   MG: fixed Menu.Free and gdkwindow=nil bug