Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.18;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.021 c
1-59149
brestmarket
2002-11-06 01:44
2002.11.18
WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW, 0) в свернутом виде?!


4-59493
Alexander
2002-10-07 06:08
2002.11.18
Если у принтера настроена печать в файл, то можно ли как-то


4-59483
ZrenBy
2002-10-07 18:14
2002.11.18
Адрес WndProc


1-59111
Part
2002-11-07 15:20
2002.11.18
Еще один простой вопрос!!


3-59019
CrowD
2002-10-29 15:21
2002.11.18
Query из txt?