paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:09:10 +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 const
PEN_STYLES: array[TPenStyle] of Word = ( PEN_STYLES: array[TPenStyle] of Word = (
{$IFDEF UseFPCanvas} {$IFDEF UseFPCanvas}
PS_NULL, ps_Solid, ps_Dash, ps_Dot, ps_DashDot, ps_DashDotDot, ps_Solid, ps_Dash, ps_Dot, ps_DashDot, ps_DashDotDot, ps_insideFrame,
ps_insideFrame, ps_Solid // TODO pattern ps_Solid,{ ToDo ps_Pattern,}
ps_NULL
{$ELSE} {$ELSE}
PS_SOLID,PS_DASH,PS_DOT,PS_DASHDOT,PS_DASHDOTDOT,PS_NULL,PS_INSIDEFRAME PS_SOLID,PS_DASH,PS_DOT,PS_DASHDOT,PS_DASHDOTDOT,PS_NULL,PS_INSIDEFRAME
{$ENDIF} {$ENDIF}
@ -306,6 +307,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.20 2005/01/13 22:55:04 mattias
fixed fpcanvas TPen.Style fixed fpcanvas TPen.Style