-
Постов
216 -
Зарегистрирован
-
Посещение
-
Победитель дней
6
Активность репутации
-
master webs получил реакцию от zairkz в DeviceInfo - модуль для получения информации о девайсе
ip не отображает {$IF defined(IOS) or defined(MacOs)} with TUIDevice.Wrap(TUIDevice.OCClass.currentDevice) do begin DeviceInfo.diPlatformVer := systemVersion.UTF8String; DeviceInfo.diDevice := model.UTF8String; DeviceInfo.diMacAddress := identifierForVendor.UUIDString.UTF8String; DeviceInfo.diIPAddress := 'not found'; end; <- добавил // ShowMessage(uniqueIdentifier.UTF8String); // ShowMessage(identifierForVendor.UUIDString.UTF8String); {$ENDIF}
при компиляции для mac ругает что нет файла
[dccosx Fatal Error] uDevice.pas(42): F2613 Unit 'IOSapi.UIKit' not found.
не смог найти
-
master webs получил реакцию от Равиль Зарипов (ZuBy) в DeviceInfo - модуль для получения информации о девайсе
-
master webs отреагировална Равиль Зарипов (ZuBy) в DeviceInfo - модуль для получения информации о девайсе
DeviceInfo - модуль для получения информации о девайсе
Android || Windows || IOS || MAC OS
Intel планшет
для Андроида нужно включить разрешения (permission)
Ссылка на GitHub
-
master webs получил реакцию от Равиль Зарипов (ZuBy) в DeviceInfo - модуль для получения информации о девайсе
ip не отображает {$IF defined(IOS) or defined(MacOs)} with TUIDevice.Wrap(TUIDevice.OCClass.currentDevice) do begin DeviceInfo.diPlatformVer := systemVersion.UTF8String; DeviceInfo.diDevice := model.UTF8String; DeviceInfo.diMacAddress := identifierForVendor.UUIDString.UTF8String; DeviceInfo.diIPAddress := 'not found'; end; <- добавил // ShowMessage(uniqueIdentifier.UTF8String); // ShowMessage(identifierForVendor.UUIDString.UTF8String); {$ENDIF}
при компиляции для mac ругает что нет файла
[dccosx Fatal Error] uDevice.pas(42): F2613 Unit 'IOSapi.UIKit' not found.
не смог найти
-
master webs получил реакцию от alexbirukov в Ошибки и косяки Delphi XE10 Seattle и xCode 7
XE10 + iOS 6 = полёт нормальный
XE10 + iOS 7 = полёт нормальный
XE10 + iOS 8 = полёт нормальный
XE10 + iOS 9 = полёт нормальный
xCode 6
приложение успешно прошло проверку в app store и опубликовано единственный момент они уже не принимаю совместимость ios 6 требуют указывать минимальную версию 7
-
master webs получил реакцию от alexbirukov в Ошибки и косяки Delphi XE10 Seattle и xCode 7
xCode 6 проверял на реальных устройствах
p/s изначально обновил до xCode 7 версии
и были ошибки после отката на xCode 6 все заработало
-
master webs получил реакцию от aleksandrguru в Запустить приложение из сервиса или показать форму
Notification.SoundName
-
master webs получил реакцию от Kitty в [TListBox] Как отобразить итемы в виде панелей?
Добрый день со стилями все очень просто кликаете по нужному компоненту правой там есть два пунк которые вам нужны
edit custom stail (свой уникальный стиль)
edit default stail (дефолтный стиль для всех копий компонентов по умолчанию)
при клике перейдете в редактор а там все просто
-
master webs получил реакцию от Brovin Yaroslav в Добавить знаачение tag стилевому елементу
спасибо получилось
-
master webs получил реакцию от Rusland в Событие InputBox при клике ListBoxItem
разобрался может кому будет нужно procedure TForm1.shopcartItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); var edit: TListBoxItem; begin if shopcart.Selected <> nil then begin edit:=shopcart.Selected; InputBox('Изменить количество', '', edit.StylesData['textstyle'].ToString, procedure(const AResult: TModalResult; const AValue: string) begin edit.StylesData['textstyle']:= AValue; end); end; -
master webs отреагировална Brovin Yaroslav в заполнение окна формы 2-3 или колонки в зависимости от ориентации экрана
Добрый день,
Используйте TGridLayout. У него вы только указываете размер элемента (ItemWidth, ItemHeight). Далее этот компонент автоматчиески все дочерние контролы выстраивает в сетку с размером ячейки ItemWidth x ItemHeight