Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
ВнизКак в компоненте 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?
← →
MBo (2002-05-27 14:26) [6]положи 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)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c