Почему не выводит 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]

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

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

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;

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