Почему не пишет создаваемым шрифтом

[ipdd]

Конструкция вида:
procedure TForm1.N15Click(Sender: TObject);
var F:TFont;
LF: TLogFont;
R: TRect;
begin
R:=Rect(20,20,120,120);
image1.Canvas.Font.Name:='Arial';
image1.Canvas.Font.Size:=18;
f:=TFont.Create;
f.Assign(form1.Image1.Canvas.Font);
GetObject(image1.Canvas.Font.Handle ,sizeof(LF),@LF);
LF.lfEscapement:=300;
LF.lfOrientation:=300;
f.Handle:=CreateFontIndirect(LF);
form1.Image1.Canvas.Font.Assign(f);
image1.Canvas.Font.Color:=clRed;
DrawText(Image1.Canvas.Handle,'jhgg lgh',-1,R,DT_SINGLELINE or DT_VCENTER or DT_CENTER);
end;
ничего не выводит на поверхность ImageBoxа. Где я лоханулся?

[Пепел Феникса]

можно вопрос, а зачем смешивать VCL и API таким методом?
создайте нормально шрифт и его примените к контексту, потом рисуйте

[ipdd]

Сообщение от Пепел Феникса

можно вопрос, а зачем смешивать VCL и API таким методом?
создайте нормально шрифт и его примените к контексту, потом рисуйте

Блин, да у меня задача - выводить на канву имеджбокса текст под наклоном. Стандартными средствами Дельфи это не сделаешь...

[Alex Cones]

под наклоном

CreateFont смотрим MSDN

[Пепел Феникса]

попробуйте избавится от всяких Assign, то есть типа так.

var LF: TLogFont;
R: TRect;
begin
R:=Rect(20,20,120,120);
image1.Canvas.Font.Name:='Arial';
image1.Canvas.Font.Size:=18;
GetObject(image1.Canvas.Font.Handle ,sizeof(LF),@LF);
LF.lfEscapement:=300;
LF.lfOrientation:=300;
image1.Canvas.Font.Handle:=CreateFontIndirect(LF);
image1.Canvas.Font.Color:=clRed;
DrawText(Image1.Canvas.Handle,'jhgg lgh',-1,R,DT_SINGLELINE or DT_VCENTER or DT_CENTER);
end;

например попробуйте так

проверил
рисует.

[ipdd]

Сообщение от Пепел Феникса

попробуйте избавится от всяких Assign, то есть типа так.

проверил
рисует.

Спасибо огромное! Буду ковыряться. Я просто вообще особо не понимаю смысла функции Assign...

[Exception]

Не забывайте уничтожать дескриптор шрифта после отрисовки.
А вообще можно попробовать наложить шрифт на контекст через SelectObject.
Как-то так.

[ipdd]

Сообщение от Exception

через SelectObject.

А можно здесь поподробнее?

[Exception]

Сообщение от ipdd

А можно здесь поподробнее?

var
  hfnt: HFONT;
hfnt := CreateFontIndirect(LF);
if (hfnt <> 0) then
  SelectObject(Image1.Canvas.Handle, hfnt);

[Пепел Феникса]

Exception, TFont его сам уничтожит.(поидее должен, в принципе можно проверить)
а насчет контекста, это значит уходить еще далее в АПИ.