x11

up

up

procedure TMessages.ShowToast(const Title, Text: String; MsgDlgType: TMsgDlgType; hideAfter: integer); Var UniJToast: TUniJToast; begin UniJToast := TUniJToast.Create(fParentForm); try case MsgDlgType of //TIconType = (none, success, error, warning, info); mtWarning : UniJToast.icon := TIconType.warning; mtConfirmation: UniJToast.icon := TIconType.success; mtError : UniJToast.icon := TIconType.error; mtInformation : UniJToast.icon := TIconType.info; else UniJToast.icon := TIconType.success; end;//case UniJToast.pos := TPosition.mid_center; UniJToast.allowToastClose := True; UniJToast.hideAfter := hideAfter; UniJToast.heading := Title; UniJToast.text := Text; UniJToast.ShowMessage; finally UniJToast.Free; end;// try-fin end;

Thanks a lot, that's how it works. It remains to be done to make a mobile component.

there are no errors in log-file on start application

procedure LoadColorpickExt; begin UniAddCSSLibrary('build/packages/ux/classic/classic/resources/ux-all.css', False, [upoFolderJS, upoPlatformDesktop]); UniAddJSLibrary('build/packages/ux/classic/ux.js', False, [upoFolderJS, upoPlatformDesktop]); UniAddJSLibrary('colorpickext.js', False, [upoFolderFiles]); end; initialization RegisterServerModuleClass(TUniServerModule); LoadColorpickExt;

https://www.google.com/search?q=delphi+indy+email

initialization RegisterServerModuleClass(TUniServerModule); UniAddJSLibrary('colorpickext.js', False, [upoFolderFiles]); file exists colorpickext.js

?? Sorry, I don't understand, what should I do next?

Извините, не хотел никого обидеть. Просто очень нужна компонента.

сколько дней, месяцев, лет надо, чтобы изменить несколько строк?

еще вариант: если typ_operation_id всего два вида, то выводить их отдельно в два разных столбца и тогда уже суммирование будет у каждого столбца свое

а нельзя заменить "Column.AuxValue" на две глобальные переменные? а в качестве результата что-то вроде такого, через слэш выводить: if I>0 then s:= '<p><font size="2" color="gren" face="Arial">&#8679</font>'+' Σ: '+FormatCurr('0,0.00 ', I); if I<=0 then s:= '<p><font size="2" color="red" face="Arial">&#8681</font>'+' Σ: '+FormatCurr('0,0.00 ', I); result := s + '/' + s;

А если разместить панель и две метки (TUniLabel) под таблицей и выводить результаты в метки, а не в подвал сетки?

В общем, я сделал так: procedure TUniMainModule.LoadScriptCSS; begin if UniMainModule.IsMobilePlatform then begin UniSession.AddJS('Ext.Loader.loadScript("/files/' + constCssUrlName + constMobileCss + '")'); UniSession.AddJS('Ext.Loader.loadScript("/files/' + constCssUrlName + constMobileHideCss + '")');// скрывать элементы end else begin// файлы для десктопной версии UniSession.AddJS('Ext.Loader.loadScript("/files/' + constCssUrlName + constDesktopCss + '")'); UniSession.AddJS('Ext.Loader.loadScript("/files/' + constCssUrlName + constDesktopHideCss + '")');// скрывать элементы UniSession.AddJS('Ext.Loader.loadScript("/files/' + cJsURLName + 'HorizontalAccordionUniPanel.js' + '")'); end; end; procedure TUniMainModule.UniGUIMainModuleBeforeLogin(Sender: TObject; var Handled: Boolean); begin LoadScriptCSS; end;

Может вы не обратили внимание на первый скрин в первом сообщении, но напишу на всякий случай, что ошибка только при загрузке мобильной версии.

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject); Var s: string; begin UniGuiApplication.PfmtSettings.ThousandSeparator := ' '; AddIGrowl; s := UniServerModule.FilesFolderURL + cJsURLName + 'HorizontalAccordionUniPanel.js'; CustomFiles.Add(s); end; отладчик показывает путь к файлу в переменной S мой файл есть

все, как положено, ничего не менял

Нет, настройки в ServerModule я не трогал. Ничего не менял. И еще, я поискал файл "Accordion.js" в папке, где установлен фреймворк uniGUI и этого файла я не нашел

так как загружать?

Если загружать в событии ModuleCreate, то такая же ошибка.

Я догадываюсь, что там не нужно, а как где правильно?

Посмотрите, пожалуйста ошибку: http://forums.unigui.com/index.php?/topic/18637-ошибка-not-found-extlayoutcontaineraccordionjs/

При старте приложения в браузере и в логах на сервере получаю ошибку: Подскажите, что я делаю не так? Если убрать загрузку этого файла (на картинке), то ошибки нет http://forums.unigui.com/index.php?/topic/18182-accordion-layout-horizontal/&tab=comments#comment-100382 Я загружаю JS-файл в событии TUniServerModule.UniGUIServerModuleBeforeInit()