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

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

Где найти Label с вертикальным направлением текста?

Ross ©   (2002-02-15 21:08:00) 

Подскажите, где найти Label с вертикальным направлением текста?

---

Ross   (2002-02-15 22:36:00) [1]

то Юрий Зотов (M) (15.02.02 21:51)
Не могли вы бы поподробнее разъяснить
Спасибо.

---

Юрий Зотов (M)   (2002-02-15 21:51:00) [2]

CreateFontIndirect.

Выведет действительно вертикальный текст и сработает на пару порядков быстрее.

---

Ross   (2002-02-15 21:32:00) [3]

Спасибо огромное

---

Анонимщик   (2002-02-15 21:28:00) [4]

Создай класс TRossVerticalLabel и будет тебе лэйба с вертикальным направлением текста. А вообще такого рода пургу ищи на www.torry.ru


type
TRossVerticalLabel = class(TLabel)
protected
procedure Paint; override;
end;

implementation

procedure TRossVerticalLabel.Paint;
var
i : Integer;
fullHeight: Integer;
maxWidth : Integer;
begin
fullheight := 0;
maxWidth := 0;

if Length(Caption) > 0 then
begin
Canvas.TextOut(0, 0, Caption[1]);
fullHeight := Canvas.TextHeight(Caption[1]);
maxWidth := Canvas.textWidth(Caption[1]);
end;

for i := 2 to Length(Caption) do
begin
Canvas.TextOut(0, fullHeight, Caption[i]);
fullHeight := fullHeight + Canvas.TextHeight(Caption[i]);
if maxWidth < Canvas.TextWidth(Caption[i]) then
maxWidth := Canvas.TextWidth(Caption[i]);
end;

if AutoSize then
begin
Width := maxWidth;
Height := fullHeight;
end;

end;

end.

---

Наверх