From 4f73c82aaf988e6779039f5bf8fb1acdfc316db1 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 20 Jan 2005 00:31:39 +0000
Subject: [PATCH] fixed fpCanvas TPenStyle to LCL intf pen styles

git-svn-id: trunk@6642 -
---
 lcl/include/pen.inc | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lcl/include/pen.inc b/lcl/include/pen.inc
index 3bc76b4ada..5d8d89c84a 100644
--- a/lcl/include/pen.inc
+++ b/lcl/include/pen.inc
@@ -208,8 +208,9 @@ function TPen.GetHandle: HPEN;
 const
   PEN_STYLES: array[TPenStyle] of Word = (
     {$IFDEF UseFPCanvas}
-    PS_NULL, ps_Solid, ps_Dash, ps_Dot, ps_DashDot, ps_DashDotDot,
-    ps_insideFrame, ps_Solid // TODO pattern
+    ps_Solid, ps_Dash, ps_Dot, ps_DashDot, ps_DashDotDot, ps_insideFrame,
+    ps_Solid,{ ToDo ps_Pattern,}
+    ps_NULL
     {$ELSE}
     PS_SOLID,PS_DASH,PS_DOT,PS_DASHDOT,PS_DASHDOTDOT,PS_NULL,PS_INSIDEFRAME
     {$ENDIF}
@@ -306,6 +307,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.21  2005/01/20 00:31:39  mattias
+  fixed fpCanvas TPenStyle to LCL intf pen styles
+
   Revision 1.20  2005/01/13 22:55:04  mattias
   fixed fpcanvas TPen.Style