paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed fpCanvas TPenStyle to LCL intf pen styles

Browse Source 
git-svn-id: trunk@6642 -
This commit is contained in:
mattias 2005-01-20 00:31:39 +00:00
parent c2ffe68e8d
commit 4f73c82aaf
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/pen.inc
View File

@ -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