удаление TextOut ?

[Tenebor]

Доброе время суток господа, нужен совет.

Вопрос: как удалить TextOut не трогая фигуры на которую он выводится ? Как вообще его стереть(удалить) ?

with Form2.image1.canvas do begin
Brush.Color:=clPurple;
Pen.Color:=clPurple;
Brush.Style:=bsSolid;
Ellipse(x3,y3,x4,y4);
font.Size:=9;
font.Color:=clRed;
TextOut(xs,ys,inttostr(i));
end;

[Пепел Феникса]

очистить канву, и перерисовать фигуры, но не рисовать снова текст.

[Tenebor]

Сообщение от Пепел Феникса

очистить канву, и перерисовать фигуры, но не рисовать снова текст.

это единственный способ ?
А может есть какие аналоги TextOut которые тоже пишут текст в image и их можна удалить ?

[Пепел Феникса]

после того как вы нарисовали, у вас лишь есть массив пикселей, то что там текст знаете лишь вы.
используйте слои тогда.(два Image как банальный пример)

[phomm]

можешь попробовать записать на созданный в памяти буфер всю ту фигуру, написать текст "в натуре" а когда надо нарисовать этот буфер обратно, он и перекроет написанное, но, учти, если там у тебя это дело в динамике ... то мучительно

а вообще, конечно, надо, наверное, поюзать способы рисовки(винапишками) с XOR'иванием , первый вывод при таком способе рисует а второй удаляет и затрагивается только то, с чем ксорим

[Tenebor]

мда, буду что-то халтурить , спасибо за ответы