Opaque text fails
Original Reporter info from Mantis: mftq75
-
Reporter name: C Western
Original Reporter info from Mantis: mftq75
- Reporter name: C Western
Description:
Setting TextStyle.Opaque to True produces odd results
Steps to reproduce:
An project with a single paint box with the following paint handler produces no output:
procedure TForm1.PaintBoxPaint(Sender: TObject);
var
TextStyle: TTextStyle;
begin
with PaintBox do begin
TextStyle := Canvas.TextStyle;
TextStyle.Opaque := True;
Canvas.TextStyle := TextStyle; // Comment out this line to produce output
Canvas.TextOut(10,10,'Hello');
end;
end;