| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как расположить Label вертикально?

rtm ©   (2007-08-14 06:20:00) 

Привет всем, дело в том что мне нужно на выноске разместить Label  в вертикальном положении , как это сделать?
Спасибо заранее.

---

rtm   (2007-08-14 10:55:00) [1]

:) thank

---

{RASkov}   (2007-08-14 10:11:00) [2]

> [5] rtm ©   (14.08.07 10:06)

Вот и молодец ;)
Только... имхо, лучше так:
procedure TForm1.FormPaint(Sender: TObject);
var
lf: TLogFont;
Fn: THandle;
begin
.....
Fn:=CreateFontIndirect(lf);  //Создали
SelectObject(Canvas.Handle, Fnt); //Выбрали
//"Пишем"
DeleteObject(Fn); //Убили
end;

---

rtm   (2007-08-14 10:06:00) [3]

Ясно все, спасибо за ответы, я реализовал следующим методом:

.....
procedure TForm1.FormPaint(Sender: TObject);
var
 lf: TLogFont;
begin
 FillChar(lf, SizeOf(lf), 0);
 with lf do
 begin
   // Высота буквы
   lfHeight := 15;

   // Ширина буквы
   lfWidth := 20;

   // Угол наклона в десятых градуса
   lfEscapement := 100;

   // Жирность 0..1000, 0 - по умолчанию
   lfWeight := 1000;

   // Курсив
   lfItalic := 0;

   // Подчеркнут
   lfUnderline := 1;

   // Зачеркнут
   lfStrikeOut := 1;

   // CharSet
   lfCharSet := RUSSIAN_CharSet;

   // Название шрифта
   StrCopy(lfFaceName, 'Arial');
 end;
 with Form1.Canvas do
 begin
   FillRect(ClipRect);
   Font.Handle := CreateFontIndirect(lf);
   TextOut(0, 100, 'It is a text string');
 end;
end;
.....

---

{RASkov}   (2007-08-14 10:05:00) [4]

> [2] rtm ©   (14.08.07 09:43)

Почему именно TLabel? Можно и в нем сделать.... но смысл? получится также как и с паинтбоксом...рисовать на канве лэйблы потеряв при этом такие вещи как автосайз...

---

Ega23   (2007-08-14 10:01:00) [5]

> Но все же есть метод реализации поворота текста Label на
> заданный угол или я ошибаюсь?


Ошибаешься. Есть CreateFontIndirect из WinAPI, которая может чё хочешь с фонтом на Канвасе сделать

---

rtm   (2007-08-14 09:43:00) [6]

Но все же есть метод реализации поворота текста Label на заданный угол или я ошибаюсь?

---

{RASkov}   (2007-08-14 08:57:00) [7]

> [0] rtm ©   (14.08.07 06:20)

Надпись веритикально? В Лэйбле - никак.
Но можно в паинтбоксе, например, написать вертикально текст с использованием TFontLog....

---

Наверх