vvs81
Active subscription
-
Joined
-
Last visited
Everything posted by vvs81
-
Не понял где это что это? а потом понял как удалить это сообщение?
-
SVG не корректно отображается. Некоторые элементы вовсе не видны становятся, как показано на маленьком квадратике, а в эллипсе вместо прозрачности чёрный круг. <svg width="39" height="39" viewBox="0 0 39 39" fill="none" xmlns="http://www.w3.org/2000/svg"> <rect width="39" height="39" fill="#F5F5F5" style="fill:#F5F5F5;fill:color(display-p3 0.9608 0.9608 0.9608);fill-opacity:1;"/> <g clip-path="url(#clip0_0_1)"> <circle cx="27.5" cy="10.5" r="7.5" stroke="#FF9113" style="stroke:#FF9113;stroke:color(display-p3 1.0000 0.5686 0.0745);stroke-opacity:1;" stroke-width="6"/> <path d="M21 16L6 31" stroke="#FF9113" style="stroke:#FF9113;stroke:color(display-p3 1.0000 0.5686 0.0745);stroke-opacity:1;" stroke-width="6" stroke-linecap="square"/> <rect x="14.9267" y="23.3173" width="9" height="9.95087" transform="rotate(44.1143 14.9267 23.3173)" fill="#FF9113" style="fill:#FF9113;fill:color(display-p3 1.0000 0.5686 0.0745);fill-opacity:1;"/> <circle cx="26" cy="26" r="11.5" fill="#00D83A" stroke="#00A22B" style="fill:#00D83A;fill:color(display-p3 0.0000 0.8462 0.2256);fill-opacity:1;stroke:#00A22B;stroke:color(display-p3 0.0000 0.6347 0.1693);stroke-opacity:1;"/> <line x1="20.3765" y1="25.5709" x2="24.1659" y2="29.3604" stroke="white" style="stroke:white;stroke-opacity:1;" stroke-width="3"/> <line x1="33.008" y1="22.6396" x2="24.1659" y2="31.4817" stroke="white" style="stroke:white;stroke-opacity:1;" stroke-width="3"/> </g> <defs> <clipPath id="clip0_0_1"> <rect width="39" height="39" fill="white" style="fill:white;fill-opacity:1;"/> </clipPath> </defs> </svg>В примерах про scrollbox никакой ничего нету. Кроме VerticalScrollBox и HorizontalScrollBox в FGX Native нет других ScrollBox-ов.Спасибо, как то не догадался. А есть возможность scroll не только по горизонтали , но и одновременно по вертикали?Ув. разработчики, не найду ни одного примера по скролбоксам, не могу сам разобраться. Подскажите простой пример, чтобы понял куда копать. Спасибо.т.е Покажите на примере как это работает, что то не пойму, т.к. это событие срабатывает после всех procedure TStartForm.fgFormSafeAreaChanged(Sender: TObject; const AScreenInsets: TRectF); begin lbl.Position.Y := AscreenInsets.Height; end; У меня это значение почему то -16.615383... я наверное что то не понялI didn't think it would work. Thanks.Здравствуйте! Пишу мобильное приложение на Delphi 12.3 с FGX (FireMonkey NextGen) под Android. Нужно корректно определить высоту статус-бара (верхней панели, где часы, заряд и т.д.), чтобы задать отступ сверху у Layout.Вопрос решил: Я прочитал что с версии андроид 11+ (апи30+) - write_external_storage больше не работает как в старых версиях. т.е происходит отказ потому что разрешение технически бесполезно. если речь о сохранении в приватную папку то рут не нужен и значит разрешения тоже, работает с 6 андроида. Для публичные папок таких как Download, DCIM, Document до 10 версии была проверка разрешения на write_external_storage, т.е можно было писать при условии true, а в 11+ уже нельзя напрямую. Проверка в данном случае на write_external_storage будет только мешать.Никто что-ли не создавал SQL в FGX? Что нужно подключить чтобы это работало? Помогите с решениемда, в том то и дело что галочка стоитПри вызове процедуры результат 'Не удалось сохранить настройки'. Вроде разрешения стоят, что ещё не так может быть. procedure TFDB.SaveParams; begin TfgPermissionService.RequestPermissionsAsync(['android.permission.WRITE_EXTERNAL_STORAGE'], procedure(const APermissionInfo: TArray<TfgPermissionInfo>) var FIniFile: TINIFile; begin case APermissionInfo[0].CheckResult of TPermissionCheckResult.Granted: begin FIniFile := TINIFile.Create(GetExternalFilesDir+PathDelim+'conf.ini'); ... TfgToast.Show('Сохранено', TfgToastDuration.Long); FIniFile.UpdateFile; FIniFile.Free; end else TfgToast.Show('Не удалось сохранить настройки', TfgToastDuration.Long); end; end); end;Добрый день, переделываю программу с фаирманки на FGX, при обращении к базе данных, при вызове функции которая описана ниже происходит ошибка при попытке подключения function TFDB.GetDepoName(const TABID:integer):string; // TTABParams; var tmpQuery: TFDQuery; begin tmpQuery := TFDQuery.Create(nil); tmpQuery.Connection := SQLLiteConnection; tmpQuery.SQL.Text := 'SELECT IND,NAME,ORG_ID FROM TABL WHERE IND='+TAB.ToString; tmpQuery.Open; ... result:=tmpQuery.FieldByName('NAME').AsString; tmpQuery.Close; tmpQuery.Free; end; Помогите понять в чём проблема. Спасибо.
