[solved] Prevent Canvas.TextOut from erasing everything behind the text

[PunyDog]

I wanted to put a text over a picture, but when I used Canvas.TextOut, there was a white square block around the text. I tried to look for anything about transparency or something like that but unable to find any. Can anyone help?

[dsiders]

I wanted to put a text over a picture, but when I used Canvas.TextOut, there was a white square block around the text. I tried to look for anything about transparency or something like that but unable to find any. Can anyone help?

Did you try setting TCanvas.TextStyle.Opaque to False before calling TextOut?
https://lazarus-ccr.sourceforge.io/docs/lcl/graphics/ttextstyle.html

[PunyDog]

I tried that, but it gave error : Argument cannot be assigned to

[AlexTP]

Run:
        Canvas.Brush.Style:= bsClear;

Before Canvas.TextOut.

[PunyDog]

Run:
        Canvas.Brush.Style:= bsClear;

Before Canvas.TextOut.

Hey, it works. Thank you!
Wonder why they put it with brushstyle, though   

[paweld]

An example of using TTextStyle

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

1. procedure TForm1.Button2Click(Sender: TObject);
2. var
3.   ts: TTextStyle;
4.   s: String;
5. begin
6.   s := 'Sample text' + LineEnding + 'in a' + LineEnding + 'few lines';
7.   ts.Opaque := False;
8.   ts.Wordbreak := True;
9.   ts.SingleLine := False;
10.   ts.Alignment := taLeftJustify;
11.   ts.Layout := tlTop;
12.   Canvas.TextRect(ClientRect, 100, 100, s, ts);
13. end;
14.  

[wp]

Wonder why they put it with brushstyle, though   

Well, I think it's quite logical. Brush defines the fill of the background. Why shouldn't this apply to the text as well?

[PunyDog]

Wonder why they put it with brushstyle, though   

Well, I think it's quite logical. Brush defines the fill of the background. Why shouldn't this apply to the text as well?

At least, it's not so *clear* to me