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

cocoa: updating drawing styles of geometry patterns. Dots are finally dots! #34744

Browse Source 
git-svn-id: trunk@61411 -
This commit is contained in:
dmitry 2019-06-18 13:47:39 +00:00
parent 38d6d9c018
commit d0da669311
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/cocoa/cocoagdiobjects.pas
View File

@ -159,10 +159,10 @@ const
array [PS_DASH..PS_DASHDOTDOT] of TCocoaStatDashes = (
// cosmetic = false (geometry)
(
(len: 2; dash: (3,1,0,0,0,0)), // PS_DASH = 1; { ------- }
(len: 2; dash: (1,1,0,0,0,0)), // PS_DOT = 2; { ....... }
(len: 4; dash: (3,1,1,1,0,0)), // PS_DASHDOT = 3; { _._._._ }
(len: 6; dash: (3,1,1,1,1,1)) // PS_DASHDOTDOT = 4; { _.._.._ }
(len: 2; dash: (2,2,0,0,0,0)), // PS_DASH = 1; { ------- }
(len: 2; dash: (0,2,0,0,0,0)), // PS_DOT = 2; { ....... }
(len: 4; dash: (2,2,0,2,0,0)), // PS_DASHDOT = 3; { _._._._ }
(len: 6; dash: (2,2,0,2,0,2)) // PS_DASHDOTDOT = 4; { _.._.._ }
),
// cosmetic = true (windows like cosmetic)
(
@ -2847,7 +2847,7 @@ begin
WidthMul[false]:=1.0;
WidthMul[true]:=Width;
StatDash := @CocoaPenDash[isCosm][FStyle];
CalcDashes( Slice(StatDash^.dash, StatDash^.len), ADashes, ADashLen, WidthMul[isCosm]);
CalcDashes( Slice(StatDash^.dash, StatDash^.len), ADashes, ADashLen, WidthMul[IsGeometric]);
CGContextSetLineDash(ADC.CGContext, 0, @ADashes[0], ADashLen);
end;
PS_USERSTYLE: