Как вывести а потом стереть текст на канве Image?
Как вывести а потом стереть текст на канве Image? Пробовал так Image1.Canvas.TextOut(0,0,'some text'), текст выводится. Но стереть потом не могу никак, refresh, Repaint, Invlidate, FillRect(Rect) ничего не помагает. На Image загружен белый фон, Transparent:=true.
Четче задачу формулируй, а то так не понятно. Вообще, судя по твоим словам делать надо так.
Рисование:
Стирание
Рисование:
Код:
Image1.Canvas.TextOut(0,0,'some text');
Стирание
Код:
var
c:TColor;
begin
c:=Image1.Canvas.Pen.Color;
Image1.Canvas.Pen.Color:=clWhite;
Image1.Canvas.Rectangle(0,0,Image1.Canvas.TextWidth('some text'),Image1.Canvas.TextHeight('some text'));
Image1.Canvas.Pen.Color:=c;
end;
c:TColor;
begin
c:=Image1.Canvas.Pen.Color;
Image1.Canvas.Pen.Color:=clWhite;
Image1.Canvas.Rectangle(0,0,Image1.Canvas.TextWidth('some text'),Image1.Canvas.TextHeight('some text'));
Image1.Canvas.Pen.Color:=c;
end;
Спасибо большое!