Сервисы поддержки / Примеры / Библиотеки разработчика / RS-Connect скроллинги веб интерфейса в EasyWin

RS-Connect скроллинги веб интерфейса в EasyWin

Автор:Gitarist
Дата:06.12.2022
Просмотров:2049
Скачиваний:435
Оценка:

, Оценок - 2

Скачать (zip-файл; Размер - 14881)

Обсудить в форуме

Описание

Обновлено 23.06.2023:
Исправлены ошибки и добавлен новый функционал.
Необходимо перекачать Примеры / Библиотеки разработчика / Динамические панели, скроллинги и меню. С картинками в цвете и тд.

Обновлено 09.01.2023:
Теперь при обновлении скроллинга курсор не сбрасывается на первую строку.
Необходимо перекачать Примеры / Библиотеки разработчика / Динамические панели, скроллинги и меню. С картинками в цвете и тд.

Обновлено 24.12.2022:
1. Позволяет установить страницу помощи "SetHelpPage(HelpPage_ : string)".
2. Добавил отображение времени выполнения запроса.

Обновлено 20.12.2022:
1. Добавлена возможность сортировки.
2. Внизу макроса studia_tools_interface.mac описал все методы, которые можно использовать.

Макрос для отображения скроллингов веб интерфейса в EasyWin
Для работы требуется: Примеры / Библиотеки разработчика / Динамические панели, скроллинги и меню. С картинками в цвете и тд.

Пример скроллинга "Журнал email-оповещений":

Текст примера

 import "..\\mac\\studia_tools_interface.mac";

private var StudiaToolsInterface = TStudiaToolsInterface();

	StudiaToolsInterface.SetHead("Журнал email-оповещений");
	StudiaToolsInterface.SetFooter("Esc Выход");

	StudiaToolsInterface.SetMacroFile("ws_ui_email_notification_scrolling.mac");
	StudiaToolsInterface.SetMacroFuncList("GetEmailNotificationsList", "PageIndex","PageSize","FilterConditions");
	StudiaToolsInterface.SetMacroFuncCount("GetEmailNotificationsListCount","FilterConditions");

	// Скроллинг
	var StudiaScrollManager = TStudiaScrollManager();
	StudiaScrollManager.ObjScrolling.DestroyListObjScrolling();
	StudiaScrollManager.ObjScrolling.AddListObjScrolling();
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("ID"              , "ID" , 5 ,2,0,V_INTEGER  ,4,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("Email"  , "Электроннай адрес" , 15,2,0,V_STRING  ,255,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("IsSend"  , "Отправлено" , 10,2,0,V_STRING  ,255,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("CreateDate", "Дата и время формирования" , 20,2,0,V_STRING  ,255,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("ProcessDate", "Дата и время обработки" , 20,2,0,V_STRING  ,255,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("Header"      , "Заголовок" , 20,2,0,V_STRING  ,255,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("ErrorText"    , "Ошибка" , 15,2,0,V_STRING  ,255,0);
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListColInfo("IsHTML"    , "IsHTML" , 0,2,0,V_STRING  ,255,0);

	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListFieldIcon(7026, 2, "IsSend", 0, "", null, "IsSend");
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListFieldIcon(7027, 2, "IsSend", 0, "X", null, "IsSend");
	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListFieldColor(0, 0, 7, 12, "IsSend", 1, "X", null, "");

	StudiaToolsInterface.AddFuncButton("FuncButton1", "Просмотр текста сообщения"  , 7160, 3, "", "FucnButtonNot", "ID");

	StudiaScrollManager.ObjScrolling.CurrentScrolling().AddListOperation(DLG_KEY , 13, -1, "", "", CM_IGNORE, "");
	StudiaToolsInterface.SetObjScrolling(StudiaScrollManager.ObjScrolling.CurrentScrolling(0));
	// Запуск
	StudiaToolsInterface.Run();