TCanvas.Rectangle imconpatibility between Lazarus and Delphi
Original Reporter info from Mantis: luizamerico
-
Reporter name: Luiz Americo
Original Reporter info from Mantis: luizamerico
- Reporter name: Luiz Americo
Description:
This same code gets different results in Lazarus and Delphi. See example and pictures.
with FMinusBM (TBitmap), Canvas do
begin
FMinusBM.Width := 9;
FMinusBM.Height := 9;
Transparent := True;
TransparentColor := clFuchsia;
Brush.Color := clFuchsia;
FillRect(Rect(0, 0, 9, 9));
Brush.Color := clWindow;
Pen.Color := clBlack;
Rectangle(0, 0, 9, 9);
end;
Mantis conversion info:
- Mantis ID: 8342
- OS: Linux
- Platform: i386
- Version: 0.9.21 (SVN)
- Fixed in version: 0.9.21 (SVN)
- Fixed in revision: 10782 (#27409f30)
- Target version: 0.9.22