View Issue Details

IDProjectCategoryView StatusLast Update
0034414LazarusLCLpublic2020-02-18 16:21
Reportershiraishi Assigned ToDmitry Boyarintsev  
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
PlatformCocoaOSMac OS 
Product Version1.8.4 
Summary0034414: TCanvas.Polygon ignores Brush.Color on non-default Brush.Style
DescriptionOn Mac Cocoa(64bit) and Linux 64bit,
TCanvas.Polygon ignores Brush.Color when non-default Brush.Style assigned.
  
Steps To Reproduceunit Unit1;

{$mode objfpc}{$H+}

interface
                       

uses
  Classes, SysUtils, Forms, Controls, Graphics, ExtCtrls, Buttons;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}


{ TForm1 }
const
  p1:TPoint=(x:1;y:1);
  p2:TPoint=(x:199;y:1);
  p3:TPoint=(x:100;y:160);

procedure TForm1.FormCreate(Sender: TObject);
begin
   with image1.canvas do
  begin
     Pen.Color := clWhite;
     Rectangle(0, 0, Image1.Width, Image1.Height);

     Pen.Color:=clred ;
     Brush.Style:=TBrushStyle(4);
     Brush.Color:=clred ;
     Polygon([p1,p2,p3]) ;
  end;
end;

end.
                                                              
Additional InformationOn Mac Carbon(32bit), Windows(both 32bit and 64bit) and Linux 32bit, this goes correctly.
TagsNo tags attached.
Fixed in Revision61047
LazTarget-
WidgetsetCocoa
Attached Files

Relationships

related to 0032825 resolvedDmitry Boyarintsev HatchStyle drawing does not allow color change. 
related to 0036709 resolvedJuha Manninen GTK2: TCanvas.Polygon ignores Brush.Color on non-default Brush.Style. 

Activities

shiraishi

2018-10-13 03:39

reporter  

BrushStyle.png (18,700 bytes)   
BrushStyle.png (18,700 bytes)   

Dmitry Boyarintsev

2019-01-08 04:52

developer   ~0113252

https://developer.apple.com/library/archive/documentation/Cocoa/Conceptual/CocoaDrawingGuide/Color/Color.html

Dmitry Boyarintsev

2019-04-24 08:48

developer   ~0115767

please test and close if ok

shiraishi

2019-04-27 04:15

reporter   ~0115841

It is OK on MAC Cocoa, but no good on Lazarus(GTK2).

Dmitry Boyarintsev

2019-05-26 23:21

developer   ~0116426

please create a separate bug report for gtk2 and close this one.

Issue History

Date Modified Username Field Change
2018-10-13 03:39 shiraishi New Issue
2018-10-13 03:39 shiraishi File Added: BrushStyle.png
2019-01-08 04:52 Dmitry Boyarintsev Note Added: 0113252
2019-04-24 08:46 Dmitry Boyarintsev Relationship added related to 0032825
2019-04-24 08:48 Dmitry Boyarintsev Assigned To => Dmitry Boyarintsev
2019-04-24 08:48 Dmitry Boyarintsev Status new => resolved
2019-04-24 08:48 Dmitry Boyarintsev Resolution open => fixed
2019-04-24 08:48 Dmitry Boyarintsev Fixed in Revision => 61047
2019-04-24 08:48 Dmitry Boyarintsev LazTarget => -
2019-04-24 08:48 Dmitry Boyarintsev Widgetset Cocoa => Cocoa
2019-04-24 08:48 Dmitry Boyarintsev Note Added: 0115767
2019-04-27 04:15 shiraishi Note Added: 0115841
2019-05-26 23:21 Dmitry Boyarintsev Note Added: 0116426
2020-02-18 16:21 Juha Manninen Relationship added related to 0036709