Android Module Wizard

[Fatih KILIÇ]

Hi,

When I set jTextView.Text property by turkish characters set, the characters's view is incorrect. Is this a bug?

How do I solve this problem?

Note: The .pas file is saved in UTF8 format.

Code: [Select]

jTextView.Text := 'İETT Otobüs Sefer Bilgisi (iettosb), İETT''nin yurt içi taşımacılığı...';

Screen View:
İETT Otobüs Sefer Bilgisi (iettosb), İETT''nin yurt içi taşımacılığı' +

[tk]

Source file encoding must be UTF8. Try with our without BOM. Debug in assembly. Check if there is no conversion routine called like fpc_ansi_str* or similar.

[Fatih KILIÇ]

Thanks tk. As you said, I removed related section and problem solved.

File: Laz_And_Controls.pas

Code: [Select]

Procedure jTextView.SetText(Value: string);
begin
  FText:= Value; //utf8encode(Value);  // Removed.
  if FInitialized then
    jTextView_setText2(jForm(Owner).App.Jni.jEnv, jForm(Owner).App.Jni.jThis, FjObject, FText);
end;


[Fatih KILIÇ]

Hi, jmpessoa.

1. Can you adapt below java code or improved related function to the Android Module Wizard in the fashion GetIntData, SetIntData, GetStringData, SetStringData, GetBoolData, SetBoolData?

2. Can you add GPS component to the Android Module Wizard?

Thanks.

Code: [Select]

private static int getIntData(Context context, String Key, int defValue) {

SharedPreferences sPref = PreferenceManager
.getDefaultSharedPreferences(context);

return sPref.getInt(Key, defValue);
}

private static void setIntData(Context context, String Key, int Value) {

SharedPreferences sPref = PreferenceManager
.getDefaultSharedPreferences(context);

SharedPreferences.Editor edt = sPref.edit();
edt.putInt(Key, Value);
edt.commit();
}

private static String getStringData(Context context, String Key, String defValue) {

SharedPreferences sPref = PreferenceManager
.getDefaultSharedPreferences(context);

return sPref.getString(Key, defValue);
}

private static void setStringData(Context context, String Key, String Value) {

SharedPreferences sPref = PreferenceManager
.getDefaultSharedPreferences(context);

SharedPreferences.Editor edt = sPref.edit();
edt.putString(Key, Value);
edt.commit();
}

private static boolean getBoolData(Context context, String Key, boolean defValue) {

SharedPreferences sPref = PreferenceManager
.getDefaultSharedPreferences(context);

return sPref.getBoolean(Key, defValue);
}

private static void setBoolData(Context context, String Key, boolean Value) {

SharedPreferences sPref = PreferenceManager
.getDefaultSharedPreferences(context);

SharedPreferences.Editor edt = sPref.edit();
edt.putBoolean(Key, Value);
edt.commit();
}


[jmpessoa]

Ok Fatih , I will try!

Thank you!

[jmpessoa]

Hi All!

There is an updated version of "Android Module Wizard"

      :: New jLocation Component: Add Partial Support for Location Object //<<---- A suggestion and request by Fatih KILIÇ

      :: New jPreference Component: Add Partial Support for Preferences Object //<<---- A suggestion and request by Fatih KILIÇ

      :: NEW AppLocationDemo [Eclipse Project]  --- see picture attached


ref. https://github.com/jmpessoa/lazandroidmodulewizard

Thanks to All!

[Leledumbo]

Hi All!

There is an updated version of "Android Module Wizard"

      :: New jLocation Component: Add Partial Support for Location Object //<<---- A suggestion and request by Fatih KILIÇ

      :: New jPreference Component: Add Partial Support for Preferences Object //<<---- A suggestion and request by Fatih KILIÇ

      :: NEW AppLocationDemo [Eclipse Project]  --- see picture attached


ref. https://github.com/jmpessoa/lazandroidmodulewizard

Thanks to All!

Congratulations! How's the GUI designer progress?

[Fatih KILIÇ]

Thanks jmpessoa for taking valuable time.

Become a beautiful work.

I wish you continued efforts.

[jmpessoa]

Hi!

Code: [Select]

...How's the GUI designer progress?
I'm still working .... you can already see some results [attached figures]

Thanks!

[Fatih KILIÇ]

Hi.

Q1.
My there are two form. First form (TAndroidModule1) opens second form (TAndroidModule3). Second form must result value to the first form. Below codes is insufficient. How two form are synchronize the value? (global.SelectedHat)

Form1

Code: [Select]

procedure TAndroidModule1.DataModuleClickContextMenuItem(Sender: TObject;
  jObjMenuItem: jObject; itemID: integer; itemCaption: string; checked: boolean
  );
begin

  if(itemID = 10) then
  begin

    if(AndroidModule3 = nil) then
    begin

      gApp.CreateForm(TAndroidModule3, AndroidModule3);
      AndroidModule3.Init(gApp);
    end else AndroidModule3.Show;
  end;

  // global variable
  edtHat.Text := global.SelectedHat;
end;

Form2

Code: [Select]

procedure TAndroidModule3.jListView1ClickCaptionItem(Sender: TObject;
  Item: integer; caption: string);
begin

  // global variable
  global.SelectedHat := caption;

  Close;
end;

Q2:
Second problem is when add item jListView above 512 the program is crach. Error is: "E/dalvikvm(3819): Failed adding to JNI local ref table (has 512 entries)"

How resolve these problem. Thanks.

[jmpessoa]

Hi Fatih,

Q1. :: I Added Unit "global" for TAndroidModule1 unit AND for TAndroidModule3 unit: my test was OK!!!

Q2: In line "6355" of  "And_jni_Bridge.pas", See my code and the FIX:

Code: [Select]

Procedure jListView_add2(env:PJNIEnv;this:jobject; ListView: jObject; Str: string; delimiter: string);
var
  _jMethod: jMethodID = nil;
  _jParams: array[0..1] of jValue;
  cls: jClass;
begin
  _jParams[0].l := env^.NewStringUTF(env, pchar(Str) );
  _jParams[1].l := env^.NewStringUTF(env, pchar(delimiter) );
  cls := env^.GetObjectClass(env, ListView);
  _jMethod:= env^.GetMethodID(env, cls, 'add2', '(Ljava/lang/String;Ljava/lang/String;)V');
  env^.CallVoidMethodA(env,ListView,_jMethod,@_jParams);
  env^.DeleteLocalRef(env,_jParams[0].l);
  env^.DeleteLocalRef(env,_jParams[1].l);
  env^.DeleteLocalRef(env, cls);  // <---- Added this for bug fix! 09-Sept-2014 [Thanks to  @Fatih!]
end;   

Please, do this for others jListView_add* too!

Thank you!

[Fatih KILIÇ]

Thanks jmpessoa

jListView1.Add problem is solved. Also i'm waiting updated lazandroidmodule for global unit.

A suggestion: improving of ListView widget will helpful.

[jmpessoa]

Hi Fatih, about Q1:

No, there will be NO update for global unit .... I just tried to redo the path that you were trying to do .... and managed to get the expected result! For test  I just used this code:

Code: [Select]

unit Global;

{$mode delphi}

interface

uses
  Classes, SysUtils;

var

  SelectedHat: string;

implementation

end.

Thank you!

[Fatih KILIÇ]

Hi, jmpessoa

When I click TAndroidModule3.jListView (TAndroidModule3.jListView1ClickCaptionItem) the Form2 (TAndroidModule3) is closed, global.SelectedHat variable is empty and edtHat.Text (jEditText) control value is showing blank value.

I think there are synchronize problem? I could not find a solution.

Thank you.

[jmpessoa]

Hi Fatih, please, try this:
 

Code: [Select]

Unit3

interface
 
............................
............................

implementation

uses Unit1;   //< ------ put it!

procedure TAndroidModule3.jListView1ClickCaptionItem(Sender: TObject;
  Item: integer; caption: string);
begin

  // global variable
  global.SelectedHat := caption;

  Unit1.edtHat.Text := global.SelectedHat;  ////< ------ put it!

  Close;
end;

Thank you!

PS. As soon as possible, I will try a more architectural synchronization solution!

EDITED: Ok, here's a more elegant solution:

Code: [Select]

TAndroidModule1 = class(jForm)

    private
      {private declarations}
    public
      {public declarations}
      Procedure MyCallBack(Sender: TObject);  //<--- your call back function!
end; 

implementation

Procedure TAndroidModule1.MyCallBack(Sender: TObject);
begin
   jEditText1.Text:= global.SelectedHat;
end; 

procedure TAndroidModule1.DataModuleClickContextMenuItem(Sender: TObject;
  jObjMenuItem: jObject; itemID: integer; itemCaption: string; checked: boolean);
begin

  if(itemID = 10) then
  begin

    if(AndroidModule3 = nil) then
    begin
        gApp.CreateForm(TAndroidModule3, AndroidModule3);
        AndroidModule3.SetCloseCallBack(MyCallBack, nil);  //<<-- [delphi sintaxe mode]!
        AndroidModule3.Init(gApp);
    end else AndroidModule3.Show;
  end;

  // global variable
  //edtHat.Text := global.SelectedHat; //<<---- this line never was called!
end;


Thank you!