Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.04;
Скачать: CL | DM;

Вниз

Почему не выводит canvas   Найти похожие ветки 

 
din   (2004-06-18 14:58) [0]

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, то текст не выводится или остается под рисунком


 
pasha_golub ©   (2004-06-18 15:26) [1]

Ну, а в чем проблема? Форма, как родитель, заставляет перерисовать дочерние контролы (комопненты). Вот насколько я понял TImage и затирает выведенное вами "тра-ля-ля".

Сути вопроса я не понял.


 
din   (2004-06-18 15:41) [2]

да я уже разобрался


 
Рыба ©   (2004-06-18 17:06) [3]

Советую писать так:

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;



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

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

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1087529144
S-o-i
2004-06-18 07:25
2004.07.04
Компонент Radiogroup


14-1087192062
ИМХО
2004-06-14 09:47
2004.07.04
Что за фигня...


3-1086674008
SLP
2004-06-08 09:53
2004.07.04
Поле Identity


6-1084020603
serg_kr
2004-05-08 16:50
2004.07.04
FTP в Delphi 8


1-1087255908
Dmitry
2004-06-15 03:31
2004.07.04
Необходимо сделать объект прозрачным для событий.