Скачать: CL | DM;

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

← →
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 вызывать???
я думаешь помню эьл все, тем более что и знал не особо хорошо :)))

---

← →
tesseract ©   (2007-01-05 21:08) [9]

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


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

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


В Paint.

---

← →
Petr V. Abramov ©   (2007-01-05 21:11) [10]

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

---

← →
Petr V. Abramov ©   (2007-01-06 04:09) [11]

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.033 c