Помогите пожалуйста. Я написалкод который виводит текст под углом

← →
Beka (2002-03-05 11:51) [0]

Помогите пожалуйста. Я написалкод который виводит текст под углом

procedure TForm1.Button1Click(Sender: TObject);
var
lf: TLogFont;
begin
with lf do begin
lfHeight := 15;
lfWidth := 20;
lfEscapement := 100;
lfWeight := 1000;
lfCharSet := RUSSIAN_CharSet;
StrCopy(lfFaceName, "Arial");
end;
with image1.Canvas do begin
FillRect(ClipRect);
Font.Handle := CreateFontIndirect(lf);
TextOut(0, 100, "It is a text string");
end;

После етого как сделать так чтоби на Button2.click выводилось обычный текст , т. е. Не TLogFont а String.

← →
MBo (2002-03-05 12:58) [1]

oldh:thandle;

with image1.Canvas do begin
FillRect(ClipRect);
oldh:=font.handle;
Font.Handle := CreateFontIndirect(lf);
TextOut(0, 30, "It is a text string");
font.handle:=oldh;
end;
и еще не забудь DeleteObject

Помогите пожалуйста. Я написалкод который виводит текст под углом Найти похожие ветки