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

Вниз

label   Найти похожие ветки 

← →
limk   (2003-11-14 18:36) [0]

возможно ли в метке писать вертикально?

---

← →
dataMaster ©   (2003-11-14 18:40) [1]

Первое, что пришло в голову:

procedure VertLabCap(L: Tlabel; s: string);
var
k: integer;
c: string;
begin
c:="";
for k:=1 to Length(s) do
c:=c+s[k]+#13;
L.Caption:=c;
end;

---

← →
willys ©   (2003-11-14 18:48) [2]

смотри хелп на CreateFontIndirect

---

← →
limk   (2003-11-14 18:50) [3]

>
> dataMaster
чмоооооок....;)

---

← →
TUser ©   (2003-11-14 19:02) [4]

Лучше не в метке, а на канве. Там все можно.

---

← →
Mihey ©   (2003-11-14 20:38) [5]

Лучше не выделываться, а скачать готовое VCL решение.

---

← →
Eagle Owl ©   (2003-11-14 21:41) [6]

> Mihey © (14.11.03 20:38)

Во-во, нечего велосипед изобретать...
Хотя самому голову поломать тоже можно для общего развития...

---

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

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

Наверх

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