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!

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

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

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

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