Topic: Финальная версия 5.0

Версия 5.0


Скачать: http://myvisualdatabase.com/download/myvisualdb.exe



Что нового:
- Новый компонент RichEdit, с широкими возможностями для редактирования текста
http://myvisualdatabase.com/forum/misc.php?action=pun_attachment&item=4714&download=0


- Новое свойство для формы ShowOnTaskbar


- Сортировка данных теперь на клиенте, что повысило скорость запросов к БД


- Добавлены функции для работы с ZIP архивами

  if CompressZipDirectory('d:\Folder\', 'd:\filename.zip') then ShowMessage('ok');
  if CompressZipFile('d:\filename.ext', 'd:\filename.zip') then ShowMessage('ok');
  ExtractZipFile('d:\filename.zip', 'd:\foldername');

- Добавлен метод ExportToExcel для компонента TableGrid

Form1.TableGrid1.ExportToExcel; // данные из TableGrid будут открыты в Excel
Form1.TableGrid1.ExportToExcel('d:\file.xlsx'); // данные из TableGrid будут открыты в Excel и сохранены в файл
Form1.TableGrid1.ExportToExcel('d:\file.xlsx', False); // данные из TableGrid будут сохранены файл

- Добавлено событие OnGetMonthBoldInfo для компонента Calendar
пример: http://myvisualdatabase.com/forum/viewt … 560#p27560


- Множество других доработок и исправления ошибок.

Post's attachments

Attachment icon RichEdit.png 86.95 kb, 231 downloads since 2018-11-05 

Dmitry.

Re: Финальная версия 5.0

шикарно!

Re: Финальная версия 5.0

в свойствах  RichEdit выбираю  ReadOnly:=True;  не срабатывает...   текст все равно можно писать...

Re: Финальная версия 5.0

sibprogsistem wrote:

в свойствах  RichEdit выбираю  ReadOnly:=True;  не срабатывает...   текст все равно можно писать...

Спасибо, исправил, скачайте снова.

Dmitry.

Re: Финальная версия 5.0

1. Если отображаем содержимое поля RichEdit из БД в табличном виде, то в ней отображается служебный код вперемешку с содержимым.
А надо бы, чтобы выводилось только текстовое содержимое.
2. Есть ли способ из скрипта получить текстовое содержимое RichEditа, чтобы в тексте выполнить, например, поиск или замену?
3. Можно ли послать содержимое выполненного отчета (со всем форматированием) в поле RichEdit , чтобы можно было отредактировать полученный документ и сохранить его в БД?

Re: Финальная версия 5.0

1. Для этого в отчетах вам необходимо использовать компонент "RichText object", чтобы можно было выводить многострочный текст, установите его свойство StretchMode = smMaxHeight, также необходимо назначит эту компоненту свойство DataSet = Report, DataField = "ваше поле БД"


по другим вопросам отвечу чуть позже, т.к. интеграция компонента в систему все еще в процессе.

Dmitry.

Re: Финальная версия 5.0

mikhail_a wrote:

2. Есть ли способ из скрипта получить текстовое содержимое RichEditа, чтобы в тексте выполнить, например, поиск или замену?
3. Можно ли послать содержимое выполненного отчета (со всем форматированием) в поле RichEdit , чтобы можно было отредактировать полученный документ и сохранить его в БД?


Скачайте пожалуйста бета версию снова.


2. Можно

Form1.RichEdit1.Text;

3. Можно отчет сохранить как файл в формате RTF, затем открыть его в RichEdit
Form1.RichEdit1.LoadRTF('file.rtf');


Сделал для вас проект с примером:

Post's attachments

Attachment icon Report to RichEdit.zip 8.09 kb, 375 downloads since 2018-11-12 

Dmitry.

Re: Финальная версия 5.0

Дмитрий,
Скачал бета-версию снова (самая верхняя ссылка в этой ветке), но компиляция ругается на
    frmEmployee.RichEdit1.Clear;
    frmEmployee.RichEdit1.LoadRTF(sFile);
Т.е. в этой бете этих свойств еще нет.
Выложите, пожалуйста, свежую версию.

Re: Финальная версия 5.0

mikhail_a wrote:

Дмитрий,
Скачал бета-версию снова (самая верхняя ссылка в этой ветке), но компиляция ругается на
    frmEmployee.RichEdit1.Clear;
    frmEmployee.RichEdit1.LoadRTF(sFile);
Т.е. в этой бете этих свойств еще нет.
Выложите, пожалуйста, свежую версию.

Скачал, проверил, работает. Попробуйте скачать снова, возможно вы просто перепутали папки и используете не самую последнюю версию.

Dmitry.

Re: Финальная версия 5.0

Да, работает!
Спасибо огромное!
Выглядит так, как будто отчет выводится в RichEdit.
И его можно редактировать!

Re: Финальная версия 5.0

При покраске ячейки в цвет  есть баг. Использую такой код:

procedure Main_TableGrid2_OnChange (Sender: TObject);
var
   i,c: integer;
begin
     c := Main.TableGrid2.RowCount-1; 
     for i := 0 to c do
     begin
          if  Pos('3', Main.TableGrid2.Cells[0,i])>0 then Main.TableGrid2.Cell[0,i].Color := clRed;
     end;

   При условии что форма Main является стартовой и TableGrid на ней является по сути индикатором для отображения статуса, а добавление в бд происходит на третьей форме (Mai=>раздел с TableGrid с полными данными=>добавление записи) покраска ячейки во время добавления записи не происходит. Причем на второй форме (раздел с TableGrid с полными данными) изменения отображаются правильно, а на форме Main в TableGrid появляется только значение а покраска не происходит. После перезапуска или изменения статуса записи покраска происходит корректно. Откатился на версию 4,6 проблема устранилась.

Re: Финальная версия 5.0

Заметил, что при наведении на кнопку RichEdit (на панели инструментов) не всплывает подсказка

Re: Финальная версия 5.0

zc13569 wrote:

Заметил, что при наведении на кнопку RichEdit (на панели инструментов) не всплывает подсказка

Спасибо, поправил.

Dmitry.