From 9bccd8fa986ef232027fdb33c63ce1f87d533a4e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Aug 2002 23:41:28 +0000
Subject: [PATCH] reduced speedbutton invalidates, added TCanvas.Frame

git-svn-id: trunk@2545 -
---
 lcl/interfaces/gtk/gtkdef.pp      | 7 +++++--
 lcl/interfaces/gtk/gtkwinapih.inc | 7 ++++++-
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/gtk/gtkdef.pp b/lcl/interfaces/gtk/gtkdef.pp
index 10cb30f9c0..69548b99cb 100644
--- a/lcl/interfaces/gtk/gtkdef.pp
+++ b/lcl/interfaces/gtk/gtkdef.pp
@@ -85,8 +85,8 @@ type
       );
       gdiBrush: ( 
         // ToDo: add bitmap mask
-        IsNullBrush : Boolean;
-        GDIBrushColor : TGDIColor;
+        IsNullBrush: Boolean;
+        GDIBrushColor: TGDIColor;
         GDIBrushFill: TGdkFill;
         GDIBrushPixMap: PGdkPixmap;
       );
@@ -436,6 +436,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.33  2003/01/27 13:49:16  mattias
+  reduced speedbutton invalidates, added TCanvas.Frame
+
   Revision 1.32  2003/01/24 11:58:00  mattias
   fixed clipboard waiting and kwrite targets
 
diff --git a/lcl/interfaces/gtk/gtkwinapih.inc b/lcl/interfaces/gtk/gtkwinapih.inc
index b8970c85cf..62f2dd0a85 100644
--- a/lcl/interfaces/gtk/gtkwinapih.inc
+++ b/lcl/interfaces/gtk/gtkwinapih.inc
@@ -73,7 +73,9 @@ function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str:
 function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer;  override;
 
 function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; override;
-function Frame3d(DC : HDC; var ARect: TRect; const FrameWidth: integer; const Style : TBevelCut): boolean; override;
+function Frame(DC: HDC; const ARect: TRect): Integer; override;
+function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; override;
+function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
 
 Function GetActiveWindow : HWND; override;
 function GetBitmapBits(Bitmap: HBITMAP; Count: Longint;  Bits: Pointer): Longint; Override;
@@ -191,6 +193,9 @@ Procedure DeleteCriticalSection(var CritSection: TCriticalSection); Override;
 { =============================================================================
 
   $Log$
+  Revision 1.60  2003/01/27 13:49:16  mattias
+  reduced speedbutton invalidates, added TCanvas.Frame
+
   Revision 1.59  2002/12/30 17:24:08  mattias
   added history to identifier completion