Draw line at Pen.Style: = psPattern and Pen.width: = 1.
Original Reporter info from Mantis: zmitroc
-
Reporter name: Дмитрий
Original Reporter info from Mantis: zmitroc
- Reporter name: Дмитрий
Description:
If you use Pen.style: = psPattern along with Pen.width: = 1, we obtain a one-pixel line in black, regardless of the previously set color.
If you put Pen.Width: => 1, all works correctly.
sample code:
var
PenPattern:TPenPattern;
begin
with buffer.Canvas do
begin
Pen.Mode:=pmCopy;
Pen.Width:=1;
Pen.Color:=clRed;
SetLength(PenPattern, 4);
PenPattern[0]:=10;
PenPattern[1]:=5;
PenPattern[2]:=2;
PenPattern[3]:=5;
pen.Style:=psPattern;
Pen.SetPattern(PenPattern);
LineTo(0,0,100,100);
end;
end;
Mantis conversion info:
- Mantis ID: 22646
- Version: 1.1 (SVN)
- Fixed in version: 1.6.2
- Fixed in revision: r53046 (#2228fcd9)
- Monitored by: » and (Andrew G. Khodotov)
- Target version: 1.6.2