Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 03.03.2017, 05:52
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Оффтоп: Образно выражаясь на автослесарском арго, так здесь видимо вы на матиску хотите банку камазовского глушака повесить, а она там по типу отвала бульдозера, выдаёт отрицательный дорожный просвет, хоть докатку ставь без домкрата :-)

Всё в соответствии с исходным проектом, формат здесь ни причём, не там просто сохраняете, в Replese_T изначально у аффтора передаётся содержимое "однострочного" едита, а вы туда, увж. Фёдор Федорович "многострочный" вешаете, нарушая логику. Но не это главное, поскольку хоть и задействуется ричедит, но свойство Text едино совершенно для всех компонентов и представляет собой обычную строчку, без элементов форматирования. Не буду долго умничать, времени на это нет, сделаем так же, но немного по-другому, попробуйте совершить небольшое святотатство над копией "первородной" сборки - бросьте на форму рич (или мемо, без разницы), а для издевательств используйте Edit5 - просто результат тогда будет нагляднее, обзовите его в инспекторе как хотите, а ричедиту задайте его бывшее имя т.е Edit5 (это чтоб много-много раз в код новое имя не вбивать, мембрана ведь у клавы не казённая). При выполнении залейте в рич многострочный текст и посмотрите что будет теперь при экспорте документа в ворд, и тогда делайте выводы

З.Ы. Ну и прям "бордюр/поребрик" (если только айпи не врёт ;-) - "перенос каретки" в тексте это вставка ''+#13#10+'' между строк

Добавлено с часок почесав затылок:

Может опять не так задумку понял, вдруг сохранение нужно именно из RichEdit посредством .Lines.SaveToFile() , тогда у рич свойство PlainText необходимо выставить в true

Последний раз редактировалось Alegun, 03.03.2017 в 06:48.
Ответить с цитированием
Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
ffpereverzev (03.03.2017)
  #17  
Старый 03.03.2017, 10:48
Аватар для ffpereverzev
ffpereverzev ffpereverzev вне форума
Новичок
 
Регистрация: 14.02.2017
Сообщения: 50
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Alegun
Оффтоп: Образно выражаясь на автослесарском арго, так здесь видимо вы на матиску хотите банку камазовского глушака повесить, а она там по типу отвала бульдозера, выдаёт отрицательный дорожный просвет, хоть докатку ставь без домкрата :-)

Ну уж...не настолько мне хочется переделать изначальный код...но сравнение интересное...

Цитата:
Сообщение от Alegun
Всё в соответствии с исходным проектом, формат здесь ни причём, не там просто сохраняете, в Replese_T изначально у аффтора передаётся содержимое "однострочного" едита, а вы туда, увж. Фёдор Федорович "многострочный" вешаете, нарушая логику. Но не это главное, поскольку хоть и задействуется ричедит, но свойство Text едино совершенно для всех компонентов и представляет собой обычную строчку, без элементов форматирования. Не буду долго умничать, времени на это нет, сделаем так же, но немного по-другому, попробуйте совершить небольшое святотатство над копией "первородной" сборки - бросьте на форму рич (или мемо, без разницы), а для издевательств используйте Edit5 - просто результат тогда будет нагляднее, обзовите его в инспекторе как хотите, а ричедиту задайте его бывшее имя т.е Edit5 (это чтоб много-много раз в код новое имя не вбивать, мембрана ведь у клавы не казённая). При выполнении залейте в рич многострочный текст и посмотрите что будет теперь при экспорте документа в ворд, и тогда делайте выводы

Заменил. Результат лучше, чем у меня. Заменил TEdit на TRichEdit. При переносе строк в RichEdit такие же переносы обнаружились в экспортируемом документе



Цитата:
Сообщение от Alegun
З.Ы. Ну и прям "бордюр/поребрик" (если только айпи не врёт ;-) - "перенос каретки" в тексте это вставка ''+#13#10+'' между строк

[Оффтоп]Между прочим:
В ГОСТ Р 52767-2007, выпущенном в 2007 г. упоминается бордюр (Высоту бордюра направляющих островков измеряют с использованием уровня по ГОСТ 9392 и измерительной линейки по ГОСТ 427)
А в распоряжении администрации Санкт-Петербурга от 23 сентября 2002 года N 1784-ра "О мерах по усилению контроля за состоянием внешнего благоустройства Санкт-Петербурга" есть строки про поребрик (В местах интенсивного движения пешеходов участки с растительным грунтом вокруг стволов деревьев должны быть покрыты в уровень мощения горизонтальными решетками из литого или кованого металла или ограждаться от плоскости мощения поребриком из естественного или искусственного камня высотой не менее 10 см)
Ответить с цитированием
  #18  
Старый 03.03.2017, 12:34
Аватар для ffpereverzev
ffpereverzev ffpereverzev вне форума
Новичок
 
Регистрация: 14.02.2017
Сообщения: 50
Версия Delphi: Delphi 7
Репутация: 10
Хорошо Вопрос решен!

Ларчик просто открывался! Проблема действительно была в шаблоне. Выяснилось, что необходимо было только установить символ конца абзаца в шаблоне MS Word (жамкнуть кнопочку Enter после метки) и все сразу же встало на место!

Настройка шаблона:



Результат:



Огромное спасибо, Alegun
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:18.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter