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

Лидеры

  1. Andrey Efimov

    Andrey Efimov

    Модераторы


    • Баллы

      2

    • Постов

      842


  2. Рагим

    Рагим

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


    • Баллы

      2

    • Постов

      31


  3. Brovin Yaroslav

    Brovin Yaroslav

    Администраторы


    • Баллы

      1

    • Постов

      2 124


  4. enatechno

    enatechno

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


    • Баллы

      1

    • Постов

      181


Популярный контент

Показан контент с высокой репутацией 15.03.2016 во всех областях

  1. Заменил процедуру воспроизведения звука на эту: uses MMSystem; procedure playsound; begin sndPlaySound(Pchar('ringin.wav'), SND_NODEFAULT Or SND_ASYNC); end; Проблема устранена.
    2 балла
  2. Статья/видео урок на английском: http://delphi.org/2014/07/android-voice/
    2 балла
  3. Определить координату по цвету пикселя можно так: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.ScrollBox, FMX.Memo; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); var bd: TBitmapData; bm:TBitmap; i,j,cnt:integer; ac:TAlphaColor; begin cnt:=0; // количество bm:=Image1.MultiResBitmap.Items[0].Bitmap; bm.Map(TMapAccess.Read, bd); for i:=0 to bd.Width do for j:=0 to bd.Height do begin ac:=bd.GetPixel(i,j); if ac=TAlphaColorRec.Red then //4294901760=$FFFF0000 begin cnt:=cnt+1; Caption:='i='+i.ToString+',j='+j.ToString+' кол-во='+cnt.ToString; Sleep(300); end; end; Bm.Unmap(bd); end; end. Использовал TImage, а не TImageViewer (думаю не принципиально). Загрузил картинку, на которой поставлены в графическом редакторе красные точки (цвет FFFF0000). Склеить два битмапа наверное можно так: http://docwiki.embarcadero.com/CodeExamples/Seattle/en/CreateFromBitmapAndMask_(Delphi)
    1 балл
  4. Вы не ответили на вопрос. Слова "по приемке" для меня и, думаю, большинства остальных посетителей форума ничего не скажут. Я понимаю, что вы можете это сделать, но испытываете какие-то затруднения, иначе не задали бы этот вопрос. Давайте уйдем от специфики вашей области и оставим чисто программные понятия (дальше нужны ваши уточнения): 1. Стороннее приложение (а сторонее ли, или ваше ? Это очень важный момент) рисует что-то. 1. Это что-то сохраняется как ...??? Совершенно непонятно, что вы имеете ввиду под словом "схема" - это может быть что угодно, включая никому кроме автора неизвестный формат. 2. есть необходимость найти на ней пиксели определенного цвета и поверх них отрисовать картинку. В общем - конкретизируйте вашу задачу. Перечитайте свой вопрос с точки зрения человека, который первый раз его видит и вообще "не в теме", что там у вас за лампочки и схемы.
    1 балл
  5. enatechno

    stringGrid + цвет ячейки

    http://fire-monkey.ru/topic/887-tstringgrid-kak-podsvetit-zadnii-fon-iacheiki-v-zavisimos/ http://fire-monkey.ru/topic/287-izmenenie-svoistva-shrifta-odnoi-iacheiki-v-firemonkey-tstringgrid-delphi-xe6/
    1 балл
  6. 1. как воспроизвести потоковое видео с IP камеры на Андройд 2. пример использования распознания речи google api на Андройд 3. пример передачи даных из сервиса в приложение / узнать из севиса что приложение работает
    1 балл
  7. Есть два решения: Использовать встроенный в FireMonkey механизм автоматического выбора нужной формы (Для телефона или планшета) При запуске приложения определять тип устройства и создавать нужную формы вручную. Я рассмотрю первый вариант. Поскольку со вторым более менее все понятно. Первое решение основывается на понятии семейства форм. Основная идея следующая, вы определяете какие формы должны быть в вашем приложения без привязки к устройствам. Например, у вас получилось: Основная форма с данными Форма с настройками и тд То что мы перечислили в FireMonkey называется семейство форм или FormFamily. Далее вы создаете несколько форм в каждой семействе отдельно для телефона, отдельно для планшета, а отдельно для настольных систем. Далее все формы одного семейства помечаются через свойство формы TForm.FormFamily названием семейства (любой строковый идентификатор). Для каждой формы вы указываете через TForm.FormFactor на какие ориентации рассчитана каждый форма и на какие устройства, так же не забываем про размер формы на конечном устройстве. Далее приложение на основе этой информации автоматически выбирает нужную форму. Чтобы открыть нужную форму в семействе нужно использовать методы, которые по названию семейства вернут экземпляр формы Application: TApplication. function GetDeviceForm(const FormFamily: string; const FormFactor: TFormFactor): TCommonCustomForm; overload; function GetDeviceForm(const FormFamily: string): TCommonCustomForm; overload; Для ручной регистрации ваших форм в приложении используйте метод у Application: TApplication: procedure RegisterFormFamily(const AFormFamily: string; const AForms: array of TComponentClass); По умолчанию семейство главных форм называется "MainForm". Теперь то же самое, но на практике: 1. Создаем по отдельной форме для телефона и планшета. Я сделал две формы: PhoneFrm.FormPhone и TabletFrm.FormTablet. 2. Для формы телефона FormPhone указываем размеры формы через TFormFactor и в FormFactor.Devices указываем, что форма рассчитана для телефона iPhone. 3. Аналогично для формы планшета FormTablet указывает размер формы через TFormFactor и в FormFactor.Devices указываем, что форма рассчитана для планшетов iPad. 4. Для этих форм задаем название семейства форм FormFamily = "MainForm". Это название семейства по умолчанию для главной формы. Обратите внимание, что в файле проекта появились следующие строки: program MultiFormsSample; uses System.StartUpCopy, FMX.Forms, PhoneFrm in 'PhoneFrm.pas' {FormPhone}, TabletForm in 'TabletForm.pas' {FormTablet}; {$R *.res} begin Application.Initialize; Application.CreateForm(TFormPhone, FormPhone); Application.CreateForm(TFormTablet, FormTablet); Application.RegisterFormFamily('MainForm', [TFormPhone, TFormTablet]); Application.Run; end. Для нас же самое интересное это метод RegisterFormFamily, который регистрирует в системе наши формы под семейством MainForm. В момент запуска Application выберет нужную форму по заданным параметрам в FormFactor. 5. Наблюдаем результат работы под симулятором iPad и iPhone P.S. Исходники примера доступны для скачивания тут (RAD Studio XE5 Update 2):MultiFormsSample.zip
    1 балл
Эта таблица лидеров рассчитана в Москва/GMT+03:00
×
×
  • Создать...