From b37ea578b99783668b6c0bb27acf1fe2e90d9e39 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 13 Jan 2005 22:55:04 +0000
Subject: [PATCH] fixed fpcanvas TPen.Style

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

diff --git a/lcl/include/pen.inc b/lcl/include/pen.inc
index 59d1487349..3bc76b4ada 100644
--- a/lcl/include/pen.inc
+++ b/lcl/include/pen.inc
@@ -207,9 +207,11 @@ end;
 function TPen.GetHandle: HPEN;
 const
   PEN_STYLES: array[TPenStyle] of Word = (
-    PS_SOLID,PS_DASH,PS_DOT,PS_DASHDOT,PS_DASHDOTDOT,PS_NULL,PS_INSIDEFRAME
     {$IFDEF UseFPCanvas}
-    ,PS_DOT // TODO psPattern
+    PS_NULL, ps_Solid, ps_Dash, ps_Dot, ps_DashDot, ps_DashDotDot,
+    ps_insideFrame, ps_Solid // TODO pattern
+    {$ELSE}
+    PS_SOLID,PS_DASH,PS_DOT,PS_DASHDOT,PS_DASHDOTDOT,PS_NULL,PS_INSIDEFRAME
     {$ENDIF}
     );
 var
@@ -304,6 +306,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.20  2005/01/13 22:55:04  mattias
+  fixed fpcanvas TPen.Style
+
   Revision 1.19  2005/01/10 18:44:44  mattias
   implemented the fpCanvas support for the LCL - Compile with -dUseFPCanvas