paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Undo r63696 after the root cause of the work-around was fixed in r63702 #f6796707ef

Browse Source 
git-svn-id: trunk@63706 -
This commit is contained in:
wp 2020-08-09 13:01:55 +00:00
parent fabfd9c5f0
commit 74886381ea
1 changed files with 0 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/tachart/tadrawercanvas.pas
View File

@ -327,18 +327,6 @@ end;
procedure TCanvasDrawer.SetBrush(ABrush: TFPCustomBrush);
begin
with GetCanvas.Brush do begin
{$ifdef LCLCocoa}
// Workaround for series marks drawing bug on macOS
// https://forum.lazarus.freepascal.org/index.php/topic,48842.0.html
if Color = clWhite then
Color := clBlack
else
Color := clWhite;
if Style = bsClear then
Style := bsSolid
else
Style := bsClear;
{$endif}
if ABrush is TBrush then
Assign(ABrush)
else begin
@ -419,18 +407,6 @@ begin
Pen.Width := APen.Width;
end
else begin
{$ifdef LCLCocoa}
// Workaround for series color issue in cocoa: make sure that color is different
// https://forum.lazarus.freepascal.org/index.php/topic,50890.0.html
if Pen.Color = clWhite then
Pen.Color := clBlack
else
Pen.Color := clWhite;
if Pen.Style = psClear then
Pen.Style := psSolid
else
Pen.Style := psClear;
{$endif}
if APen is TPen then
Pen.Assign(APen)
else begin