Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

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

 
Ross ©   (2002-02-15 21:08) [0]

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


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

Создай класс 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.


 
Ross ©   (2002-02-15 21:32) [2]

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


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

CreateFontIndirect.

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


 
Ross ©   (2002-02-15 22:36) [4]

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



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

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-9278
Сергей Чурсин
2001-08-07 19:14
2002.03.04
---|Ветка была без названия|---


3-9071
latvija
2002-02-06 14:53
2002.03.04
Господа програмисты подскажите кто знает .


3-9078
Jhonny
2002-02-07 07:07
2002.03.04
Максимальное значение кода в базе данных


1-9238
greenrul
2002-02-14 19:34
2002.03.04
Какая О.С. - идеальная для Delphi5 , если комп не особо мощен


1-9127
grab
2002-02-16 21:21
2002.03.04
заполнение ListBox