[sorockinalex]

http://zalil.ru/33871739

Код:

  //вызов сообщения об удалении записи
  ChangesMsg('переменная1<BR>переменная2<BR>переменнаяN','','Удалить?');
  //вызов сообщения о добавлении записи
  ChangesMsg('переменная1<BR>переменная2<BR>переменная3<BR>переменнаяN','','');
  //вызов сообщения о изменении записи
  ChangesMsg('переменная1<BR>переменная2<BR>переменнаяN','переменная1<BR>переменная2<BR>переменная3<BR>переменнаяN','');

Если указан только первый параметр, второй не указан, то указав третий параметр он становится как Caption окна.
Если указан только первый параметр - то это запрос на добавление
Если указаны первые два параметра, а третий пустой - то это запрос на изменение
Результат выполнения- Yes=True, No=false

Пользуйтесь с удовольствием, кому пригодится, сегодня весь день убил на него )))

[poli-smen]

Сообщение от sorockinalex

Пользуйтесь с удовольствием, кому пригодится, сегодня весь день убил на него )))

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

[sorockinalex]

ой, блин, извиняюсь забыл совсем

[sorockinalex]

вот архив:
http://zalil.ru/33871630

[poli-smen]

Сообщение от sorockinalex

вот архив:
http://zalil.ru/33871630

К сожалению в этом архиве нет самого главного - собственно самого модуля UChangesMsg.pas.

Вот содержимое этого архива:

ChangesMsg.cfg
ChangesMsg.dof
ChangesMsg.dpk
ChangesMsg.res

[sorockinalex]

блин, точно спать уж пора, башка как не варит уже
http://zalil.ru/33871656

[poli-smen]

Сообщение от sorockinalex

блин, точно спать уж пора, башка как не варит уже
http://zalil.ru/33871656

Теперь нет файла "UDataModule.pas" и иконок "tpm.ico", "arrrght.ico", "apply.ico", "close.ico".

Файл я смог восстановить (как я понял в нём только одна функция "StrBreakApart" взятая >>отсюда<<), а вот иконки не восстановил...

[sorockinalex]

Код:

procedure StrBreakApart(const S, Delimeter: string; Parts: TStrings);
begin
  Parts.text:=StringReplace(S, Delimeter, #13#10, [rfReplaceAll, rfIgnoreCase]);
end;

[sorockinalex]

с иконками и процедурой StrBreakApart - разбивает строку, разделённую разделителем и пишет её в StringList
http://zalil.ru/33871739

[poli-smen]

Сообщение от sorockinalex

с иконками и процедурой StrBreakApart - разбивает строку, разделённую разделителем и пишет её в StringList
http://zalil.ru/33871739

Теперь всё заработало. Есть у меня несколько замечаний, но это уже с утра на свежую голову.

[sorockinalex]

проблема - когда первый столбец достаточно широк, определение ширины окна работает неправильно, так как канва текущего label ограничивается канвой формы ((( придётся расширять форму прежде, а потом её снова уменьшать...

завтра надо будет сделать ещё первый столбец названий переменных, например:
Фамилия
Имя
Отчество

а уж потом эти два с самими старыми и новыми значениями...

[sorockinalex]

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

вот ещё - надо будет сделать отображение красным цветом текста, изменённого значения

[poli-smen]

Сообщение от poli-smen

Теперь всё заработало. Есть у меня несколько замечаний, но это уже с утра на свежую голову.

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

[sorockinalex]

думал над этим, но отказался, так как подгрузить иконки текущим способом гораздо проще, чем каждый раз генерировать файл ресурсов при написании очередного модуля bpl, программа состоит из модулей и с возможностью их наращивания

[poli-smen]

Сообщение от sorockinalex

думал над этим, но отказался, так как подгрузить иконки текущим способом гораздо проще, чем каждый раз генерировать файл ресурсов при написании очередного модуля bpl, программа состоит из модулей и с возможностью их наращивания

Честно говоря не понял зачем нужно при написании очередного модуля bpl обязательно генерировать заново файл ресурсов. Достаточно один раз создать res-файл с этими четырмя иконками и генерировать заново только если захочется изменить внешний вид одной из этих иконок.