Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c