Главная страница
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.051 c
3-1086696579
Sergey Vorobyev
2004-06-08 16:09
2004.07.04
Как вывести в грид записи в порядке обратном физическому ?


9-1078948981
Servelat
2004-03-10 23:03
2004.07.04
Arcanoid => Тормоза => Need help!


3-1086156863
Denis
2004-06-02 10:14
2004.07.04
Добавление записи через многотабличный запрос (ADOQuery)


14-1087385918
default
2004-06-16 15:38
2004.07.04
И опять задачка


14-1087429736
Гарри Поттер
2004-06-17 03:48
2004.07.04
средство передвижения