| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TCustomLabel.Canvas
easy © (2002-07-29 18:29:00)Хочу рисовать на лабеле, но не совсем выходит :(
1. TForm.Paint(Show,Create) ничего не рисует, хотя ButtonClick Рисует всё прекрасно.
2. При сворачивании-разворачивании-перекрытии всё пропадает напрочь.
3. И как же на этой Канвас удалить старое и нарисовать новое (например RoundRect в другом месте(с прозрачностью))?
Помогите, а?
easy (2002-07-29 19:43:00) [1]
var
Form1: TForm1;
bb:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Canvas.Refresh;
windows.RoundRect(label1.Canvas.Handle,0,bb,100,bb+20,5,5);
bb:=bb+21;
end;
- куча RoundRect, а нужен 1...
easy (2002-07-29 19:24:00) [2]а можно с лабели всё потереть не перерисоввывая форму?
VEG (2002-07-29 19:07:00) [3]НИКАК! Я же говорю, в событии OnPaint ПОЛНОСТЬЮ перерисовывай все то, что тебе надо, и все будет Ok!
Еж - птитца гордая. Не пнешь - не полетит, а пнешь - сопротивляться будет...
easy (2002-07-29 19:02:00) [4]
> происходит ПОЛНАЯ перерисовка Label-а!
а как избавиться-то от неё?...
VEG (2002-07-29 18:43:00) [5]1. При Show и Create происходит ПОЛНАЯ перерисовка Label-а! Чтобы все осталось, нужно писать в событие OnPaint твоей формы!
2. Опять же при Show и Create происходит ПОЛНАЯ перерисовка Label-а! ПОЛНОСТЬ перерисовывай все то, что тебе надо тоже в событии OnPaint твоей формы!
3. Canvas.Brush.Style:=bsClear; - после этого все, что ты будешь писать, будет рисоваться с прозрачностью! Canvas.Refresh; - все твои старания стеруться с Label-а!
Как видишь, еще один "еж" получился...
Еж - птитца гордая. Не пнешь - не полетит...
| |
