From 2128439bcd740277b159281ba3f9348d15d3e8d6 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:51 +0000
Subject: [PATCH] MG: added changes from Andrew (Clipping)

git-svn-id: trunk@1104 -
---
 lcl/include/interfacebase.inc | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index d345596683..c7d34c5a99 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -104,6 +104,11 @@ begin
 end;
 
 
+Function TInterfaceBase.CombineRgn(Dest, Src1, Src2 : HRGN;
+  fnCombineMode : Longint) : Longint;
+begin
+  Result := ERROR;
+end;
 
 function TInterfaceBase.CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP;
 begin
@@ -154,6 +159,11 @@ begin
   Result := 0;
 end;
 
+function TInterfaceBase.CreatePolygonRgn(Points: PPoint; NumPts: Integer; Winding : Boolean): HRGN;
+Begin
+  Result := 0;
+end;
+
 function TInterfaceBase.CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN;
 begin
   Result := 0;
@@ -215,6 +225,11 @@ begin
   Result := False;
 end;
 
+function TInterfaceBase.ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer;
+begin
+  Result := SimpleRegion;
+end;
+
 function TInterfaceBase.FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean;
 begin
   Result := False;
@@ -257,6 +272,17 @@ begin
   Result := False;
 end;
 
+Function TInterfaceBase.GetClipBox(DC : hDC; lpRect : PRect) : Longint;
+begin
+  lpRect^ := Rect(0,0,0,0);
+  Result := SIMPLEREGION;
+end;
+
+Function TInterfaceBase.GetClipRGN(DC : hDC; RGN : hRGN) : Longint;
+begin
+  Result := -1;
+end;
+
 Function TInterfaceBase.GetCmdLineParamDescForInterface: string;
 begin
   Result := '';
@@ -513,6 +539,11 @@ begin
   Result := False;
 end;
 
+Function TInterfaceBase.SelectClipRGN(DC : hDC; RGN : HRGN) : Longint;
+begin
+  Result := ERROR;
+end;
+
 function TInterfaceBase.SelectObject(DC: HDC; GDIObj: HGDIOBJ): HGDIOBJ;
 begin
   Result := 0;
@@ -648,6 +679,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.39  2002/08/15 15:46:48  lazarus
+  MG: added changes from Andrew (Clipping)
+
   Revision 1.38  2002/08/13 07:08:24  lazarus
   MG: added gdkpixbuf.pp and changes from Andrew Johnson