| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему не выводит canvas [D7, NT4]
din © (2004-06-18 14:58:00)procedure TForm_dr.FormPaint(Sender: TObject);
begin
form_dr.Canvas.Font.Name:='Tahoma';
form_dr.Canvas.Font.Size:=12;
form_dr.Canvas.font.Style:=[fsItalic,fsBold];
form_dr.Canvas.Brush.Style:=bsClear;
form_dr.Canvas.Font.Color:=clred;
form_dr.Canvas.TextOut(630,392,'Ляляляля');
end;
Причем на самой форме текст выводится, а если поместить рис на AllClient, то текст не выводится или остается под рисунком
Рыба (2004-06-18 17:06:00) [1]Советую писать так:
procedure TForm_dr.FormPaint(Sender: TObject);
begin
with Canvas.Font do begin
Name:='Tahoma';
Size:=12;
Style:=[fsItalic,fsBold];
Font.Color:=clred;
end;
Canvas.Brush.Style:=bsClear;
Canvas.TextOut(630,392,'Ляляляля');
end;
din (2004-06-18 15:41:00) [2]да я уже разобрался
pasha_golub (2004-06-18 15:26:00) [3]Ну, а в чем проблема? Форма, как родитель, заставляет перерисовать дочерние контролы (комопненты). Вот насколько я понял TImage и затирает выведенное вами "тра-ля-ля".
Сути вопроса я не понял.
| |
