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

Помогите создать аналог распределения MessageBox a   Найти похожие ветки 

← →
DelphiLexx ©   (2007-01-10 10:40) [0]

Помогите создать аналог распределения текста как у  MessageBox"a.
MessageBox умеет делить передаваемый текст на выравненые строки. Мне нужно создать процедуру, которой передается TLabel и максимальная длина.
Т.е. есть

{максимальную ширину}
Label.Width := 250
{Задаем текст}
Label.Caption := "Примерный текст, который необходимо выравнить, чтобы от красиво отображался на форме, где будет располагаться Label.Caption"

Должно получиться что-то типа:

Примерный текст, который необходимо выравнить,
чтобы от красиво отображался на форме, где буд
ет располагаться Label.Caption

---

← →
EvChul ©   (2007-01-10 10:50) [1]

А чем не устраивает св-во WordWrap ?

---

← →
Dmitrij_K   (2007-01-10 10:51) [2]

WordWrap включи

---

← →
DelphiLexx ©   (2007-01-10 10:54) [3]

> А чем не устраивает св-во WordWrap?

А тем, что оно выравнивает криво. Использую WordWrap я не могу управлять управлять максимальной шириной текста

---

← →
EvChul ©   (2007-01-10 10:57) [4]

DelphiLexx ©   (10.01.07 10:54) [3]
А тем, что оно выравнивает криво. Использую WordWrap я не могу управлять управлять максимальной шириной текста

Это еще посему? Управлять шириной текста ты можешь при помощи св-ва Width.

---

← →
DelphiLexx ©   (2007-01-10 11:12) [5]

> Это еще посему? Управлять шириной текста ты можешь при помощи
> св-ва Width

Ну тогда текста не будет видно так он будет за край Width Label"a

---

← →
Игорь Шевченко ©   (2007-01-10 11:14) [6]

> Помогите создать аналог распределения текста как у  MessageBox"a.


DrawText с опцией DT_WORDBREAK

---

← →
EvChul ©   (2007-01-10 11:29) [7]

DelphiLexx ©   (10.01.07 11:12) [5]
Ну тогда текста не будет видно так он будет за край Width Label"a

А это потому, что нужно еще правильно установить св-во Height.

---

← →
trubin ©   (2007-01-10 13:09) [8]

Установить нужные значения TLabel.Width, TLabel.Height, а также не забыть TLabel.Autosize:= False и TLabel.WordWrap:= True;

Или выводить текст на канве окна, как указал
> Игорь Шевченко ©   (10.01.07 11:14) [6]

---

← →
DelphiLexx ©   (2007-01-10 14:32) [9]

> А это потому, что нужно еще правильно установить св-во Height.

Вот то то и оно. Что надо правильно установить св-во Height - а как его правильно уставновить?

---

← →
Loginov Dmitry ©   (2007-01-10 14:55) [10]

> Вот то то и оно. Что надо правильно установить св-во Height
> - а как его правильно уставновить?


DrawText с опцией DT_CALCRECT

---

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

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



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