как перевернуть Tlabel ?

← →
Dysan © (2004-04-16 12:12) [0]

подскажите как перевернуть Tlabel в вертикальное положение?

← →
KSergey © (2004-04-16 12:13) [1]

В смысле буквы тоже повернуть на 90 градусов? Тогда только сторонние компоненты - родная так не умеет
Либо в обычной - русками рисовать, книжки читать

← →
Dysan © (2004-04-16 12:17) [2]

да, на 90 градусов
где то видел, правда давно такие трюки, но вот где уже не помню :(

← →
Cosinus © (2004-04-16 12:37) [3]

Может не совсем то, но все же...
Посмотри в факах здесь или на delphiworld - где то был пример, как вывести вертикальный текст, если не обязательно Label нужен - может и прокатит... Задавай в поиск что-нибудь типа "вертикальный"

← →
ASMiD (2004-04-16 13:01) [4]

В TLabel вряд-ли получится, а в любом Canvas создаеш фонт CreateFontIndirect и понеслась душа на любое количество градусов, правда, все это громоздко.

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 := 900;//угол поворота желательно, чтобы совпадал со lfEscapement := 900;//значением этой переменной. В данном случае это 15" lfWeight := FW_REGULAR; //к примеру жирный - FW_BOLD; lfCharSet := RUSSIAN_CHARSET;//тут я думаю понятно StrCopy(lfFaceName, "Arial");//здесь - имя шрифта End; Font := CreateFontIndirect(LogFont); F := TFont.Create;//создаем экземпляр объекта F.Handle := Font; Canvas.Font := F; Canvas.Brush.Color := Color; Canvas.TextOut(300, 100, "Font Demo"); //рисуем на формк F. Free;// DeleteObject(Font);//освобождаем память, удаляя объект... end;

как перевернуть Tlabel ? Найти похожие ветки