1. Удалить старый пакет библиотеки FGX

Открываем среду IDE RAD Studio XE7 с административными правами. В меню открываем менеджер пакетов: "Component -> Install Packages..."

Среди списка компонентов находим "FMX Extension Components". Выделяем и нажимаем кнопку "Remove"

2. Установка пакета библиотеки FGX

Открываем в среде группу проектов. "File -> Open Project -> FGXGroup.groupproj"

Собираем пакет fgx210 для всех требуемых платформ. Выделяем в менеджере проектов нужную платформу "Target Platforms" и в контекстном меню пакета fgx210 выбираем "Build"

Далее повторяем сборку для всех целевых платформ.

3. Устанавливаем Design-Time пакет

Выбираем в группе проектов dclfgx210 пакет и в контекстном меню выбираем "Install"

Если пакет успешно установлен, то появится сообщение со списком зарегистрированных компонентов следующего вида:

Все! Установка окончена.

Если кто гуру в этом деле помогите, в долгу не останусь. Являюсь пожизненным поклонником Delphi от 1 версии до последней, первые приложения писал начиная с 1997г.

если кого интересуют мои наработки поделюсь https://www.fl.ru/users/bossalex/

где-то рабочий код брал под fmx 10.3.1 RIO, этот работает только на 10.1.2

==========================исходник проекта прикрепил----------->>>

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  Androidapi.JNI.Location, Androidapi.JNIBridge, Androidapi.JNI.JavaTypes,
  Androidapi.JNI.Os,Androidapi.Helpers, FMX.Layouts, FMX.ListBox, FMX.StdCtrls,
  FMX.Controls.Presentation,FMX.Platform,System.Rtti;

type

  TLocationListener = class;

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    { Private declarations }

  private
    FLocationManager : JLocationManager;
    locationListener : TLocationListener;
  public
    destructor Destroy; override;
    { Public declarations }
    procedure onLocationChanged(location: JLocation);
  end;

  TLocationListener = class(TJavaLocal, JLocationListener)
  private
    [weak]
    FParent : TForm1;
  public
    constructor Create(AParent : TForm1);
    procedure onLocationChanged(location: JLocation); cdecl;
    procedure onProviderDisabled(provider: JString); cdecl;
    procedure onProviderEnabled(provider: JString); cdecl;
    procedure onStatusChanged(provider: JString; status: Integer; extras: JBundle); cdecl;
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText;

{ TLocationListener }

constructor TLocationListener.Create(AParent: TForm1);
begin
  inherited Create;
  FParent := AParent;
end;

procedure TLocationListener.onLocationChanged(location: JLocation);
begin
  FParent.onLocationChanged(location);
end;

procedure TLocationListener.onProviderDisabled(provider: JString);
begin

end;

procedure TLocationListener.onProviderEnabled(provider: JString);
begin

end;

procedure TLocationListener.onStatusChanged(provider: JString; status: Integer;
  extras: JBundle);
begin

end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
  LocationManagerService: JObject;
  iter : JIterator;
  location : JLocation;
  ClipService: IFMXClipboardService;
begin
 try
  if not Assigned(FLocationManager) then
  begin
    LocationManagerService := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.LOCATION_SERVICE);
    FLocationManager := TJLocationManager.Wrap((LocationManagerService as ILocalObject).GetObjectID);
    if not Assigned(locationListener) then
      locationListener := TLocationListener.Create(self);
    FLocationManager.requestLocationUpdates(TJLocationManager.JavaClass.GPS_PROVIDER, 10000, 10, locationListener,
        TJLooper.JavaClass.getMainLooper);
  end;
  iter := FLocationManager.GetAllProviders.Iterator;
  ListBox1.Clear;
  while iter.hasNext do
  begin
    ListBox1.Items.Add(JStringToString(iter.next.ToString));
  end;
  CheckBox1.IsChecked := FLocationManager.isProviderEnabled(TJLocationManager.JavaClass.GPS_PROVIDER);
  CheckBox2.IsChecked := FLocationManager.isProviderEnabled(TJLocationManager.JavaClass.NETWORK_PROVIDER);
  location := FLocationManager.getLastKnownLocation(TJLocationManager.JavaClass.GPS_PROVIDER);
  onLocationChanged(location);
 except
    on e:Exception do
    begin
        if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,ClipService) then
    Begin
      ClipService.SetClipboard(TValue.From<string>(e.Message));
      ShowMEssage(e.Message);
    end;
    end;
 end;
end;

AndroidGPS.zip

For this great product (FGX component). I have a problem when using TFgActivityDialog in "Release Mode" in Delphi 10.3 Rio. I can not save my record in my PlayStore, it can save record into MySQL Server. What should i do to make mycode work in "Release mode" (playStore)? Please help me ...

Here is the code i wrote:

procedure TLocationForm.btnSendClick (Sender: TObject);
begin
    with dmMyLocation do
    begin
      if not fgActivityDialog.IsShown then
      begin
        FActivityDialogThread: = TThread.CreateAnonymousThread (procedure
        begin
          try
            TThread.Synchronize (nil, procedure
            begin
              fgActivityDialog.Message: = 'Please, Wait';
              fgActivityDialog.Show;
            end);
            Sleep ( 1000);
            if TThread.CheckTerminated then
              Exit;

            TThread.Synchronize (nil, procedure
            begin
              fgActivityDialog.Message: = 'Sending data ...';

              qInsert.SQL.Clear;
              qInsert.SQL.Add ('INSERT INTO mabsensilokasi (');
              qInsert.SQL.Add ('idlokasi,');
              qInsert.SQL.Add ('tgllokasi,');
              qInsert.SQL.Add ('latx,');
              qInsert.SQL.Add ('longx,');
              qInsert.SQL.Add ('latlongx,');
              qInsert.SQL.Add ('namalokasi)');
              qInsert.SQL.Add ('VALUES (');
              qInsert.SQL.Add (': idlokasi,');
              qInsert.SQL.Add (': tgllokasi,');
              qInsert.SQL.Add (': latx,') ;
              qInsert.SQL.Add (': longx,');
              qInsert.SQL.Add (': latlongx,' );
              qInsert.SQL.Add (': namalokasi)');

              qInsert.Prepare;
              qInsert.Params [0] .AsInteger: = 0;
              qInsert.Params [1] .AsDateTime: = Now;
              qInsert.Params [2] .AsFloat: = strToFloat (ENUSLat);
              qInsert.Params [3] .AsFloat: = strToFloat (ENUSLong);
              qInsert.Params [4] .AsString: = ENUSLat + ':' + ENUSLong;
              qInsert.Params [5] .AsString: = edtNamaLokasi.Text;

              try
                UniConnection1.Connect;
                qInsert.ExecSQL;
                ShowMessage ('Record was save into MySQL Server DB ...'); // showup windows of dialog when data was saved succesfully into db mysql server
              except
                on e: exception do
                begin
                  ShowMessage (e.Message);
                  UniConnection1.Disconnect;
                end; // exception
              end; // try

              //fgActivityDialog.ExecuteAction (btnSend);

            end);
            Sleep (1000);
            if TThread. CheckTerfeed then
              Exit;

            TThread.Synchronize (nil, procedure
            begin
              fgActivityDialog.Message: = 'Finish';
            end);
            Sleep (500);

            if TThread. CheckTerfeed then
              Exit;

          finally
            if not TThread.CheckTerminated then
              TThread.Synchronize (nil, procedure
              begin
                fgActivityDialog.Hide;
              end);
          end; // try
        end); // FActivityDialogThread

        FActivityDialogThread.FreeOnTerminate: = False;
        FActivityDialogThread.Start;
      end; // if

    end; // endDM

end; // endProc

First of all I would like to thank you for this great product (FGX component). I have a problem when using TFgActivityDialog in "Release Mode" in Delphi 10.3 Rio. When i deploy my Android Application in PlayStore, the application can not save record into mySQL Server, meanwhile in "Debug Mode" (Developement) it can save record into MySQL Server. What should i do to make mycode work in "Release mode" (playStore)? Please help me...

Here is the code i wrote:

procedure TLocationForm.btnSendClick(Sender: TObject);
begin
    with dmMyLocation do
    begin
      if not fgActivityDialog.IsShown then
      begin
        FActivityDialogThread := TThread.CreateAnonymousThread(procedure
        begin
          try
            TThread.Synchronize(nil, procedure
            begin
              fgActivityDialog.Message := 'Please, Wait';
              fgActivityDialog.Show;
            end);
            Sleep(1000);
            if TThread.CheckTerminated then
              Exit;

            TThread.Synchronize(nil, procedure
            begin
              fgActivityDialog.Message := 'Sending data...';

              qInsert.SQL.Clear;
              qInsert.SQL.Add('INSERT INTO mabsensilokasi(');
              qInsert.SQL.Add('idlokasi,');
              qInsert.SQL.Add('tgllokasi,');
              qInsert.SQL.Add('latx,');
              qInsert.SQL.Add('longx,');
              qInsert.SQL.Add('latlongx,');
              qInsert.SQL.Add('namalokasi) ');
              qInsert.SQL.Add('VALUES(');
              qInsert.SQL.Add(':idlokasi,');
              qInsert.SQL.Add(':tgllokasi,');
              qInsert.SQL.Add(':latx,');
              qInsert.SQL.Add(':longx,');
              qInsert.SQL.Add(':latlongx,');
              qInsert.SQL.Add(':namalokasi)');

              qInsert.Prepare;
              qInsert.Params[0].AsInteger := 0;
              qInsert.Params[1].AsDateTime := Now;
              qInsert.Params[2].AsFloat := strToFloat(ENUSLat);
              qInsert.Params[3].AsFloat := strToFloat(ENUSLong);
              qInsert.Params[4].AsString := ENUSLat+':'+ENUSLong;
              qInsert.Params[5].AsString := edtNamaLokasi.Text;

              try
                UniConnection1.Connect;
                qInsert.ExecSQL;
                ShowMessage('Record was save into MySQL Server DB...'); //showup windows of dialog when data was save succesfully into db mysql server
              except
                on e:exception do
                begin
                  ShowMessage(e.Message);
                  UniConnection1.Disconnect;
                end;//exception
              end;//try

              //fgActivityDialog.ExecuteAction(btnSend);

            end);
            Sleep(1000);
            if TThread.CheckTerminated then
              Exit;

            TThread.Synchronize(nil, procedure
            begin
              fgActivityDialog.Message := 'Finish';
            end);
            Sleep(500);

            if TThread.CheckTerminated then
              Exit;

          finally
            if not TThread.CheckTerminated then
              TThread.Synchronize(nil, procedure
              begin
                fgActivityDialog.Hide;
              end);
          end;//try
        end);//FActivityDialogThread

        FActivityDialogThread.FreeOnTerminate := False;
        FActivityDialogThread.Start;
      end;//if

    end;//endDM

end;//endProc

  fgActivityDialog1.Message := 'Teste';
  fgActivityDialog1.Show;
  sleep(3000);
  fgActivityDialog1.Hide;

Hello! After update to FGX version 0.7.1.118, when i try to execute .SHOW on fgActionSheet, i got  an error (Android):

Invoke Error: method not found.

This error occurs in my projects and FGX samples too.

I'm using RAD Studio Berlin 10.1 (No Updates)

Any help?

Thanks a lot!

Тип объявлен так:

  TfgToastDuration = (Short, Long);

А можно задать время в секундах?

Ну и любимый вопрос для разработчика ... хотя бы примерные сроки, ну или хотя бы на како этапе сейчас развитие проекта?

На Delphi работает - проверено, но под C++ не получается.

Может что я не так делаю, может есть пример кода?

объявляю в паблике:     TfgToast *Toast;

потом:

Toast = TfgToast->Create("Test");

и так

Toast->Message("Test");

вылетает приложение с AccesViolent.

Первое. Не работает свойство StartFromCurrentPosition. При любом значении берет то, что записано в StartValue.

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

К каждой версии RAD Studio я добавляю по одному компоненту к Open Source библиотеке FGX. Если у вас есть предложения, какие компоненты, функции, возможности хотелось бы увидеть в новой версии, прошу не стесняться и отписаться в этой теме.

Спасибо

---------------------

От модератора: Сообщения вынесены в отдельную тему в соответствии с правилами. Скриншот загружен на форум, под спойлер.

[dcc32 Fatal Error] FGX.Asserts.pas(159): F2039 Could not create output file 'c:\program files (x86)\embarcadero\studio\17.0\lib\Win32\Debug\FGX.Asserts.dcu'

1. Открыть Delphi пакет fgx.proj

2. В настройках пакета указать место вывода заголовочных файлов для C++Builder: "Project -> Options -> Delphi Compiler -> C/C++ .hpp output directory"

В верхнем выпадающем списке "Target" выберите "All Configurations - All Platforms"

3. Выполнить сборку пакета для всех платформ. После сборки убедиться, что для всех платформ получены заголовочные файлы:

4. Все, теперь можно создавать C++ приложения и подключив полученные заголовочные файлы использовать компоненты FGX.

Here are the steps that I followed:

1. I downloaded your file ('fgx_0.7.0.69.zip') and extracted its content into the following folder:
   
   
    
2. I launched Delphi 10 Seattle, opened 'FGXGroup.groupproj' and attempted to Build project 'fgx230.'
   
   
    
3. I got the following error:
   
   
    
4. I then changed the following from:
   
   
   
   to:
   
   
    
5. After the change, I was able to successfully Build project 'fgx230'
    
6. Then I attempted to Install package 'dclfgx230'
   
   
    
7. I got the following error:
   
   
    

This is where I am stuck and would appreciate your help. Thank you.

Скачал триальный Берил и решил приложение тестовое сделать.
Но вот вспомнил что TabControl не пролистывается пальцем, как например в приложении в VK.

Может что то поменялось или есть решение сторонее или исходник примера? 

Вроде было на форуме, а найти не могу.

раз у вас немного нашлось время на компоненты для DX )

Вопрос: можно ли реализовать сабж для андроид? Цвет текста не прошу.

Просто авто-яркость с ума сходит на гаджетах...

А если не сложно то и цвет рамки бы править хотелось бы, чтобы сделать ее одинаковой с бэкгроундом.

дабы отблагодарить за работу по компонентам предлагаю вам сделать кошелек QIWI. 

и обязательно указать его в разделе описания версий.

Время на создание у вас займет 1 минуту, а радости гораздо больше будет )).

Donate вещь бескорыстная и не накладывает на вас обязательства...но хоть какая-то мотивация.

поюзал ваши компоненты, очень понравились.

Не могли бы вы создать TfgToast? ...на базе скажем TfgActivityDialog.

Жутко нужный компонент. Варианты сторонних глючные...

Св-ва: длительность, фон, текст, высота - если автовроп сложен будет. (капризы не прошу: алайн и все такое).

Já tentei até mesmo programar no OnClick da Action e dentro chamar: TakePhotoFromLibraryAction.ExecuteTarget(nil); mas não é aberto a biblioteca de fotos.

O que posso fazer para isso funcionar?

Obrigado!

By Google Translator: