Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите создать аналог распределения MessageBox'a

DelphiLexx © (2007-01-10 10:40:00)
Помогите создать аналог распределения текста как у MessageBox'a.
MessageBox умеет делить передаваемый текст на выравненые строки. Мне нужно создать процедуру, которой передается TLabel и максимальная длина.
Т.е. есть
{максимальную ширину} Label.Width := 250 {Задаем текст} Label.Caption := 'Примерный текст, который необходимо выравнить, чтобы от красиво отображался на форме, где будет располагаться Label.Caption'
Должно получиться что-то типа:

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

Loginov Dmitry (2007-01-10 14:55:00) [1]
> Вот то то и оно. Что надо правильно установить св-во Height
> - а как его правильно уставновить?

DrawText с опцией DT_CALCRECT

DelphiLexx (2007-01-10 14:32:00) [2]

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

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

trubin (2007-01-10 13:09:00) [3]
Установить нужные значения TLabel.Width, TLabel.Height, а также не забыть TLabel.Autosize:= False и TLabel.WordWrap:= True;

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

EvChul (2007-01-10 11:29:00) [4]
DelphiLexx © (10.01.07 11:12) [5]
Ну тогда текста не будет видно так он будет за край Width Label'a

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

Игорь Шевченко (2007-01-10 11:14:00) [5]

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

DrawText с опцией DT_WORDBREAK

DelphiLexx (2007-01-10 11:12:00) [6]

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

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

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

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

DelphiLexx (2007-01-10 10:54:00) [8]

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

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

Dmitrij_K (2007-01-10 10:51:00) [9]
WordWrap включи

EvChul (2007-01-10 10:50:00) [10]
А чем не устраивает св-во WordWrap ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »