From b83c55f212e188582dae7cb35b51f59837c4f06d Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Tue, 23 Jan 2001 19:13:57 +0000
Subject: [PATCH] Fixxed the errors I commited with Unionrect Shane

git-svn-id: trunk@132 -
---
 lcl/include/interfacebase.inc     | 10 ++++------
 lcl/include/winapi.inc            |  9 ++++-----
 lcl/interfaces/gtk/gtkwinapih.inc |  5 ++++-
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index ccbe216f61..08a0c09d56 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -398,12 +398,6 @@ begin
   // Result := 
 end;
 
-Function TInterfaceBase.UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean;
-begin
-  // Your default here
-  // Result := 
-end;
-
 Function TInterfaceBase.WindowFromPoint(Point : TPoint) : HWND;
 begin
   // Your default here
@@ -414,6 +408,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.10  2001/01/23 19:13:57  lazarus
+  Fixxed the errors I commited with Unionrect
+  Shane
+
   Revision 1.9  2001/01/23 19:01:10  lazarus
   Fixxed bug in RestoreDC
   Shane
diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index f6e053c540..d7c48ca5d4 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -401,11 +401,6 @@ begin
   Result := InterfaceObject.TextOut(DC, X, Y, Str, Count);
 end;
 
-Function UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean;
-begin
-  Result := InterfaceObject.UnionRect(DestRect, SrcRect1, SrcRect2);
-end;
-
 function WindowFromPoint(Point : TPoint) : HWND;
 begin
   Result := InterfaceObject.WindowFromPoint(Point);
@@ -949,6 +944,10 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.9  2001/01/23 19:13:57  lazarus
+  Fixxed the errors I commited with Unionrect
+  Shane
+
   Revision 1.8  2001/01/23 19:01:10  lazarus
   Fixxed bug in RestoreDC
   Shane
diff --git a/lcl/interfaces/gtk/gtkwinapih.inc b/lcl/interfaces/gtk/gtkwinapih.inc
index 88efd549cc..384a8bd4f9 100644
--- a/lcl/interfaces/gtk/gtkwinapih.inc
+++ b/lcl/interfaces/gtk/gtkwinapih.inc
@@ -95,7 +95,6 @@ function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; X
 
 Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
 
-Function UnionRect(DestRect, SrcRect1, SrcRect2 : pRect): Boolean; override;
 
 
 Function WindowFromPoint(Point : TPoint) : HWND; override;
@@ -103,6 +102,10 @@ Function WindowFromPoint(Point : TPoint) : HWND; override;
 { =============================================================================
 
   $Log$
+  Revision 1.9  2001/01/23 19:13:57  lazarus
+  Fixxed the errors I commited with Unionrect
+  Shane
+
   Revision 1.8  2001/01/23 19:01:10  lazarus
   Fixxed bug in RestoreDC
   Shane