Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как в компоненте TLabel повернуть текст на 90 градусов? [D5, Win95/98, Win2k]

harismatik © (2002-05-27 13:48:00)
Есть необходимость поместить на форму надпись, но повернутую на 90 градусов против часовой стрелки. Как это сделать?

MBo (2002-05-27 14:26:00) [1]
положи 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)

harismatik (2002-05-27 14:11:00) [2]
2 SPeller - Грубиян. Нет, чтоб помочь человеку?
Ну хорошо, напишу я эту функцию согласно примера. А где ее вызывать в компоненте TPanel?

SPeller (2002-05-27 13:59:00) [3]
harismatik (27.05.02 13:57)

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

harismatik (2002-05-27 13:57:00) [4]
Смотрел. Нашел ответ про Canvas? но ничего не понял. Может растолкуете?

SPeller (2002-05-27 13:57:00) [5]
2MBo © (27.05.02 13:53)

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

MBo (2002-05-27 13:53:00) [6]
в FAQ

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »