Как в компоненте TLabel повернуть текст на 90 градусов?

← →
harismatik (2002-05-27 13:48) [0]

Есть необходимость поместить на форму надпись, но повернутую на 90 градусов против часовой стрелки. Как это сделать?

← →
MBo © (2002-05-27 13:53) [1]

в FAQ

← →
harismatik (2002-05-27 13:57) [2]

Смотрел. Нашел ответ про Canvas? но ничего не понял. Может растолкуете?

← →
SPeller © (2002-05-27 13:57) [3]

2MBo © (27.05.02 13:53)

Мне нравится Ваш стиль ответов: коротко и ясно :-))

← →
SPeller © (2002-05-27 13:59) [4]

harismatik (27.05.02 13:57)

Мож ещё прожевать да проглотить за тебя? :)

← →
harismatik (2002-05-27 14:11) [5]

2 SPeller - Грубиян. Нет, чтоб помочь человеку?
Ну хорошо, напишу я эту функцию согласно примера. А где ее вызывать в компоненте TPanel?

положи paintbox

procedure TForm1.Button6Click(Sender: TObject);
Var
lf: TLogFont;
x0, y0: Integer;
begin
With paintbox1 Do
With Canvas Do Begin
FillRect( ClientRect );
Pen.Color := clBlack;
Pen.Width := 2;
Font.Name := "Arial";
Font.Size := 10;
Font.Style := [fsBold];
x0 := 30;
y0 := Height - 30;
MoveTo( x0, 5 );
LineTo( x0, y0 );
LineTo( Width-5, y0 );
TextOut( x0, y0+5,
"Horizontale Achse" );
GetObject( Font.Handle, Sizeof(lf), @lf );
lf.lfEscapement := 900;
Font.Handle := CreateFontIndirect( lf );
TextOut( x0-TextHeight("A")-5, y0,
"Vertikale Achse" );
DeleteObject( Font.Handle );
Font.Handle := 0;

End;
end;
© Peter Below (TeamB)

Как в компоненте TLabel повернуть текст на 90 градусов? Найти похожие ветки