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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.11.2010, 12:15   #1
Agafon
Пользователь
 
Регистрация: 09.11.2010
Сообщений: 12
По умолчанию Автоматический перенос строк

Здравствуйте. Подскажите пожалуйста, как сделать автоматический перенос строк. Смысл вот в чем. Я формирую строку и измеряю её длину в пикселях, скажем она получилась 1800 пикселей. Далее я хочу сделать вот что, при выводе в окно, у которого ширина 600 пикселей, происходил автоматический перенос слова на нижнюю строчку и начинала заполняться вторая строка, и так далее пока вся сформированная строка не выведется в окно.

Примерно выглядит так:
string:=edit1.text; //Формирую строку
GetTextExtentPoint32 (memDC, PChar (st), Length (st), size); //Узнаю размеры.
Далее надо сделать проверку длины и перенос, если выходит за размеры:

if size.cx>600 then
begin
//а что тут писать не понимаю, подскажите пожалуйста.
end;
Agafon вне форума Ответить с цитированием
Старый 12.11.2010, 12:19   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от Agafon Посмотреть сообщение
Далее я хочу сделать вот что, при выводе в окно
В какое-такое окно ?
Видимо, в какой-то компонент ? В какой ?
mihali4 вне форума Ответить с цитированием
Старый 12.11.2010, 12:26   #3
_SERGEYX_
Участник клуба
 
Аватар для _SERGEYX_
 
Регистрация: 07.07.2007
Сообщений: 1,518
По умолчанию

А не проще ли для вывода этой строки использовать компонент у которого есть свойство WordWrap?
_SERGEYX_ вне форума Ответить с цитированием
Старый 12.11.2010, 12:38   #4
Agafon
Пользователь
 
Регистрация: 09.11.2010
Сообщений: 12
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
В какое-такое окно ?
Видимо, в какой-то компонент ? В какой ?
Окно - это просто другой эдит, у которого ширина 600 рх.

Использовать WordWrap мне не нужно, мне надо просто узнать сколько раз произойдет перенос.

Если были подобные обсуждения можно получить ссылку на них? Или где можно почитать об этом?

Последний раз редактировалось Agafon; 13.11.2010 в 11:58.
Agafon вне форума Ответить с цитированием
Старый 14.11.2010, 01:31   #5
Angel of Live
 
Аватар для Angel of Live
 
Регистрация: 12.11.2010
Сообщений: 6
Радость

В общем, заинтриговал ваш вопрос. Посидел, подумал..
Результат прикреплен в архиве.
В общем то работает, но иногда цикл повисает, к сожалению времени уже 1.30 ночи и хочется спать, мозг выключается, так что выкидываю как есть, думаю вы сами доработаете.
Удачи.
Вложения
Тип файла: rar Project1.rar (172.8 Кб, 8 просмотров)
Angel of Live вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматический перенос строк из одного листа в другой dom_sveta Microsoft Office Excel 13 09.04.2020 20:04
Выборка строк с определенной меткой из одной таблицы и автоматический перенос в новую таблицу. dk01 Microsoft Office Excel 28 30.01.2011 18:16
Автоматический перенос строк из одного листа в другой лист Результат maksvas Microsoft Office Excel 4 22.10.2010 14:03
Автоматический перенос файла Neymexa Помощь студентам 1 05.04.2010 11:50
Автоматический перенос информации из Листов... belarusone Microsoft Office Excel 5 06.08.2009 12:39