androidlcl: Binding update

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1810 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-19 10:55:53 +00:00
parent 50167841fd
commit 5eaf24e651
2 changed files with 68 additions and 6 deletions

View File

@ -92,8 +92,18 @@ public class AndroidAll
static final int amkUI_TCheckBox_Create = 0x00111000; static final int amkUI_TCheckBox_Create = 0x00111000;
// AdapterView // AdapterView
// AbsSpinner // AbsSpinner
static final int amkUI_TAbsSpinner_getCount = 0x00113000;
static final int amkUI_TAbsSpinner_setAdapter = 0x00113001;
// Spinner // Spinner
static final int amkUI_TSpinner_Create = 0x00114000; static final int amkUI_TSpinner_Create = 0x00114000;
// Filterable
// Adapter
// ListAdapter
// SpinnerAdapter
// BaseAdapter
// ArrayAdapter<String>
static final int amkUI_TArrayAdapter_String__Create = 0x0011A000;
static final int amkUI_TArrayAdapter_String__add = 0x0011A001;
public boolean ProcessCommand(int Buffer) public boolean ProcessCommand(int Buffer)
{ {
@ -114,10 +124,14 @@ public class AndroidAll
DisplayMetrics param_self_DisplayMetrics; DisplayMetrics param_self_DisplayMetrics;
CompoundButton param_self_CompoundButton; CompoundButton param_self_CompoundButton;
WindowManager param_self_WindowManager; WindowManager param_self_WindowManager;
AbsSpinner param_self_AbsSpinner;
ArrayAdapter<String> param_self_ArrayAdapter_String_;
// Params // Params
ViewGroup.LayoutParams lViewGroup_LayoutParams_1, lViewGroup_LayoutParams_2; ViewGroup.LayoutParams lViewGroup_LayoutParams_1, lViewGroup_LayoutParams_2;
SpinnerAdapter lSpinnerAdapter_1;
DisplayMetrics lDisplayMetrics_1; DisplayMetrics lDisplayMetrics_1;
CharSequence lCharSequence_1; CharSequence lCharSequence_1;
String lString_1;
View lView_1; View lView_1;
int lint_1, lint_2, lint_3, lint_4; int lint_1, lint_2, lint_3, lint_4;
float lfloat_1, lfloat_2; float lfloat_1, lfloat_2;
@ -546,11 +560,54 @@ public class AndroidAll
ViewElements.add(new CheckBox(activity)); ViewElements.add(new CheckBox(activity));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1); MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
break; break;
// method int getCount()
case amkUI_TAbsSpinner_getCount:
DebugOut("amkUI_TAbsSpinner_getCount");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_AbsSpinner = (AbsSpinner) ViewElements.get(lInt);
// params
//
lResult_int = param_self_AbsSpinner.getCount();
MyAndroidPipesComm.SendIntResult(lResult_int);
break;
// method void setAdapter(SpinnerAdapter adapter)
case amkUI_TAbsSpinner_setAdapter:
DebugOut("amkUI_TAbsSpinner_setAdapter");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_AbsSpinner = (AbsSpinner) ViewElements.get(lInt);
// params
lInt = MyAndroidPipesComm.GetInt();
lSpinnerAdapter_1 = (SpinnerAdapter) ViewElements.get(lInt);
//
param_self_AbsSpinner.setAdapter(lSpinnerAdapter_1);
MyAndroidPipesComm.SendResult();
break;
case amkUI_TSpinner_Create: case amkUI_TSpinner_Create:
DebugOut("amkUI_TSpinner_Create"); DebugOut("amkUI_TSpinner_Create");
ViewElements.add(new Spinner(activity)); ViewElements.add(new Spinner(activity));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1); MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
break; break;
case amkUI_TArrayAdapter_String__Create:
DebugOut("amkUI_TArrayAdapter_String__Create");
lint_1 = MyAndroidPipesComm.GetInt();
ViewElements.add(new ArrayAdapter<String>(activity, lint_1));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
break;
// method void add(String aobject)
case amkUI_TArrayAdapter_String__add:
DebugOut("amkUI_TArrayAdapter_String__add");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_ArrayAdapter_String_ = (ArrayAdapter<String>) ViewElements.get(lInt);
// params
lInt = MyAndroidPipesComm.GetInt();
lString_1 = (String) MyJavaLang.LangElements.get(lInt);
//
param_self_ArrayAdapter_String_.add(lString_1);
MyAndroidPipesComm.SendResult();
break;
default: default:
return false; return false;

View File

@ -1,7 +1,7 @@
object Form2: TForm2 object Form2: TForm2
Left = 313 Left = 181
Height = 240 Height = 240
Top = 186 Top = 137
Width = 320 Width = 320
Caption = 'Form2' Caption = 'Form2'
ClientHeight = 240 ClientHeight = 240
@ -16,17 +16,17 @@ object Form2: TForm2
TabOrder = 0 TabOrder = 0
end end
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
Left = 32 Left = 33
Height = 21 Height = 21
Top = 91 Top = 88
Width = 94 Width = 94
Caption = 'CheckBox1' Caption = 'CheckBox1'
TabOrder = 1 TabOrder = 1
end end
object Edit1: TEdit object Edit1: TEdit
Left = 37 Left = 33
Height = 25 Height = 25
Top = 145 Top = 144
Width = 99 Width = 99
TabOrder = 2 TabOrder = 2
Text = 'Edit1' Text = 'Edit1'
@ -45,6 +45,11 @@ object Form2: TForm2
Top = 88 Top = 88
Width = 112 Width = 112
ItemHeight = 0 ItemHeight = 0
Items.Strings = (
'Item1'
'Item2'
'Item3'
)
TabOrder = 4 TabOrder = 4
Text = 'ComboBox1' Text = 'ComboBox1'
end end