From 0986a72b0f87e7dcd5f73346e67396c98a8a3708 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:46:32 +0000
Subject: [PATCH] MG: MoveWindowOrgEx, Splitted FWinControls/FControls,
 TControl drawing, Better DesignerDrawing, ...

git-svn-id: trunk@777 -
---
 lcl/interfaces/gtk/gtkobject.inc | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkobject.inc b/lcl/interfaces/gtk/gtkobject.inc
index 6e80ec1cf8..85200d41ed 100644
--- a/lcl/interfaces/gtk/gtkobject.inc
+++ b/lcl/interfaces/gtk/gtkobject.inc
@@ -5113,19 +5113,9 @@ function TgtkObject.NewDC: PDeviceContext;
 begin
   Assert(False, Format('Trace:> [TgtkObject.NewDC]', []));
   Result:=GtkDef.NewPDeviceContext;
+  FillChar(Result^,SizeOf(TDeviceContext),0);
   with Result^ do
   begin
-    hWnd := 0;
-    GC := nil;
-    Drawable := nil;
-    PenPos.X := 0;
-    PenPos.Y := 0;
-    CurrentBitmap := nil;
-    CurrentFont := nil;
-    CurrentPen := nil;
-    CurrentBrush := nil;
-    ClipRegion := 0;
-    SavedContext := nil;
     gdk_color_black(gdk_colormap_get_system, @CurrentTextColor);
     gdk_color_white(gdk_colormap_get_system, @CurrentBackColor);
   end;
@@ -5158,6 +5148,7 @@ function TgtkObject.NewGDIObject(const GDIType: TGDIType): PGdiObject;
 begin
   Assert(False, Format('Trace:> [TgtkObject.NewGDIObject]', []));
   Result:=GtkDef.NewPGDIObject;
+  FillChar(Result^,SizeOf(TGDIObject),0);
   Result^.GDIType := GDIType;
   FGDIObjects.Add(Result);
 //writeln('[TgtkObject.NewGDIObject] ',HexStr(Cardinal(Result),8),'  ',FGDIObjects.Count);
@@ -5503,6 +5494,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.187  2002/08/30 12:32:22  lazarus
+  MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...
+
   Revision 1.186  2002/08/30 10:06:07  lazarus
   Fixed alignment of multiline TLabel.
   Simplified and prettified MessageBoxen.