ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TcxDBTreeList: привязать обработчики определённых событий Runtime
25 сообщений из 29, страница 1 из 2
  1  все
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39817934
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
Доброго времени суток всем!
Есть приложение (клиент) и сервер MS SQL (сервер).
Завис над проблемой, просьба поделится любыми идеями по её поводу, пожалуйста.
Суть:
1. Есть поля в дереве (TcxDBTreeList), которые в runtime создаются, на основании данных в БД. Назовём этот набор полей словом "макет".
2. Необходимо для некоторых полей макета (в БД можно добавить всё что угодно, при необходимости) нужно в runtime добавить обработчики определённых событий. Причём код обработчика зависит от наименования поля. Также он зависит от значения других полей. Например, если колонка "A" = 0, то колонку "B" нужно покрасить в красный цвет.

Даже если я для каждого поля в коде (клиента) напишу свои процедуры (обработчик событий) - как их корректно "прилепить" к конкретным полям дерева?

Пока вижу только вариант хардкода - проверять названием поля (вот и вопрос ещё- а где именно?) и если оно соответствует нужному полю - присваивать обработчику нужного события этого поля - имя конкретной процедуры.

Но может есть идеи по поводу более красивого решения?

Спасибо!
...
Рейтинг: 0 / 0
24.05.2019, 17:37
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39817993
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Вариант 1.
Возвращать одним запросом настройку колонок, а другим данные. Если компоненты доступа поддерживают несколько датасетов, то можно и в одном
Очень ограниченный вариант, в программе нужно реализовать несколько вариантов обработок, корые будут назначаться в зависимости от настроек.

Вариант 2
Загнать форму со всеми компонентами в базу, создавать её динамически и крутить код формы скриптом. В скрипте можно реализовать любую отрисовку.
Довольно сложный путь. Не приходится рассчитывать на быструю работу клиента. Но в настольных DB приложениях это обычно и не нужно.
...
Рейтинг: 0 / 0
24.05.2019, 20:03
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39817999
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBr,

В запросе "одном", как раз и получаю список полей, для дерева, из БД. О данных никакой речи не идёт. Это, есс-но, отдельный запрос в отдельный датасет и его привязка к дереву есть DesignTime.
Вопрос в другом: как в RunTime к полю дерева привязать нужный обработчик события, например, OnGetDisplayText.
Суть задачи - для некоторых полей или их скрывать, или менять шрифт, или красить фон цветом и т.д.
Т.е. даже если есть некоторые нарисованные поля DesignTime, я при выборе "макета" всё существующие удаляю и генерирую новые на основании списка полей в БД.
Так вот у всех новых, созданных, полей дерева названия тоже новые. Вот сейчас пробую при создании присваивать нужные названия полям (дерева в клиенте) и потом, проверяя их имена, задавать хардкодом нужные обработчики события OnGetDisplayText (мне нужно тупо обнулить текст), дабы не плодить в БД отдельные поля, которые будут пустыми, в зависимости от логики.
...
Рейтинг: 0 / 0
24.05.2019, 20:26
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818001
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBrВариант 1.
Возвращать одним запросом настройку колонок, а другим данные. Если компоненты доступа поддерживают несколько датасетов, то можно и в одном
Очень ограниченный вариант, в программе нужно реализовать несколько вариантов обработок, корые будут назначаться в зависимости от настроек.

Вариант 2
Загнать форму со всеми компонентами в базу, создавать её динамически и крутить код формы скриптом. В скрипте можно реализовать любую отрисовку.
Довольно сложный путь. Не приходится рассчитывать на быструю работу клиента. Но в настольных DB приложениях это обычно и не нужно.
А вариант 2 не подходит, ибо форма уже есть одна, статичная, в ней меняется только список полей (точнее создаётся динамически) дерева TcxDBTreeList. И список его полей таки и хранится в БД. Вот только как обработчики событий в БД сохранить и RunTime восстановить - это вопрос.
p.s. Под хранением "формы в БД" - имелся в виду *.dfm?
...
Рейтинг: 0 / 0
24.05.2019, 20:29
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818003
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBrВариант 1.
Очень ограниченный вариант, в программе нужно реализовать несколько вариантов обработок, корые будут назначаться в зависимости
Вот я о том в начальном посте и писал - что только хардкод. Не хватает "генерации" кода из текста , из строки или потока, RunTime, в Delphi. Но, у меня на каждый "макет" (набор полей) свой класс есть. Может как-то можно через GetInterface дёрнуть что-то и получить нужное? Если, есс-но, таковой реализовать. ООП меня спасёт? )))
...
Рейтинг: 0 / 0
24.05.2019, 20:37
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818007
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Romka-Fes Не хватает "генерации" кода из текста , из строки или потока, RunTime, в Delphi. Но, у меня на каждый "макет" (набор полей) свой класс есть. Может как-то можно через GetInterface дёрнуть что-то и получить нужное? Если, есс-но, таковой реализовать. ООП меня спасёт? )))

Всего хватает. Из набора условий создается скрипт, скрипт запускается в едином OnGetCellParams или как там оно назвается, и возвращает цвет/фон/стиль
...
Рейтинг: 0 / 0
24.05.2019, 20:50
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818012
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Romka-FesВопрос в другом: как в RunTime к полю дерева привязать нужный обработчик события, например, OnGetDisplayText.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure DoGetDisplayText1();
procedure DoGetDisplayText2();
procedure DoGetDisplayText3();
procedure DoGetDisplayText4();
procedure DoGetDisplayText5();



begin
  case DS['DrawDisplayText'] of
     1: Tree.OnGetDisplayText := DoGetDisplayText1;
     2: Tree.OnGetDisplayText := DoGetDisplayText2;
     3: Tree.OnGetDisplayText := DoGetDisplayText3;
     4: Tree.OnGetDisplayText := DoGetDisplayText4;
     5: Tree.OnGetDisplayText := DoGetDisplayText5;
  end;
end;
...
Рейтинг: 0 / 0
24.05.2019, 20:57
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818021
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBr,

таки только хардкод.
А если тянуть надо код из бд...?
я же не могу сделать
Код: pascal
1.
2.
3.
4.
5.
begin
  case DS['DrawDisplayText'] of
     1: Tree.OnGetDisplayText := GetProcPointerFromProcName("DoGetDisplayText1");
...
  end;



Или есть решения таковой проблемы, известные?

Пока, как идиотизм, вижу вариант сохранения Blob'a с BPL в БД и загрузки из него пакета с вызовом из него метода через Application.MainForm.GetInterface ...
...
Рейтинг: 0 / 0
24.05.2019, 21:07
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818023
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
asviridenkovRomka-Fes Не хватает "генерации" кода из текста , из строки или потока, RunTime, в Delphi. Но, у меня на каждый "макет" (набор полей) свой класс есть. Может как-то можно через GetInterface дёрнуть что-то и получить нужное? Если, есс-но, таковой реализовать. ООП меня спасёт? )))

Всего хватает. Из набора условий создается скрипт, скрипт запускается в едином OnGetCellParams или как там оно назвается, и возвращает цвет/фон/стиль
Поделитесь деталями реализации, пожалуйста.
...
Рейтинг: 0 / 0
24.05.2019, 21:15
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818024
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
asviridenkovRomka-Fes Не хватает "генерации" кода из текста , из строки или потока, RunTime, в Delphi. Но, у меня на каждый "макет" (набор полей) свой класс есть. Может как-то можно через GetInterface дёрнуть что-то и получить нужное? Если, есс-но, таковой реализовать. ООП меня спасёт? )))

Всего хватает. Из набора условий создается скрипт, скрипт запускается в едином OnGetCellParams или как там оно назвается, и возвращает цвет/фон/стиль
что есть "скрипт", в данном контексте?
...
Рейтинг: 0 / 0
24.05.2019, 21:17
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818026
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Romka-FesПоделитесь деталями реализации, пожалуйста.

А что здесь может быть непонятно? Например делаем табличку для пользователя

Поле Условие Закрасить Цвет Фон
State =3 NAME green

Преобразуется в
if State=3 then Colors['NAME'] := 'green';

Выполняем скрипт давая ему на вход значение полей и получаем цвет/фон для ячеек
...
Рейтинг: 0 / 0
24.05.2019, 21:19
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818027
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Romka-Fesasviridenkovпропущено...


Всего хватает. Из набора условий создается скрипт, скрипт запускается в едином OnGetCellParams или как там оно назвается, и возвращает цвет/фон/стиль
что есть "скрипт", в данном контексте?

Текст выполняемый в интерпретаторе скриптов
...
Рейтинг: 0 / 0
24.05.2019, 21:20
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818028
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
asviridenkovRomka-Fesпропущено...

что есть "скрипт", в данном контексте?

Текст выполняемый в интерпретаторе скриптов

в каком таком?
...
Рейтинг: 0 / 0
24.05.2019, 21:26
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818030
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
asviridenkovRomka-FesПоделитесь деталями реализации, пожалуйста.

А что здесь может быть непонятно? Например делаем табличку для пользователя

Поле Условие Закрасить Цвет Фон
State =3 NAME green

Преобразуется в
if State=3 then Colors['NAME'] := 'green';

Выполняем скрипт давая ему на вход значение полей и получаем цвет/фон для ячеек
я цвет могу получить из без скрипта. Вопрос - как привязать это к обработчику конкретного события конкретного объекта формы. В данному случае - к полю дерева TcxDBTreeList.
...
Рейтинг: 0 / 0
24.05.2019, 21:28
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818034
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Romka-Fesasviridenkovпропущено...


Текст выполняемый в интерпретаторе скриптов

в каком таком?
Например в FastScript. Но это мой Вариант 2
...
Рейтинг: 0 / 0
24.05.2019, 21:32
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818037
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBr,

Поэтому скрипты тут не помогут.
...
Рейтинг: 0 / 0
24.05.2019, 21:35
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818040
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Romka-FesDimaBr,

Поэтому скрипты тут не помогут.

Тут уже ничего не поможет
...
Рейтинг: 0 / 0
24.05.2019, 21:36
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818044
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBr,

Тут возможно, или явно, надо лезть в RTTI, но я тут пока не в теме, вот почему и спрашиваю. Мне бы дёрнуть интерфейс некий, передав параметром имя поля, и получить из него указать не процедуру, которую я смогу динамически присвоить обработчику события вновь созданного поля. Это реально? Или я фантазирую?
...
Рейтинг: 0 / 0
24.05.2019, 21:39
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818052
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
asviridenkovRomka-FesDimaBr,

Поэтому скрипты тут не помогут.

Тут уже ничего не поможет
Т.е., по Вашему, без использования скриптов, задача не решаема?
...
Рейтинг: 0 / 0
24.05.2019, 21:46
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818064
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
24.05.2019, 21:52
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818065
asviridenkov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
asviridenkov
Участник
Romka-Fesasviridenkovпропущено...


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

Задача решаема массой способов, в том числе и через RTTI, причем любой способ требует от силы пол часа.
Но вариант решения через скрипты позволяет заложить максимальную универсальность, т.к. можно формулировать сколь угодно сложные условия, интерпретатору выражений без разницы.
...
Рейтинг: 0 / 0
24.05.2019, 21:54
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818068
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
asviridenkovRomka-FesПоделитесь деталями реализации, пожалуйста.

А что здесь может быть непонятно? Например делаем табличку для пользователя

Поле Условие Закрасить Цвет Фон
State =3 NAME green

Преобразуется в
if State=3 then Colors['NAME'] := 'green';

Выполняем скрипт давая ему на вход значение полей и получаем цвет/фон для ячеек
А в целом - это маразм.
Т.е. не имеет отношения к сути вопроса.
Чукча писатель?
...
Рейтинг: 0 / 0
24.05.2019, 21:55
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818090
Фотография Romka-Fes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Romka-Fes
Участник
DimaBr,

А если методов DoDrawCell много, у разных полей, что именно найдёт Find? Учитывая что поля создаются RunTime.
...
Рейтинг: 0 / 0
24.05.2019, 22:51
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818093
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Зачем много методов ? Что бы отличить одну колонку от другой, можно передать в скрипт рисуемую колонку.
Скрипт, задающий поведение отрисовки храниться в базе. Его можно поменять не меняя исходник программы (без перекомпиляции)

В примере скрипт висит на ColumnCustomDraw, это самый простой вариант, можно повесить на View/Tree CustomDraw
Следующий уровень - назначить скриптом каждой колонке свой скриптовый обработчик
Следующий уровень - перенеси весь код управления формой в скрипт
Следующий уровень - перенести саму форму в базу

Итого, в конце. Есть ядро, которое умеет читать с базы данные, строить по ним форму и выполнять код формы.
...
Рейтинг: 0 / 0
24.05.2019, 23:18
| Ответить | Цитировать | Написать  
TcxDBTreeList: привязать обработчики определённых событий Runtime
    #39818097
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
24.05.2019, 23:43
| Ответить | Цитировать | Написать  
25 сообщений из 29, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / TcxDBTreeList: привязать обработчики определённых событий Runtime
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39818064&tid=2039449]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 401ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 73ms
get tp. blocked users:
 2ms
others: 204ms
total:  720ms
созд. / загр.: 720ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]