PHP DM Gate v0.9 » TCanvas rectangle поверх текста <span class="vd">[D7]</span>

валя © (25.11.17 22:58) [0]

Как нарисовать Rectangle поверх текста, так чтобы просвечивались буквы. Это что-то похожее на выделение текста в любом текстовом редакторе.

<Цитата>
dmk © (25.11.17 23:25) [1]

Может так:
http://delphidevelop.ru/publ/12-1-0-18

<Цитата>
валя © (25.11.17 23:43) [2]

> dmk © (25.11.17 23:25) [1]
>
> Может так:

Нут так это нужно сделать на Canvas

<Цитата>
валя © (25.11.17 23:55) [3]

Ага, нужно перед выводом текста: Canvas.Brush.Style := bsClear; Но как сделать инверсию цвета текста?

<Цитата>
валя © (26.11.17 09:21) [4]

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Brush.Color := clBlue;
PaintBox1.Canvas.Rectangle(0,0,70,30);

PaintBox1.Canvas.Brush.Style := bsClear;
PaintBox1.Canvas.Font.Color := clRed;
PaintBox1.Canvas.TextOut(0,0 ,'Строка1Строка1Строка1');
PaintBox1.Canvas.Font.Color := clGreen;
PaintBox1.Canvas.TextOut(0,20,'Строка2Строка2Строка2');
PaintBox1.Canvas.Font.Color := clBlue;
PaintBox1.Canvas.TextOut(0,40,'Строка3Строка3Строка3');
end;

<Цитата>
Pavia © (27.11.17 10:18) [5]

with PaintBox1 do begin Canvas.Brush.Style:=bsSolid; Canvas.Brush.Color:=clBlue; Canvas.pen.Mode:=pmNotXor; Canvas.Rectangle(RECT(5,5,105,105)); end;

<Цитата>
han_malign © (27.11.17 15:16) [6]

https://msdn.microsoft.com/en-us/library/windows/desktop/dd145181(v=vs.85).aspx
- в том числе применяется при создании фигурных окон...

<Цитата>