Перейти к содержанию
Fire Monkey от А до Я
  1. Общие вопросы

    1. 558
      постов
    2. 1,5 тыс
      постов
    3. 964
      поста
    4. Базы данных и REST

      Работа с базами данных и с REST из FireMonkey

      1,7 тыс
      поста
    5. 10,6 тыс
      поста
    6. Положение, размеры, выравнивание

      Положение контролов, размеры, способы выравнивания, абсолютные, локальные и экранные координаты

      479
      постов
    7. Работа с текстом

      Текстовые настройки, шрифты, отображение

      439
      постов
    8. Приложение и формы

      Настройки приложения и работа с формами

      1,5 тыс
      постов
    9. Отладка

      Вопросы отладки и логирования delphi приложений. Поиск ошибок.

      585
      постов
    10. Развертывание приложений

      Deployment Manager, копирование своих файлов на устройство при установке приложения, подготовка к публикации, распространение.

      700
      постов
    11. 1,2 тыс
      пост
    12. Общая информация о TControl

      Общая информация о TControl, на основе которого строятся все остальные визуальные компоненты FireMonkey

      77
      постов
    13. 324
      поста
    14. Прочие вопросы

      Если нет соответствующего раздела форума, то сюда публикуем свой вопрос, затем тема перейдет в нужный раздел форума.

      3,3 тыс
      постов
  2. Вопросы по платформам

    1. 7,3 тыс
      постов
    2. 1,8 тыс
      пост
    3. OSX

      202
      поста
    4. 729
      постов
    5. 6
      постов
    6. 107
      постов
  3. Вопросы по использованию RAD Studio

    1. Лицензирование

      Вопросы связанные с редакциями RAD Studio и лицензированием

      157
      постов
    2. 141
      пост
    3. 46
      постов
    4. 27
      постов
    5. 333
      поста
  4. Обучение

    1. 39
      постов
    2. 157
      постов
      • Сообщений пока нет
  5. Поиск специалистов по FireMonkey

    1. Консультации

      Здесь вы можете получить советы о том, как лучше реализовать свои приложение, чтобы сопровождение приложения было удобным, а работа приложения была быстрой.

      623
      поста
    2. Ищу подрядчика

      В этом разделе заказчики ищут подрядчиков для разовых/проектных работ на FireMonkey

      181
      пост
  6. Дополнительные ресурсы по FireMonkey

    1. Сторонние компоненты

      Раздел для публикации существующих компонентов для FireMonkey

      898
      постов
    2. Приложения, написанные с использованием FireMonkey

      Подборка ссылок на приложения, написанные с использование FireMonkey и RAD Studio

      347
      постов
    3. Примеры

      Подборка ссылок на официальные примеры

      9
      постов
    4. Руководства

      Книги, брошюры по FireMonkey

      70
      постов
    5. Шаблоны

      Шаблонные проекты

      168
      постов
    6. Статьи и заметки

      Публикация ссылок на интересные стать о Delphi и FireMonkey. Каждый пользователь может поделиться здесь своими ссылками.

      408
      постов
    7. Информация о версиях RAD Studio

      Информация о новых возможностях, появившихся в каждый версиях RAD Studio. А так же исправлениях и улучшениях

      814
      поста
    8. 569
      постов
  7. Организация работы данного форума

    1. 1
      пост
    2. Нарушения правил форума

      Сюда попадают темы, не отвечающие правилам форума

      23
      поста
    3. 149
      постов
    4. 105
      постов
    5. Функции форума

      Инструкции по использованию функций форума и оповещение о новых функциях

      19
      постов
  • Статистика пользователей

    5 893
    Пользователей
    1 611
    Максимум онлайн
    Mr.Disney
    Новый пользователь
    Mr.Disney
    Регистрация
  • Кто в онлайне   0 пользователей, 0 анонимных, 9 гостей (Посмотреть всех)

    • Зарегистрированных пользователей в онлайне нет
  • Последние сообщения

    • если Synch вызвать в ГП то в теории все должно зависнуть
    • Так вроде у вас всё в основном потоке выполняется, зачем его с самим собой синхронизировать? 
    • Была задача сохранять надписи с приборов, т.е. сохраняется центральная часть фото, причём для прицеливания на экран выводится тоже только часть изображения с камеры, соответствующая видимой части экрана. Начитавшись форумов о тормозах, решил что CameraComponent.Quality:=TVideoCaptureQuality.LowQuality это мой вариант, но в процессе отладки заметил, что если в одной процедуре деактивировать CameraComponent и через пару действий снова активировать, тормоза пропадают и на MediumQuality. Потанцевал с бубном в этом направлении и получил несколько правил для комфортной работы CameraComponent: 1. Включение камеры нужно выполнять, когда закончилась подготовка экрана. Если например включается страница TabControl, на которую выводим изображение с камеры, то в этой процедуре нельзя включать камеру, нужно перенести это действие в Application.OnIdle: Application.OnIdle:=CameraActivate; //CameraComponent.Active:=true; procedure TFormApp.CameraActivate(Sender: TObject; var Done: Boolean); begin   Done:=true; Application.OnIdle:=nil; CameraComponent.Active:=true; end; 2. Если включен автофокус CameraComponent.FocusMode:=TFocusMode.ContinuousAutoFocus;, после включения камере надо дать время потупить (пропустить несколько CameraComponentSampleBufferReady): procedure TFormApp.CameraComponentSampleBufferReady(Sender: TObject; const ATime: TMediaTime); begin   TThread.Synchronize(TThread.CurrentThread, CameraComponentSampleBufferReadySync); end; procedure TFormApp.CameraComponentSampleBufferReadySync; begin   if CameraActivateStep>0 then CameraActivateStep:=CameraActivateStep-1 else   begin     CameraComponent.SampleBufferToBitmap(CameraBitmapFull,true);     with ImagePositionImg.Bitmap.Canvas do if BeginScene then     try       DrawBitmap(CameraBitmapFull,RectScreenOnCamera,RectScreenOnScreen,1,true);       DrawRect(RectAimOnScreen,1);     finally       EndScene;     end;   end; end; Я до конца так и не понял, нужен ли этот Synchronize, в примере эмбры на паскале он был а на си нет... 3. Если камера затупила во время работы, нужно сделать перезапуск в одной процедуре: CameraComponent.Active:=false; CameraComponent.Active:=true; Вдруг кому поможет... Это была Delphi 11.3
    • После помещения TEdit в TScrollBox всё заработало
    • Добрый день. Не получается выложить вопрос. Сайт пишет что контент содержит запрещенные слова, но я таковых не нашел. В общем выложил вопрос в файл, который прикрепил. Подскажите пожалуйста по вопросу... Вопрос.docx
    • Попробуй так RoundRect1.Stroke.Color := TAlphaColorRec.red; Должно работать )
    • Подскажите как менять цвет обводки в RoundRect? В delphi 10.4 менял так и все было хорошо form2.RoundRect1.Canvas.Stroke.Color := TAlphaColorRec.red; А на delphi 12 ни чего не меняется  
    • Ну если тут ещё кто-то бродит... Тоже нужно было сделать изображение чёрно-белым для пересылки в Base64. Вот так получилось: procedure TForm1.ButtonStopClick(Sender: TObject); var SendData:TBitmapSurface; SizeX,SizeY,i,j:integer; Bmp:TBitMapData; begin   CameraComponent1.Active:=false;   SendData:=TBitmapSurface.Create; SizeX:=0; SizeY:=0;   if BmpCut.Map(TMapAccess.Read,Bmp) then   begin     SizeX:=Bmp.Width; SizeY:=Bmp.Height;     SendData.SetSize(SizeX,SizeY,TPixelFormat.L);     for j:=0 to SizeY-1 do for i:=0 to SizeX-1 do SendData.Pixels[i,j]:=Bmp.GetPixel(i,j);     BmpCut.Unmap(Bmp);   end;   Label2.Text:=IntToStr(SizeX)+'X'+IntToStr(SizeY)+'X'+IntToStr(SendData.BytesPerPixel);   Image1.Bitmap.Assign(SendData);   BmpCut.Free; SendData.Free; end; Label2.Text показал 1 байт на пиксель, в Image1 было чёрно-белое фото. Собственно отсылки тут нет. Только не нужно хранить в невидимом TImage, храните в TBitmapSurface.
    • Здравствуйте уважаемые. Win 10, Delphi 10.3. Поменял телефон на HONOR X7b. перестала запускаться отладка. При этом: 1.Приложение на телефоне удалено. 2.Режим отладки на телефоне включен. 3.Скриншоты на ошибки прилагаю. Прошу Вас подскажите что не так. Я вот не помню слово Activate должно быть ярким или нет как у меня ??  С Уважением.
    • Спасибо за совет 🙏  TFrame сработал идеально 😀👍  При сохранении и загрузке события назанченные на компоненты записываются и корректно восстанавливаются, а так же решилась проблема странного зависания Формы после восстановления-загрузки компонентов из файла 🤘😎  Теперь мне надо нагрузить Форму всеми возможными компонентами из списка Fire Monkey и проверить их совместимость с Memory Stream в контексте их корректного сохранения и корректного восстановления. Короче мое приключение в Delphi - Fire Monkey продолжается 👍
  • Последние темы

×
×
  • Создать...