вращение текста

[ксона]

помогите с вращением текста,совсем не получается. один раз выводится под углом и всё. не получается наращивание угла.надо чтоб выводился не один раз, а вращался.

procedure TForm1.Button1Click(Sender: TObject);
var
Font : hFont;
LogFont : TLogFont;
F : TFont;
begin
FillChar(LogFont, SizeOf(LogFont), 0);
With LogFont do
Begin
lfHeight := 12;
lfOrientation := 150;
lfEscapement := 150;не получается наращивание 
lfWeight := FW_REGULAR;
End;
Font := CreateFontIndirect(LogFont);
F := TFont.Create;
F.Handle := Font;
Canvas.Font:= f;
Canvas.TextOut(200, 100, 'делфи');
DeleteObject(Font);
end;

помогите найти информацию LOGFONT В КНИГАХ нет нигде

//Не стесняйтесь нажимать кнопку #, при оформлении кода. Модератор

[Stilet]

Так пойдет?

procedure TForm1.Timer1Timer(Sender: TObject);
var t:tagLOGFONTA;   hf:HFONT;   f:TFont;
begin
inc(ang,30);
with t do begin
Begin
 lfHeight := 20;
 lfOrientation := 150;
 lfEscapement := ang;
 lfWeight := FW_REGULAR;
End;
end;
hf:=CreateFontIndirect(t);
F := TFont.Create;
F.Handle := hf;
Canvas.Font:= f;
Canvas.TextOut(200, 100, 'äåëôè');
DeleteObject(hf);
end;

[ксона]

да спасибо!я исправила
и текст начал вращаться.а не подскажете как сделать чтоб новый текст вывелся а старый стёрся. надо стирать canvas?не подскажете где можно почитать о logfont?и ещё- эти подчёркивание.,зачёркивания...(где убрать?пробую и никак)

[Stilet]

Ну просто выводи старый текст цветом канвы.