Added InvalidateRect to gtkwinapi.inc

Shane

git-svn-id: trunk@129 -

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

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

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

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

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