Скачать: CL | DM;

как перевернуть 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 и понеслась душа на любое количество градусов, правда, все это громоздко.

---

← →
VAleksey ©   (2004-04-16 13:15) [5]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c