From 0c11c519677a4d419b425f1bbcd59dc55b303eea Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Tue, 23 Jan 2001 18:42:10 +0000
Subject: [PATCH] Added InvalidateRect to gtkwinapi.inc Shane

git-svn-id: trunk@129 -
---
 lcl/include/interfacebase.inc     | 10 ++++++++++
 lcl/include/winapi.inc            |  9 +++++++++
 lcl/include/winapih.inc           |  5 +++++
 lcl/interfaces/gtk/gtkwinapi.inc  | 26 ++++++++++++++++++++++++++
 lcl/interfaces/gtk/gtkwinapih.inc |  6 ++++++
 5 files changed, 56 insertions(+)

diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index 0f14dd6e08..4954f7202f 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -224,6 +224,12 @@ begin
   Result := False;
 end;
 
+Function TInterfaceBase.InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean;
+begin
+  // Your default here
+  // Result := 
+end;
+
 function TInterfaceBase.LineTo(DC: HDC; X, Y: Integer): Boolean;
 begin
   Result := False;
@@ -402,6 +408,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.8  2001/01/23 18:42:10  lazarus
+  Added InvalidateRect to gtkwinapi.inc
+  Shane
+
   Revision 1.7  2000/12/06 14:54:38  lazarus
   Set some defaults in interfacebase.inc
   Shane
diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index 54c8945c95..9a88df8d3f 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -231,6 +231,11 @@ begin
   Result := InterfaceObject.HideCaret(hWnd);
 end;
 
+Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean;
+begin
+  Result := InterfaceObject.InvalidateRect(aHandle, Rect, bErase);
+end;
+
 function LineTo(DC: HDC; X, Y: Integer): Boolean;
 begin
   Result := InterfaceObject.LineTo(DC, X, Y);
@@ -939,6 +944,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.7  2001/01/23 18:42:10  lazarus
+  Added InvalidateRect to gtkwinapi.inc
+  Shane
+
   Revision 1.6  2000/09/10 23:08:30  lazarus
   MWE:
     + Added CreateCompatibeleBitamp function
diff --git a/lcl/include/winapih.inc b/lcl/include/winapih.inc
index 71a22d6e3d..c4b95d8568 100644
--- a/lcl/include/winapih.inc
+++ b/lcl/include/winapih.inc
@@ -77,6 +77,7 @@ function HideCaret(hWnd: HWND): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 
 //function InflateRect --> independent
 //function IntersectRect --> independent
+Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 //function IsCharAlphaNumeric --> independent
 //function IsRectEmpty --> independent
 
@@ -216,6 +217,10 @@ function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): Boolean
 { =============================================================================
 
   $Log$
+  Revision 1.7  2001/01/23 18:42:10  lazarus
+  Added InvalidateRect to gtkwinapi.inc
+  Shane
+
   Revision 1.6  2000/09/10 23:08:30  lazarus
   MWE:
     + Added CreateCompatibeleBitamp function
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 2b680ba601..6c6b533f44 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -1995,6 +1995,28 @@ begin
 
 end;
 
+{------------------------------------------------------------------------------
+  Function: InvalidateRect
+  Params: aHandle:
+          Rect:
+          bErase:
+  Returns:
+
+ ------------------------------------------------------------------------------}
+Function TGTKObject.InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean;
+var
+  gdkRect : TGDKRectangle;
+begin
+  Writeln('[InvalidateRect]');
+  Writeln(format('Rect = %d,%d,%d,%d',[rect^.left,rect^.top,rect^.Right,rect^.Bottom]));
+  gdkRect.X := Rect^.Left;
+  gdkRect.Y := Rect^.Top;
+  gdkREct.Width := (Rect^.Right - Rect^.Left);
+  gdkREct.Height := (Rect^.Bottom - Rect^.Top);
+  gtk_widget_draw(PgtkWidget(aHandle),@gdkRect);
+  Writeln('[InvalidateRect]  Exiting....');
+end;
+
 {------------------------------------------------------------------------------
   Function: LineTo
   Params:  none
@@ -3113,6 +3135,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.13  2001/01/23 18:42:10  lazarus
+  Added InvalidateRect to gtkwinapi.inc
+  Shane
+
   Revision 1.12  2001/01/12 18:46:50  lazarus
   Named the speedbuttons in MAINIDE and took out some writelns.
   Shane
diff --git a/lcl/interfaces/gtk/gtkwinapih.inc b/lcl/interfaces/gtk/gtkwinapih.inc
index a8a9b62641..fdf9825172 100644
--- a/lcl/interfaces/gtk/gtkwinapih.inc
+++ b/lcl/interfaces/gtk/gtkwinapih.inc
@@ -54,6 +54,8 @@ Function GetWindowRect(Handle : hwnd; Rect : PRect): Integer; override;
 
 function HideCaret(hWnd: HWND): Boolean; override;
 
+Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; override;
+
 function LineTo(DC: HDC; X, Y: Integer): Boolean; override;
 
 function MaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean; override;
@@ -99,6 +101,10 @@ Function WindowFromPoint(Point : TPoint) : HWND; override;
 { =============================================================================
 
   $Log$
+  Revision 1.7  2001/01/23 18:42:10  lazarus
+  Added InvalidateRect to gtkwinapi.inc
+  Shane
+
   Revision 1.6  2000/09/10 23:08:31  lazarus
   MWE:
     + Added CreateCompatibeleBitamp function