Перейти к содержанию
Fire Monkey от А до Я

Kitty

Пользователи
  • Постов

    792
  • Зарегистрирован

  • Посещение

  • Победитель дней

    16

Активность репутации

  1. Like
    Kitty отреагировална Brovin Yaroslav в Как задать внутренний отступ padding для контента TScrollBox?   
    Согласен. Добавим в следующей версии.
  2. Like
    Kitty отреагировална AndroidHalfNoob в При подключении к БД черный экран   
    Вот что получилось. ну и настройка компонентов как указано в мануале procedure TForm1.FDConnection1BeforeConnect(Sender: TObject); var    DBPath: string; begin  {$IF DEFINED(ANDROID)}   DBPath := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, 'Baza.db'); {$ENDIF} FDConnection1.ConnectionString:= 'DriverID=SQLite;Database='+DBPath+';StringFormat=Unicode;LockingMode=Normal'; end; procedure TForm1.FormActivate(Sender: TObject); begin FDConnection1.Connected:=True; FDQuery1.Active:= True; end; end.
  3. Like
    Kitty отреагировална FAN в При подключении к БД черный экран   
    С переходом на Х возникла точно такая же проблема.
    База называлась ххх.db
    У меня rooted устройство, поэтому зашел в директорию программы и увидел, что размер ххх.db -  0 байт.
    Переименовал для андроида ххх.db  в xxx.sqlite, изменил connection и deployment settings, и все заработало.
  4. Like
    Kitty отреагировална AngryOwl в Запрет ввода определенных символов в TEdit   
    может как-то так:
    procedure TForm1.edSumKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin   case KeyChar of     #8, '0'..'9' :  ; // цифры и <Back Space>     '.', ',' :        // разделитель целой и дробной частей числа       begin         if KeyChar <> FormatSettings.DecimalSeparator then           KeyChar := FormatSettings.DecimalSeparator; // заменим разделитель на допустимый         if Pos(FormatSettings.DecimalSeparator, edDepositing_Sum.Text) <> 0 then         begin           Key := 0; // запрет ввода второго разделителя           KeyChar := Chr(0);         end;       end;     else   // остальные символы запрещены     begin       Key := 0;       KeyChar := Chr(0);     end;   end; end;
  5. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в TMapsEngine   
    Обновил TMapsEngine с выходом Delphi 10 Seattle
    Вырезал нативный сенсор (т.к. исправили TLocationSensor) переименовал методы, в соответствии с используемым API Добавил Yandex Locator API (определение координат по IP, WI-FI, GSM) для определения своих координат, достаточно отправить пустой IP адрес, yandex сам распознает откуда был запрос сделан
     
    модуль TMapsEngine_Seattle_10.zip
  6. Like
    Kitty отреагировална Andrey Efimov в [Событие] Мировой тур RAD Studio 10 Seattle   
    Места проведения и даты: Москва (24.09.15), Алматы (2.10.15) Официальный сайт мероприятия: http://www.delphitour.ru Регистрация: http://forms.embarcadero.com/EM15Q3RURADStudio10LiveEvent  
    Приглашаем вас принять участие в Мировом туре RAD Studio XE10 Seattle, который пройдет 24 сентября в Москве и 2 октября в Алматы.   Мы расскажем о том как, с помощью новых возможностей RAD Studio 10 вы сможете: Разрабатывать приложения для Windows 10 и использовать новые компоненты VCL; Ускорить разработку мобильных приложений для Android и iOS (отлаживать iOS 64-bit, тестировать кода); Использовать новый компилятор C++ 11 CLANG; Эффективно использовать среду разработки и новые возможности GetIt; Создавать приложения для «Internet of Things» и Beacons; Применять новые возможности FIreDAC для расширенной поддержки JSON и BSON; Быстрее создавать приложения для работы с NoSQL СУБД MongoDB с помощью новых компонент, классов, реализующих  MongoDB API, и нового драйвера FireDAC для MongoDB. Количество мест ограничено!   Участие в мероприятии бесплатное.   p.s. Решил подменить Ярослава. p.s.2. Кто придёт?)
  7. Like
    Kitty отреагировална Andrey Efimov в RAD XE9 (RAD X Seattle)   
    А вы пробовали?
    Я пробовал и результат не изменился, TWebbrowser всё также поверх остальных контролов (включая кнопку, которая лежит на нём и вложена в него). Если вы пробовали и у вас результат другой, то скиньте проект, посмотрим, что мы делаем не так...
  8. Like
    Kitty отреагировална Brovin Yaroslav в Как записать видео на Андроиде?   
    Добрый день,
     
    Да, действительно TTakePhotoFromCameraAction используем стандартный нативный интерфейс получении фотографий и съемки видео. Но в нем нет поддержки видео по той причине, что йос не дает прямого доступа к самому видео файлу и скрывает его за публичной оболочкой. Это значит, что записанное таким способом видео, можно просматривать и воспроизводить в штатном проигрывателе мобильного устройства, но при этом вам не получить прямой доступ к самому содержимого. Поэтому остается вариант использовать для записи видео компонент FireMonkey TCameraComponent. Этот компонент не позволяет в прямую сохранить видео, но он выдает поток кадров, с которыми вы можете работать на уровне TBitmap и записать их в том числе в видео файл.
     
    На счет андроида, там ситуация лучше. И в принципе можно использовать Апи Андроида для получения записанного видео с камеры.
  9. Like
    Kitty отреагировална Alex Bozhko в RAD XE9 (RAD X Seattle)   
    Debug заработал на Sony.
     
    http://fire-monkey.ru/topic/1203-debug-na-android-devaise-pod-xe8-ne-rabotaet/?hl=sony#entry5965
     
    На XE8, как с апдейтом, так и без - не работал.
  10. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в RAD XE9 (RAD X Seattle)   
    TLocationSensor больше не выключает сенсоры на самсунге (можно снова использовать его для Android)
    TMapView->LayerOptions
    Traffic PointsOfInterest Buildings UserLocation Появилась точка вашего местонахождения
  11. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в В Android не работает Destroy/Hide/Deactive   
    OnClose попробуй или OnSaveState
  12. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в RAD XE9 (RAD X Seattle)   
    Минусы
    1. Баг с использованием старых стилей, ждём новые Premium Styles (спасает стандартные стили которые генерирует BitmapStyleDesigner)
    2. TMultiView -> Drawer не перекрывает TMapView
    3. Работа со стилями в рантайме через TStyleManager изменили
    4. В старых проектах нужно удалять все uses'ы и дать среде самой сгенерировать uses'ы
     
    Плюсы
    1. Исправили TLocationSensor
    2. TMapView новые фичи
    3. Среда шустрей запускается
     
    Пока все что заметил
  13. Like
    Kitty отреагировална Andrey Efimov в RAD XE9 (RAD X Seattle)   
    ... и Создание сервисов доступно только на Delphi...
     
     
    АП. Пока заметил улучшения в скорости загрузки среды и в скорости открытия проектов.
  14. Like
    Kitty получил реакцию от Rusland в Впечатления от Update1 в C++ Builder XE8   
    Обидно другое. Я ничего не имею против новых багов в новой версии. Не понятно, почему все что работало на предыдйщей версии просто умирает в новой версии.
    Тогда начинаешь надеяться на апдейты как на манну небесную, а на выходе кукиш с маслом...
  15. Like
    Kitty отреагировална GASCHE в Почему пляшет TImage?   
    Или вместо
            CharacterImage.Position.X := 500 - size / 2 - size mod 3;         CharacterImage.Position.Y := ScreenHeight - size; как-то так
             CharacterImage.Position.X :=  ( ScreenWidth - size )/2;          CharacterImage.Position.Y := ( screenHeight - size )/2; и установите
       CharacterImage.WrapMode  := TImageWrapMode.Stretch;  
  16. Like
    Kitty отреагировална Alex7wrt в Почему пляшет TImage?   
    Используйте свойство TImage.Wrapmode и настраивайте размеры. Можно поместить TImage в контейнер и указать свойство Align:=TAlignLayout.Center
  17. Like
    Kitty отреагировална PFC в bkSolid is deprecated: Use TBrushKind.Solid   
    Примерно так. Меня смутил TBrushKind.Solid - что для С++ явно не верный вариант т.к. объекта TBrushKind нет. Просто в данном сообщении компилятора имеется ввиду пространство имен TBrushKind, а не объект.
     
    Вариант не дающий предупреждения:
    Canvas->Stroke->Kind = TBrushKind::Solid;
  18. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в Доступ к СИМ карте и перевод денег на другой номер   
    доступ через USSD команды и подключение API работы с телефоном.
    примеры звонилок есть в интернете и родной Action в RAD Studio
  19. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в Что быстрее, эмулятор или телефон?   
    это невозможно, ну если только телефон на котором вы тестите слабый. а так реальное устройство всегда и правильней и быстрей. эмулятор не учитывает особенности разных телефоном и прошивок. так что тестировать в эмуляторе можно только дизайн, как приложение будет выглядеть на разных экранах
  20. Like
    Kitty получил реакцию от Равиль Зарипов (ZuBy) в RAD XE9 (RAD X Seattle)   
    Bug fix list for RAD Studio 10 Seattle
    http://edn.embarcadero.com/article/44561
  21. Like
    Kitty получил реакцию от zairkz в RAD XE9 (RAD X Seattle)   
    Bug fix list for RAD Studio 10 Seattle
    http://edn.embarcadero.com/article/44561
  22. Like
    Kitty отреагировална Равиль Зарипов (ZuBy) в ini файл в телефоне   
    TotalCmd аналогично
  23. Like
    Kitty отреагировална Alex7wrt в ini файл в телефоне   
    На телефоне открылся прямым щелчком. Программой ES проводник. Android 4.0.3
  24. Like
    Kitty отреагировална bigjorj в RAD XE9 (RAD X Seattle)   
    Вот вам и что нового!
    http://docwiki.embarcadero.com/RADStudio/Seattle/en/What%27s_New
  25. Like
    Kitty отреагировална rustam_d в Как узнать уровень заряда батареи (BatteryManager)   
    uses   AndroidAPI.Helpers,   AndroidAPI.JNI.GraphicsContentViewText;   type   TForm1 = class(TForm)     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }     function BatteryPercent(const aContext: JContext): Integer;   end;   var   Form1: TForm1;   implementation   {$R *.fmx}   function TForm1.BatteryPercent(const aContext: JContext): Integer; var   filter: JIntentFilter;   battery: JIntent; begin   filter := TJIntentFilter.Create;   filter.addAction(TJIntent.JavaClass.ACTION_BATTERY_CHANGED);   battery := aContext.registerReceiver(NIL, filter);   result := battery.getIntExtra(StringToJString('level'), -1) end;   procedure TForm1.FormCreate(Sender: TObject); var   myContext: JContext; begin   myContext := SharedActivityContext;   Showmessage(BatteryPercent(myContext).ToString); end;   а еще по другим параметрам испанец круто обсосал тут http://neftali.clubdelphi.com/?p=3157 а если надо модель, серийный то это у вас на компе Delphi\Samples\Object Pascal\Mobile Snippets\DeviceInfo  (но тут хоть ИОС есть).
×
×
  • Создать...