Помогите создать аналог распределения 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.

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

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

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

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

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

DrawText с опцией DT_CALCRECT

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