Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2010, 15:59   #1
Polotenchik
Форумчанин
 
Аватар для Polotenchik
 
Регистрация: 04.12.2008
Сообщений: 260
По умолчанию Компонент label c выравниванием по ширине

Подскажите есть ли замена компоненту label с выравниванием текста по ширине? Или может можно это сделать как-то в стандартном label?
Я бы изменил мир, но Бог не дает исходники...
Polotenchik вне форума Ответить с цитированием
Старый 18.02.2010, 16:31   #2
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

У тебя есть идеи ?
Просто хоть что-то должно быть.

Итак. Если выравнивать (растягивать по ширине) нужно красиво, то нужно выводить текст (по словам) на канву Label.
А сам алгоритм можно почерпнуть в исходнике от Григорьева Антона, который он написал для "Королевства Делфи" еще очень давно. Я его использовал несколько раз - просто суперрр. Суть его в переносе русских слов согласно правилам русского языка (без использования словарей и т.п.), но тебя пока что это не должно интересовать. Там для тебя есть подход вывода строки с помощью TextOut (в процедуре PBoxPaint) как раз растягивая (именно пробелами между словами) по ширине.
Прикрепляю оригинальный исходник.
Очень полезная вещь для дальнейшего использования.
Вложения
Тип файла: zip bywidth.zip (189.4 Кб, 80 просмотров)
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
игры по ширине не на весь экран batist65 Свободное общение 6 19.02.2009 11:56
При расположении Label на компонентах, место под Label, не реагирует на событие onClick. NavigatorNeba Компоненты Delphi 3 15.11.2008 19:56
текст в richedit по ширине *Devil* Компоненты Delphi 1 15.06.2007 16:27
выравнивание текста по ширине Алёна Общие вопросы Delphi 6 18.04.2007 11:31
Вопрос по label. Как сделать так чтобы label была прозрачной. Lonix Компоненты Delphi 2 01.04.2007 06:23