1 (edited by kovalenko 2017-05-04 12:49:32)

Topic: Из ComboBox в Memo

Дмитрий подскажите пожалуйста. У меня (спасибо вам за помощь) есть скрипт

procedure frmApplication_cdComplet_OnCloseUp (Sender: string);
begin
    frmApplication.textcomplet.Lines.Add(frmApplication.cdComplet.Text );
end;

он копирует данные из ComboBox в Memo. Копирование происходит построчно. А можно сделать копирование одной строкой (слово за словом) с переносом по ширине окна Memo?
Дело в чём, при выводе информации в отчёт (печатную форму) из такого поля Memo, информация выводиться столбиком, а визуально удобнее выводить её в одну строку. Что можно придумать?

Post's attachments

Attachment icon mvdar.png 12.96 kb, 239 downloads since 2017-05-04 

надо идти вперёд....

Re: Из ComboBox в Memo

Думаю можно в отчете написать небольшой скрипт, который уберет переносы строк, приложите пожалуйста ваш проект.

Dmitry.

Re: Из ComboBox в Memo

DriveSoft wrote:

Думаю можно в отчете написать небольшой скрипт, который уберет переносы строк, приложите пожалуйста ваш проект.

Отправил.
Спасибо.

надо идти вперёд....

Re: Из ComboBox в Memo

Пожалуйста укажите, где именно отчет в проекте? (имя формы и кнопки)

Dmitry.

Re: Из ComboBox в Memo

DriveSoft wrote:

Пожалуйста укажите, где именно отчет в проекте? (имя формы и кнопки)

frmApplication.Button29 закладка "Приём в ремонт"

надо идти вперёд....

Re: Из ComboBox в Memo

Скачайте пожалуйста последнюю бета версию, добавил в отчеты функцию ReplaceStr
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0


Также удалите это событие в вашем проекте, оно сильно замедляет прорисовку грида

procedure frmOrder_GridOrder_OnColumnResize (Sender: string; ACol: Integer);
begin
    frmOrder_GridOrder_OnChange ('');
end;


Проект отправил на почту.

Dmitry.

Re: Из ComboBox в Memo

DriveSoft wrote:

Скачайте пожалуйста последнюю бета версию, добавил в отчеты функцию ReplaceStr
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0


Также удалите это событие в вашем проекте, оно сильно замедляет прорисовку грида

procedure frmOrder_GridOrder_OnColumnResize (Sender: string; ACol: Integer);
begin
    frmOrder_GridOrder_OnChange ('');
end;


Проект отправил на почту.

Спасибо. Только вопрос, а как данная функция ReplaceStr активируется? Пока ждал от вас ответа работал со своим проектом, после получения от вас файла проверил, всё работает. Запустил свой (пока ждал от вас ответа работал со своим проектом) там данная функция не работает. Что надо сделать?

надо идти вперёд....

Re: Из ComboBox в Memo

kovalenko wrote:
DriveSoft wrote:

Скачайте пожалуйста последнюю бета версию, добавил в отчеты функцию ReplaceStr
https://www.dropbox.com/s/4sb2tk75rauoj … b.zip?dl=0


Также удалите это событие в вашем проекте, оно сильно замедляет прорисовку грида

procedure frmOrder_GridOrder_OnColumnResize (Sender: string; ACol: Integer);
begin
    frmOrder_GridOrder_OnChange ('');
end;


Проект отправил на почту.

Спасибо. Только вопрос, а как данная функция ReplaceStr активируется? Пока ждал от вас ответа работал со своим проектом, после получения от вас файла проверил, всё работает. Запустил свой (пока ждал от вас ответа работал со своим проектом) там данная функция не работает. Что надо сделать?


Всё, отбой))) Разобрался.
Ещё раз спасибо за помощь!!!

надо идти вперёд....