Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];
ВнизГде найти 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c