посоветуйте компонент

← →
Petr V. Abramov © (2007-01-05 19:06) [0]

Label с возможностью вертикального вывода текста, для D7.
надо быстро прототипчик одной вещи сваять, поэтому подойдут любые и сограниченным сроком действия :)

← →
vidiv © (2007-01-05 19:11) [1]

вертикльного, в смысле???

т
а
к
?
?
?

← →
Palladin © (2007-01-05 19:11) [2]

http://www.google.ru/search?hl=ru&q=%D0%B2%D1%8B%D0%B2%D0%BE%D0%B4+%D1%82%D0%B5%D0%BA%D1%81%D1%82%D0%B0+%D0%BF%D0%BE%D0%B4+%D1%83%D0%B3%D0%BB%D0%BE%D0%BC+delphi&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=

← →
$Pl@Sh © (2007-01-05 19:27) [3]

> vidiv © (05.01.07 19:11) [1]
>
> вертикльного, в смысле???
>
> т
> а
> к
> ?
> ?
> ?
>

ЭТот компонент можно найти на дельфимастере :-)

← →
vidiv © (2007-01-05 19:29) [4]

> ЭТот компонент можно найти на дельфимастере :-)

Да его и сделать 3 минуты

← →
vidiv © (2007-01-05 19:43) [5]

type
TLabel = class (StdCtrls.TLabel)
private
FCaption:TCaption;
procedure SetCaption(const Value: TCaption);
public
property Caption: TCaption read FCaption write SetCaption;
end;

procedure TLabel.SetCaption(const Value: TCaption);
var S:String;
I:Integer;
begin
if length(Value) > 1 then begin

SetLength(S, length(Value)*2 - 1);
FillChar( PChar(S)^, length(S), #13);
for I:=1 to length(Value) do
S[I*2-1] := Value[I];
inherited Caption := S;
end else begin
inherited Caption := Value;
end;
FCaption := Value;
end;

← →
Petr V. Abramov © (2007-01-05 20:28) [6]

нет, почти так, только буквы на боку

← →
Юрий Зотов © (2007-01-05 20:36) [7]

Петь, проще сделать самому - CreateFontIndirect, а там в LogFont есть lfOrientation. Но работает только для TrueType, насколько помню.

← →
Petr V. Abramov © (2007-01-05 20:39) [8]

> Юрий Зотов © (05.01.07 20:36) [7]
а в какой момент этот CreateFontIndirect вызывать???
я думаешь помню эьл все, тем более что и знал не особо хорошо :)))

> Юрий Зотов © (05.01.07 20:36) [7]

Угу, проверял на tMyPanel работает. Выводит как надо. Работает как и полагается только с векторными шрифтами.

> а в какой момент этот CreateFontIndirect вызывать???

В Paint.

может, кто все ж готовый присоветует
отрисовкой-то самостоятельно заниматься, оно того...

злые вы :)))))))))))))))

посоветуйте компонент Найти похожие ветки