View Issue Details
ID | Project | Category | View Status | Date Submitted | Last Update |
---|---|---|---|---|---|
0034414 | Lazarus | LCL | public | 2018-10-13 03:39 | 2020-02-18 16:21 |
Reporter | shiraishi | Assigned To | Dmitry Boyarintsev | ||
Priority | normal | Severity | minor | Reproducibility | always |
Status | resolved | Resolution | fixed | ||
Platform | Cocoa | OS | Mac OS | ||
Product Version | 1.8.4 | ||||
Summary | 0034414: TCanvas.Polygon ignores Brush.Color on non-default Brush.Style | ||||
Description | On Mac Cocoa(64bit) and Linux 64bit, TCanvas.Polygon ignores Brush.Color when non-default Brush.Style assigned. | ||||
Steps To Reproduce | unit 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 Information | On Mac Carbon(32bit), Windows(both 32bit and 64bit) and Linux 32bit, this goes correctly. | ||||
Tags | No tags attached. | ||||
Fixed in Revision | 61047 | ||||
LazTarget | - | ||||
Widgetset | Cocoa | ||||
Attached Files |
|
related to | 0032825 | resolved | Dmitry Boyarintsev | HatchStyle drawing does not allow color change. |
related to | 0036709 | resolved | Juha Manninen | GTK2: TCanvas.Polygon ignores Brush.Color on non-default Brush.Style. |
|
|
|
https://developer.apple.com/library/archive/documentation/Cocoa/Conceptual/CocoaDrawingGuide/Color/Color.html |
|
please test and close if ok |
|
It is OK on MAC Cocoa, but no good on Lazarus(GTK2). |
|
please create a separate bug report for gtk2 and close this one. |
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 |