From 30cec09ad46d3855a308b30b06c9ec2cb066de66 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:49 +0000
Subject: [PATCH] MG: added graphics extensions from Andrew Johnson

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

diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index 3b8ebe00cf..e71dfbf76a 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -29,6 +29,12 @@ begin
   Result := false;
 end;
 
+function TInterfaceBase.AngleChord(DC: HDC;
+  x,y,width,height,angle1,angle2 : Integer): Boolean;
+begin
+  Result:=false;
+end;
+
 function TInterfaceBase.BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; 
 begin
   Result := False;
@@ -621,6 +627,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.37  2002/08/08 18:05:46  lazarus
+  MG: added graphics extensions from Andrew Johnson
+
   Revision 1.36  2002/08/08 17:26:37  lazarus
   MG: added property TMenuItems.RightJustify