Скачать: CL | DM;

TCustomLabel.Canvas   Найти похожие ветки 

← →
easy ©   (2002-07-29 18:29) [0]

Хочу рисовать на лабеле, но не совсем выходит :(

1. TForm.Paint(Show,Create) ничего не рисует, хотя ButtonClick Рисует всё прекрасно.
2. При сворачивании-разворачивании-перекрытии всё пропадает напрочь.
3. И как же на этой Канвас удалить старое и нарисовать новое (например RoundRect в другом месте(с прозрачностью))?

Помогите, а?

---

← →
VEG ©   (2002-07-29 18:43) [1]

1. При Show и Create происходит ПОЛНАЯ перерисовка Label-а! Чтобы все осталось, нужно писать в событие OnPaint твоей формы!
2. Опять же при Show и Create происходит ПОЛНАЯ перерисовка Label-а! ПОЛНОСТЬ перерисовывай все то, что тебе надо тоже в событии OnPaint твоей формы!
3. Canvas.Brush.Style:=bsClear; - после этого все, что ты будешь писать, будет рисоваться с прозрачностью! Canvas.Refresh; - все твои старания стеруться с Label-а!

Как видишь, еще один "еж" получился...

Еж - птитца гордая. Не пнешь - не полетит...

---

← →
easy ©   (2002-07-29 19:02) [2]

> происходит ПОЛНАЯ перерисовка Label-а!


а как избавиться-то от неё?...

---

← →
VEG ©   (2002-07-29 19:07) [3]

НИКАК! Я же говорю, в событии OnPaint ПОЛНОСТЬЮ перерисовывай все то, что тебе надо, и все будет Ok!


Еж - птитца гордая. Не пнешь - не полетит, а пнешь - сопротивляться будет...

---

← →
easy ©   (2002-07-29 19:24) [4]

а можно с лабели всё потереть не перерисоввывая форму?

---

← →
easy ©   (2002-07-29 19:43) [5]

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...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c