ERROR IN PEN (FINDKEY)

[carlosnatal]

Under Linux, try draw three triangles in a panel canvas using the same coordinates and different pen color.

[Thaddy]

I think this is a troll, but anyway....<sigh>

Under Linux, try draw three triangles in a panel canvas using the same coordinates and different pen color.

So? That works. Show code that proves otherwise....

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormPaint(Sender: TObject);
2. begin
3.   form1.Canvas.Pen.Color := clBlue;
4.   form1.Canvas.Line( 2, 100, 50,2);
5.   form1.Canvas.Line( 2, 100, 150,2);
6.   form1.Canvas.Line( 50, 2, 150,2);
7.   form1.Canvas.Pen.Color := clRed;
8.   form1.Canvas.Line( 20, 120, 70,20);
9.   form1.Canvas.Line( 20, 120, 170,20);
10.   form1.Canvas.Line( 70, 20, 170,20);
11.   form1.Canvas.Pen.Color := clGreen;
12.   form1.Canvas.Line( 40, 140, 90,40);
13.   form1.Canvas.Line( 40, 140, 190,40);
14.   form1.Canvas.Line( 90, 40, 190,40);
15. end;

 

What you suggest is overwriting, so in the above example you would end up with green...

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormPaint(Sender: TObject);
2. begin
3.     form1.Canvas.Pen.Color := clBlue;
4.     form1.Canvas.Line( 2, 100, 50,2);
5.     form1.Canvas.Line( 2, 100, 150,2);
6.     form1.Canvas.Line( 50, 2, 150,2);
7.     form1.Canvas.Pen.Color := clRed;
8.     form1.Canvas.Line( 2, 100, 50,2);
9.     form1.Canvas.Line( 2, 100, 150,2);
10.     form1.Canvas.Line( 50, 2, 150,2);
11.     form1.Canvas.Pen.Color := clGreen;
12.     form1.Canvas.Line( 2, 100, 50,2);
13.     form1.Canvas.Line( 2, 100, 150,2);
14.     form1.Canvas.Line( 50, 2, 150,2);
15. end;

BTW: Linux has nothing to do with it....