From fb79ae6e7fb6ed37743657ed245d80a0e9e02e71 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:53 +0000
Subject: [PATCH] MG: fixed unreleased gdiRegions

git-svn-id: trunk@1117 -
---
 lcl/include/interfacebase.inc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index c2d5b911db..5d44694e0e 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -872,7 +872,7 @@ var
   Clip, RRGN : hRGN;
 begin
   RRGN := CreateRectRgn(Left, Top, Right, Bottom);
-  Clip := CreateRectRGN(0,0,0,0);
+  Clip := CreateRectRgn(0,0,0,0);
   If GetClipRGN(DC, Clip) < 0 then
     Result := ExtSelectClipRGN(DC, RRGN, RGN_COPY)
   else
@@ -1219,6 +1219,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.41  2002/08/21 10:46:37  lazarus
+  MG: fixed unreleased gdiRegions
+
   Revision 1.40  2002/08/19 20:34:47  lazarus
   MG: improved Clipping, TextOut, Polygon functions