-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
265
Весь контент Равиль Зарипов (ZuBy)
-
-
перенесите в OnCreate или еще куда-нибудь, для теста
-
а, что выдаст эта строка у вас на планшете? TPath.Combine(TPath.GetDocumentspath, 'mikros.s3db')
-
FileExists что выдает? Файла нету?
-
Seattle -> http://docwiki.embarcadero.com/RADStudio/Seattle/en/Supported_Target_Platforms Berlin -> http://docwiki.embarcadero.com/RADStudio/Berlin/en/Supported_Target_Platforms
-
эм, как-бы вот (без БД, регистрации и смс) FilterJSON := aData; if (not menu_ids.IsEmpty) and (menu_ids <> ',,') then begin xFilter := SO(FilterJSON); aStatus := '{"status":"' + xFilter.S['status'] + '","struct":'; FilterJSON := xFilter.A['struct'].Where( function(Arg: IMember): Boolean begin with Arg.AsObject do Result := Pos(S['id_menu'], menu_ids) > 0; end).AsJSON; FilterJSON := aStatus + FilterJSON + '}'; end; на выходе у нас FilterJSON только с теми данными, которые нужны (фильтруется по id_menu)
-
ReportMemoryLeak выдает --------------------------- Unexpected Memory Leak --------------------------- An unexpected memory leak has occurred. The unexpected small block leaks are: 1 - 12 bytes: TWinAcceleratorKeyRegistry.TAcceleratorKeyReceivers x 1 --------------------------- ОК --------------------------- проблема с Берлином, в инете есть информация если пользоваться гуглом
-
Добрый день! Дошли руки до Version Control, назрели пару вопросов Пользуетесь ли вы VC? Каким именно из представленных в IDE? Я пытался использовать GitHub, опишу шаги Регистрация/Авторизация Создал репозицтории (рис 1) Получил ссылку https://github.com/rzaripov1990/ModernListView.git нажав на Clone or download Как настроить описано тут http://docwiki.embarcadero.com/RADStudio/Berlin/en/Git_Integration_in_the_IDE IDE -> Project Manager -> <НазваниеПроекта> -> ПКМ -> Add to Version Control -> Git Вот структура файлов моего проекта (рис 2) Открывается окно с файлами для импорта (рис 3) Жмём Import В окне сообщении видим IDE -> Project Manager -> <НазваниеПроекта> -> ПКМ -> Git -> Push - From Project Directory В окне сообщении видим В репозитории так ничего и не попало Что я сделал не так?
-
можете проверить у себя: кидаем TListView на форму ставим anchors или align ItemApperance = ImageListItemBottomDetailRightButton запускаем и делаем ресайз формы текст пропадает с кнопки Profit? У меня это воспроизводится в голом проекте, FMX.ListView.pas не изменен добавление Item'ов for I := 0 to 20 do begin AItem := ListView1.Items.Add; with AItem do begin Text := 'Item Random ' + I.ToString; Detail := 'Detail for ' + Text; ButtonText := 'Custom Color'; Bitmap := Image1.Bitmap; end; ListView1.Adapter.ResetView(AItem); // fix TextButton ( TListViewTextButtonFix ) end; устраняем багу procedure TForm1.ListView1UpdatingObjects(const Sender: TObject; const AItem: TListViewItem; var AHandled: Boolean); begin TListViewTextButtonFix.Rendering(Sender, AItem, AHandled); // fix end; FMX.ListView.TextButtonFix.zip
-
и все пользователи туда входят? проверяли код из PS на других компах?
-
а вот что выдает у меня PS C:\Users\ZuBy> whoami /upn Ошибка. Не удается получить имя субъекта-пользователя (UPN), так как текущий вошедший пользователь не является пользователем домена.
-
нет, но платные компоненты (функционал) не всегда оправдывают цену
-
я походу переотдыхал, что за отдельные потоки(!), таймеры на вычисления размеров. что за бред? покажите демо-проект.
-
ну скорей всего он не всегда заполняется... напишите в PowerShell'e whoami /upn что он выдаст?
-
код можно посмотреть?
-
вы на форуме не верно написали или в программе также? userPrincipalName