Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.05.22;
Скачать: CL | DM;

Вниз

Как вывести а потом стереть текст на канве Image?   Найти похожие ветки 

 
Aleks   (2009-10-05 10:50) [0]

Как вывести а потом стереть текст на канве Image? Пробовал так Image1.Canvas.TextOut(0,0,"some text"), текст выводится. Но стереть потом не могу никак, refresh, Repaint, Invlidate, FillRect(Rect) ничего не помагает. На Image загружен белый фон, Transparent:=true.


 
brother ©   (2009-10-05 11:08) [1]

ты разделом ошибся...


 
Омлет   (2009-10-05 11:32) [2]

> FillRect(Rect) ничего не помагает.

FillRect не мог не помочь. Проверь Brush.Style.


 
brother ©   (2009-10-05 11:39) [3]

with Image.Canvas do
 begin
   Brush.Color:= clWhite; // пробуй другие цвета
   PatBlt(Handle, 0, 0, Image.Width, Image.Height, PATCOPY);
 end;
???


 
Омлет   (2009-10-05 11:59) [4]

> brother ©   (05.10.09 11:39) [3]

Только после этого надо не забыть Image1.Repaint, т.к. рисуется напрямую в HDC, и для Image.Canvas не происходит Changed.
И если цвет точно всегда белый, то лучше вместо PATCOPY использовать WHITENESS.


 
brother ©   (2009-10-05 12:04) [5]

да автор уже слинял видимо...


 
Aleks   (2009-10-05 12:47) [6]

Спасибо за помощь,тем кто откликнулся новичку!!


 
brother ©   (2009-10-06 04:41) [7]

автору, этот топик не в основной должен быть, это на будущее...



Страницы: 1 вся ветка

Текущий архив: 2011.05.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.007 c
15-1297086003
oldman
2011-02-07 16:40
2011.05.22
Для тех кто хочет знать, какого пола их компьютер


15-1296459660
MBo
2011-01-31 10:41
2011.05.22
Embarcadero выпускает Delphi (и Builder) Starter за 200$


1-1248264361
Enlight
2009-07-22 16:06
2011.05.22
Иконка на таскбаре для каждой формы приложения


3-1259253952
Qwerg_ntgl
2009-11-26 19:45
2011.05.22
еще LIKE и Delphi


15-1297200575
Юрий
2011-02-09 00:29
2011.05.22
С днем рождения ! 9 февраля 2011 среда