From e5395755d348534e4eec5ded7a944a11d3046c1e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:40:47 +0000
Subject: [PATCH] cleanup

git-svn-id: trunk@2048 -
---
 lcl/interfaces/gtk/gtkwinapi.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 980bf189f4..6b37312e41 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -734,7 +734,6 @@ function TgtkObject.CreateBitmap(Width, Height: Integer;
 var
   GdiObject: PGdiObject;
   //RawImage: PGDIRawImage;
-  P: TPoint;
   DefGdkWindow: PGdkWindow;
 begin
   Assert(False, Format('Trace:> [TgtkObject.CreateBitmap] Width: %d, Height: %d, Planes: %d, BitCount: %d, BitmapBits: 0x%x', [Width, Height, Planes, BitCount, Longint(BitmapBits)]));
@@ -7617,6 +7616,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.199  2002/12/27 17:58:47  mattias
+  cleanup
+
   Revision 1.198  2002/12/27 17:12:38  mattias
   added more Delphi win32 compatibility functions