GitLab

Original Reporter info from Mantis: Ask

• Reporter name: Alexander S. Klenin

Description:

The code below

  with PaintBox1.Canvas do begin
    Brush.Style := bsClear;
    Brush.Color := clRed;
    Pen.Style := psDot;
    Pen.Color := clBlack;
    LineTo(100, 100);
  end;

draws red-black line instead of "transparent"-black.
This is a regression both compared to Delphi and Lazarus 0.9.30

Steps to reproduce:

Run attached project.

Mantis conversion info:

• Mantis ID: 21806
• Version: 1.1 (SVN)
• Fixed in version: 1.1 (SVN)