Search the Community

На панели TunimPanel лежит три кнопки TunimRadio. Устанавливаю у одной из кнопок checked := True, но при открытии формы все кнопки отключены. При показе формы (UnimFormShow) добавил строку: unimRadio1.Checked := True; но это не исправило проблему. Как указать, что одна из трех кнопок должна быть по умолчанию включена при открытии окна? uniGUI 1536

How to fit an SVG picture proportionally in unimImage? unimImage1.url := 'files/svg/myimg1.svg' unimImage1.Proportional := True; thanx apart6.svg

Проблема возникла в рабочем проекте. Нажимаешь кнопку и меню отображается (всплывает снизу). В меню выбираешь какой-нибудь пункт, где вызывается код создания и отображения другой мобильной формы, а потом код скрытия меню текущего меню. Пока проблемы нет, но... закрываешь эту форму и возвращаешься на основную форму. Снова нажимаешь кнопку и меню уже не всплывает. Отладчик показывает, что строка UnimMenu1.Show выполняется. Проект, воспроизводящий проблему, приложил. Но здесь проблема воспроизводится сразу, т.е. не нужно открывать и закрывать форму. Меню просто не отображается. После зарпуска приложения нажмите кнопку Войти. Потом последнюю кнопку на панели (см картинку). В появившемся окне нажмите Action1 и вы должны наблюдать проблему. Обратите внимание, что форма fmMenu является унаследованной от TUnimFormParent. Возможно, что проблема из-за наследования. Может я неправильно создаю дочернюю форму? procedure TMainmForm.UnimToolButton5Click(Sender: TObject); begin fmMenu := TfmMenu.Create(UniApplication); fmMenu.Show; end; UniGUI_Touch_menu.zip

How to add FieldLabel click event for unimDBLookupComboBox or unimSpinner or unimEdit? on server app procedure TfmMoboli1.unimEdit1tAjaxEvent(Sender: TComponent; EventName: string; Params: TUniStrings); begin .... end; thanx

Подскажите, желательно с примером, как в мобильном браузере вывести данные вместе с фото? Простые данные можно вывести вот так, это у меня уже есть и оно работает: function beforeInit(sender, config){ config.loadMask=true; config.loadingText = 'загрузка...'; config.emptyText='даних немає'; config.grouped = false; config.selectedCls = ''; //console.log(config); //console.log(sender); //console.log(this); config.itemTpl = new Ext.XTemplate('<table class="tblObj">'+ '<tr>'+ '<td style="color:#2c81aa">ID {0}, ID на сайті: {13}</td>'+ '<td><button class="btnPopup" data-id="{0}" type-id="{22}"><i class="fas fa-angle-down"></i></td>'+ '</tr>'+ '<tr>'+ '<td>ДОЗ: {1}</td>'+ '</tr>'+ '<tr>'+ '<td>{2}</td>'+ '</tr>'+ '<tr>'+ '<td style="padding-top:3px;">{3}; {4}, {5}</td>'+ '</tr>'+ '</table>' ); } если картинки хранятся в папке "d:/photo/obhects/ID1724/", то как вывести одну, картинку (типа превью), чтобы картинка была слева, а справа были другие данные?\ Спасибо. P.S. Очень надеюсь, что разработчики всё-таки сделают хороший unimListView с конструктором.

Уважаемые разработчики и техподдержка, не могли бы вы создать простой пример наследования мобильных форм? Как это правильно делать? Проблема в том, что у дочерней формы не срабатывает событие OnCreate. А событие OnShow срабатывает. Спасибо.

Приложение - для работы с разного рода объявлениями, поэтому на форме добавления объявления много разных параметров. Пользователю сложно найти глазами нужный элемент ввода/выбора данных. Поэтому возникла такая идея. 1. Как программно найти расположение элемента формы, например, TUnimSpinner, TUnimDBLookupComboBox или TUnimEdit? 2. Как программно прокрутить мобильную форму к найденному элементу. 3. Как программно "подсветить" нужный элемент ввода или несколько элементов, которые совпадают со строкой поиска. Например, вверху формы будет строка ввода, пользователь набирает там "цена" и нужно прокрутить форму и подсветить все TUnimSpinner, у которых в свойстве emptytext (placeholder) или в свойстве hint есть слово "цена". При начале ввода отключить подсветку (эффект свечения) элемента. P.S. элементы лежат не просто на форме. На форме лежит UnimTabPanel, внтури лежит UnimScrollBox, внтури лежат unimFieldContainer, внутри лежат другие unimFieldContainer и элементы ввода/выбора данных. Буду благодарен за идеи и примеры.

На форме есть много списков типа TnimDBLookupComboBox. Все они работают в режиме RemoteQuery, т.е.: RemoteQuery := True; RemoteQueryRetainResult := True; При загрузке формы нужно у некоторых списков указать значение по умолчанию, т.е. чтобы, когда форма откроется, у этих списков уже было что-то выбрано и заполнено поле KeyValue. Чтобы потом, это значение KeyValue считать при сохранении объекта в базу. Как это правильно сделать? Вот мой код (DoOnNewRecord вызывается в FormShow) TStrIntPair = record key: integer; val: string; end; ... ... procedure TfmmForm1.DoOnNewRecord; Var StrIntPair: TStrIntPair; begin // валюта по умолчанию StrIntPair := UniMainModule.GetDefaultCarrency; OutputDebugString(PWideChar(StrIntPair.val)); if StrIntPair.key <> 0 then begin comboCurr.Items.Add(StrIntPair.val); comboCurr.KeyValue := StrIntPair.key; comboCurr.Text := StrIntPair.val; comboCurr.ItemIndex := 0; end; end; В отладчике вижу, что структура StrIntPair заполнена. Например, StrIntPair.key имеет значение 2. Но после открытия формы список пустой и валюта не выбрана. На снимке видно, что ничего не выбрано, а слово "валюта" - это placeholder (EmptyText).

procedure TfmMobile1.actPhotoDelExecute(Sender: TObject); const constDeletePhoto = 'Видалити світлину?'; begin if carouselPhotos.PageCount > 0 then MessageDlg(constDeletePhoto, TMsgDlgType.mtWarning, mbOKCancel, DelPhotoCallbackAnonProc); end; Приложение запускаю в режиме отладки, т.е. F9. Если нажать кнопку на форме, то в браузере появляется окно с запросом (Ок/Отмена), а через полсекунды в IDE появляется исключение. Исключение появляется до входа в процедуру DelPhotoCallbackAnonProc. Т.е. в окне запроса я ничего не нажимаю, поэтому процедура DelPhotoCallbackAnonProc не выполняется, до нее не доходит. Если нажать Break то вот http://prntscr.com/tn8psp

На форме есть TUnimCarousel, которая наполняется картинками в событии FormShow. Но потом пользователь может удалить и загрузить другие картинки и карусель нужно обновить. Я выполняю ту же процедуру, которая сперва удаляет все TUnimCarouselPage с дочерними картинками, а потом снова наполняет. И вот тут проблема. Я вижу, что карусель наполнена и можно листать, но все страницы (TUnimCarouselPage) при пролистывании пустые. Я так подразумеваю, что в браузер нужно послать что-то для обновления? Или я неправильно что-то делаю. Вот процедура наполнения карусели: procedure PhotosLoadImages; var i: Integer; sPath, s: string; LList: TStringDynArray; UnimImage: TUnimImage; UnimCarouselPage: TUnimCarouselPage; begin if carouselPhotos.PageCount > 0 then for i := pred(carouselPhotos.PageCount) downto 0 do carouselPhotos.Pages[i].Destroy; sPath := GetCurrPhotoPath; LList := GetListDocs(sPath); if Length(LList) = 0 then exit; for s in LList do begin UnimCarouselPage := TUnimCarouselPage.Create(carouselPhotos); UnimCarouselPage.Parent := carouselPhotos; UnimCarouselPage.Carousel := carouselPhotos; UnimImage := TUnimImage.Create(UnimCarouselPage); UnimImage.Parent := UnimCarouselPage; UnimImage.Align := alClient; UnimImage.Stretch := True; if TFile.Exists(s) then begin UnimImage.Picture.LoadFromFile(s); UnimImage.Hint := s;// полный путь к картинке UnimCarouselPage.Hint := s;// полный путь к картинке end; end; if Assigned(carouselPhotos.ActivePage) then lbImageName.Caption := ExtractFileName(carouselPhotos.ActivePage.Hint); end; Спасибо.

Не нашёл в примерах использование TUnimFileUpload. Но не просто использование, а с учетом ориентации. Здесь есть пример с ориентацией для кнопки TUnimFileUploadButton, но у TUnimFileUpload отсутствует свойство JSInterface. А кнопка TUnimFileUploadButton на панель мобильной формы просто не помещается, вернее отображается не вся.

Как узнать у TUnimCarouselPage индекс страницы?

Есть unimImage с картинкой. Как сверху на картинку положить, например, tunimMemo или другую "текстовую" компоненту, которая будет полупрозрачна и затемнена и которая сможет отобразить текст. В качестве текста планируется отображать имя/путь файла и другие параметры картинки, например, разрешение. На прикрепленном изображении виден пример, где часть картинки затемнена, чтобы текст был лучше виден. Спасибо.

Как правильно удалить текущую страницу, на которой лежит картинка? Процесс наполнения здесь При удалении - ошибка: Cannot set property 'ownerCmp' of null. Удаляю просто: carouselPhotos.ActivePage.Free; вижу здесь похожую ошибку но там 2018 год и старая версия ExtJS. Неужели до сих пор не исправили?

Программно заполняю карусель, чтобы сделать слайдер с картинками. Т.е. на форме лежит пустая карусель: Заполняю так: procedure TFormMobile1.LoadImagesPhotos; var i: Integer; sPath, s: string; LList: TStringDynArray; UnimImage: TUnimImage; UnimCarouselPage: TUnimCarouselPage; begin if carouselPhotos.PageCount > 0 then for i := pred(carouselPhotos.PageCount) downto 0 do carouselPhotos.Pages[i].Destroy; sPath := IncludeTrailingPathDelimiter(sPath) + Self.IDObj.ToString; LList := GetListDocs(sPath); if Length(LList) = 0 then exit; for s in LList do begin UnimCarouselPage := TUnimCarouselPage.Create(carouselPhotos); UnimCarouselPage.Parent := carouselPhotos; UnimImage := TUnimImage.Create(UnimCarouselPage); UnimImage.Parent := UnimCarouselPage; UnimImage.Align := alClient; UnimImage.Stretch := True; if TFile.Exists(s) then begin UnimImage.Picture.LoadFromFile(s); UnimImage.Hint := s; UnimCarouselPage.Hint := s; end; end; end; Картинки отображаются и листать можно. Потом мне нужно удалить выделенную картинку. И тут проблема: PageCount возвращает 0 (ноль). На кнопке есть код проверки количества страниц в карусели: if carouselPhotos.PageCount > 0 then ... удалить файл и страницу карусели

У формы (unimForm) есть свойство ActiveControl. Выбираю там unimMemo. Компилирую приложение и запускаю. Открываю форму, но компонента unimMemo не активна. Т.е. приходится дополнительно нажимать на unimMemo.

Прошу совета. В программе есть монитор сессий, где админ программы видит кто подключен к серверу: IP, тип устройства, логин, ID сессии, а так же есть дополнительные параметры типа UniMainModule.ActiveForm, т.е. админ видит, в каком модуле программы работает пользователь, что сейчас открыто на экране. При создании или при показе окна есть код UniMainModule.ActiveForm := self.Caption. Теперь, если окно закрыть, то на экране смартфона будет предыдущее окно, при этом, у этого (предыдущего окна) нет никаких событий, чтобы программа поняла, что после закрытия какого-то окна уже активно другое предыдущее окно. Как быть, что посоветуете?

Какое-бы я число не ставил, углы кнопки не закругляются .btnSaveContactForm { margin: 20px 30px; border-radius: 20000px; }

Если в свойстве Alignmentontrol мобильной формы указать значение uniAlignmentClient, то форма становиться прозграчной, но только там, где лежат компоненты и только в месте, где находится FieldLabel. Как видите, ниже кнопки компонентов нет и форма не прозрачная, а там где FieldLabel (указано стрелками), там видна предыдущая форма. Т.е. получается FieldLabel дает прозрачность.

How to choose color is uniGUI Touch (mobile)? With which component?

Можно ли как-то скрыть кнопку выбора? Если да, то как?

Как заставить unimDatePicker показывать время в 24-часовом формате? Сейчас 16 часов на часах.

Извините, если вопрос глупый. Но как сделать (подтвердить) выбор даты? Где кнопки Ок и Отмена?

1. Есть небольшое неудобство - виртуальная клавиатура появляется и скрывается очень быстро, в течение полсекунды, что вызывает неприятный визуальный эффект моргания экрана. На форме логина есть TUnimSelect для выбора пользователя, и TunimEdit для ввода пароля. Пользователь выбирает что-то в TUnimSelect и вводит пароль в TunimEdit. Под TunimEdit находится кнопка ОК. Чтобы нажать ОК, нужно скрыть клавиатуру, т.к. кнопка ОК не видна, пока клавиатура на экране. И так... пользователь ввел пароль, скрыл клавиатуру и нажимает ОК, при этом TunimEdit всё-таки находится в фокусе. Проблема в том, что когда закрывается форма логина и появляется главная форма приложения, то виртуальная клавиатура на полсекунды снова появляется и исчезает. Я добавил вот такой код в событие нажатия на кнопку ОК btnOK.WebFocus; edPass.ReadOnly := true; Всё равно это не помогло.

Нужна идея реализации, как повесить кнопку над компонентой TunimMemo, там, где красный квадратик. Можно, конечно, вышке или ниже, но хочется сэкономить драгоценное место, т.к. на форме довольно много разных элементов, форма сложная, а экраны на смартфонах маленькие. Текст может быть большой, поэтому редактирование и/или просмотр полного текста нужно открывать в отдельной форме. Спасибо.