Back
...

Subject: Re: TTF
Date: Wed, 29 Jul 98 06:41:40 +0300
From: "Michael L. Stepuchev" <Michael.L.Stepuchev@f400.n5020.z2.fidonet.org>
Organization: Sterling Group Prognoz Ltd.
Newsgroups: fido.ru.delphi
References: 1

From: "Michael L. Stepuchev" <mike@prognoz.ru>

Hi, Konstantin Andrianov.

Konstantin Andrianov wrote:
>
> Подскажите, кто сталкивался, как на канвасе выводить надписи TTF-ами под
> любым углом(ну, хотя бы веpтикально). Мож есть какие-нить компоненты у кого
или

Смотри:
[-------------]
var
lf: TLogFont;
begin
GetObject(Canvas.Font.Handle, SizeOf(TLogFont), @lf);
lf.lfEscapement := 900;
lf.lfOrientation := 900;
Canvas.Font.Handle := CreateFontIndirect(lf);
Canvas.TextOut(x, y, 'Тра-ля-ля');
DeleteObject(Canvas.Font.Handle);
[-------------]

--
Sincerely yours,
Michael L. Stepuchev.
e-mail: mike@prognoz.ru

23.01.99 20:00:15