pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

android: Adds spinner position

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1824 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-22 09:21:55 +00:00
parent 7f3b8cba8c
commit 9300c23a79
6 changed files with 128 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

118
bindings/android-sdk/android_bindings_generator.lpi
View File

@ -117,10 +117,11 @@
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="android_sdk_bindings_gen"/> <UnitName Value="android_sdk_bindings_gen"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="401"/> <TopLine Value="159"/>
<CursorPos X="36" Y="432"/> <CursorPos X="18" Y="188"/>
<UsageCount Value="42"/> <UsageCount Value="42"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit8> </Unit8>
@ -200,8 +201,8 @@
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="sdk_level_7/android_all.txt"/>
<EditorIndex Value="4"/> <EditorIndex Value="4"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="71"/>
<CursorPos X="14" Y="7"/> <CursorPos X="1" Y="83"/>
<UsageCount Value="14"/> <UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="None"/> <DefaultSyntaxHighlighter Value="None"/>
@ -243,7 +244,6 @@
<Unit23> <Unit23>
<Filename Value="../../../lazarus/lcl/interfaces/android/android_all.pas"/> <Filename Value="../../../lazarus/lcl/interfaces/android/android_all.pas"/>
<UnitName Value="android_all"/> <UnitName Value="android_all"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="5"/> <EditorIndex Value="5"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="467"/> <TopLine Value="467"/>
@ -272,124 +272,124 @@
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="539" Column="1" TopLine="507"/>
</Position1>
<Position2>
<Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="541" Column="1" TopLine="507"/>
</Position2>
<Position3>
<Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="542" Column="36" TopLine="526"/>
</Position3>
<Position4>
<Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="145" Column="23" TopLine="99"/>
</Position4>
<Position5>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position5> </Position1>
<Position6> <Position2>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="143" Column="21" TopLine="99"/> <Caret Line="143" Column="21" TopLine="99"/>
</Position2>
<Position3>
<Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="145" Column="23" TopLine="99"/>
</Position3>
<Position4>
<Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="42" Column="20" TopLine="3"/>
</Position4>
<Position5>
<Filename Value="../../../lazarus/lcl/interfaces/android/android_all.pas"/>
<Caret Line="666" Column="17" TopLine="653"/>
</Position5>
<Position6>
<Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="864" Column="22" TopLine="858"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="145" Column="23" TopLine="99"/> <Caret Line="150" Column="1" TopLine="103"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="42" Column="20" TopLine="3"/> <Caret Line="42" Column="1" TopLine="1"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="../../../lazarus/lcl/interfaces/android/android_all.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="666" Column="17" TopLine="653"/> <Caret Line="151" Column="1" TopLine="108"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="864" Column="22" TopLine="858"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="150" Column="1" TopLine="103"/> <Caret Line="37" Column="1" TopLine="14"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="42" Column="1" TopLine="1"/> <Caret Line="267" Column="1" TopLine="220"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="151" Column="1" TopLine="108"/> <Caret Line="797" Column="48" TopLine="781"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="37" Column="1" TopLine="14"/> <Caret Line="33" Column="29" TopLine="1"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="sdk_level_7/android_all.txt"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="267" Column="1" TopLine="220"/> <Caret Line="410" Column="23" TopLine="396"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="797" Column="48" TopLine="781"/> <Caret Line="552" Column="23" TopLine="512"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="mainform.pas"/>
<Caret Line="1" Column="1" TopLine="1"/> <Caret Line="15" Column="80" TopLine="6"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="33" Column="29" TopLine="1"/> <Caret Line="486" Column="65" TopLine="468"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="410" Column="23" TopLine="396"/> <Caret Line="847" Column="64" TopLine="832"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="552" Column="23" TopLine="512"/> <Caret Line="38" Column="66" TopLine="38"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="mainform.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="15" Column="80" TopLine="6"/> <Caret Line="506" Column="11" TopLine="476"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="486" Column="65" TopLine="468"/> <Caret Line="38" Column="45" TopLine="1"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="847" Column="64" TopLine="832"/> <Caret Line="760" Column="1" TopLine="727"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="38" Column="66" TopLine="38"/> <Caret Line="26" Column="75" TopLine="1"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="android_sdk_bindings_gen.pas"/>
<Caret Line="506" Column="11" TopLine="476"/> <Caret Line="306" Column="94" TopLine="293"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="38" Column="45" TopLine="1"/> <Caret Line="22" Column="14" TopLine="1"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="760" Column="1" TopLine="727"/> <Caret Line="123" Column="10" TopLine="83"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="26" Column="75" TopLine="1"/> <Caret Line="124" Column="8" TopLine="84"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="android_sdk_bindings_gen.pas"/> <Filename Value="sdk_level_7/android_all.txt"/>
<Caret Line="306" Column="94" TopLine="293"/> <Caret Line="131" Column="29" TopLine="91"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

9
bindings/android-sdk/android_sdk_bindings_gen.pas
View File

@ -163,11 +163,15 @@ begin
ADest.Add(' public boolean ProcessCommand(int Buffer)'); ADest.Add(' public boolean ProcessCommand(int Buffer)');
ADest.Add(' {'); ADest.Add(' {');
ADest.Add(' //DebugOut("AndroidUI.ProcessCommand Command=" + java.lang.Integer.toHexString(Buffer));'); ADest.Add(' //DebugOut("AndroidUI.ProcessCommand Command=" + java.lang.Integer.toHexString(Buffer));');
ADest.Add(' //');
ADest.Add(' // basic types'); ADest.Add(' // basic types');
ADest.Add(' //');
ADest.Add(' int lInt, lIndex, lPascalPointer;'); ADest.Add(' int lInt, lIndex, lPascalPointer;');
ADest.Add(' boolean lBool;'); ADest.Add(' boolean lBool;');
ADest.Add(' float lFloat;'); ADest.Add(' float lFloat;');
ADest.Add(' //');
ADest.Add(' // Self params'); ADest.Add(' // Self params');
ADest.Add(' //');
ADest.Add(' View param_self_View;'); ADest.Add(' View param_self_View;');
ADest.Add(' ViewGroup param_self_ViewGroup;'); ADest.Add(' ViewGroup param_self_ViewGroup;');
ADest.Add(' TextView param_self_TextView;'); ADest.Add(' TextView param_self_TextView;');
@ -181,7 +185,10 @@ begin
ADest.Add(' WindowManager param_self_WindowManager;'); ADest.Add(' WindowManager param_self_WindowManager;');
ADest.Add(' AbsSpinner param_self_AbsSpinner;'); ADest.Add(' AbsSpinner param_self_AbsSpinner;');
ADest.Add(' ArrayAdapter<String> param_self_ArrayAdapter_String_;'); ADest.Add(' ArrayAdapter<String> param_self_ArrayAdapter_String_;');
ADest.Add(' AdapterView param_self_AdapterView;');
ADest.Add(' //');
ADest.Add(' // Params'); ADest.Add(' // Params');
ADest.Add(' //');
ADest.Add(' ViewGroup.LayoutParams lViewGroup_LayoutParams_1, lViewGroup_LayoutParams_2, lViewGroup_LayoutParams_3;'); ADest.Add(' ViewGroup.LayoutParams lViewGroup_LayoutParams_1, lViewGroup_LayoutParams_2, lViewGroup_LayoutParams_3;');
ADest.Add(' SpinnerAdapter lSpinnerAdapter_1;'); ADest.Add(' SpinnerAdapter lSpinnerAdapter_1;');
ADest.Add(' DisplayMetrics lDisplayMetrics_1;'); ADest.Add(' DisplayMetrics lDisplayMetrics_1;');
@ -191,7 +198,9 @@ begin
ADest.Add(' int lint_1, lint_2, lint_3, lint_4;'); ADest.Add(' int lint_1, lint_2, lint_3, lint_4;');
ADest.Add(' float lfloat_1, lfloat_2;'); ADest.Add(' float lfloat_1, lfloat_2;');
ADest.Add(' boolean lboolean_1;'); ADest.Add(' boolean lboolean_1;');
ADest.Add(' //');
ADest.Add(' // Results'); ADest.Add(' // Results');
ADest.Add(' //');
ADest.Add(' float lResult_float;'); ADest.Add(' float lResult_float;');
ADest.Add(' int lResult_int;'); ADest.Add(' int lResult_int;');
ADest.Add(' boolean lResult_boolean;'); ADest.Add(' boolean lResult_boolean;');

7
bindings/android-sdk/sdk_level_7/android_all.txt
View File

@ -87,11 +87,9 @@ method CharSequence getText()
[EditText] TextView [EditText] TextView
constructor Create(Activity); override; constructor Create(Activity); override;
method void setText(CharSequence AText); override;
[Button] TextView [Button] TextView
constructor Create(Activity); override; constructor Create(Activity); override;
method void setText(CharSequence AText); override;
[FrameLayout] ViewGroup [FrameLayout] ViewGroup
@ -119,6 +117,7 @@ method void toggle()
constructor Create(Activity) constructor Create(Activity)
[AdapterView] ViewGroup [AdapterView] ViewGroup
method int getSelectedItemPosition()
[AbsSpinner] AdapterView [AbsSpinner] AdapterView
# SpinnerAdapter getAdapter() # SpinnerAdapter getAdapter()
@ -129,8 +128,8 @@ method int getCount()
# int pointToPosition(int x, int y) # int pointToPosition(int x, int y)
# void requestLayout() # void requestLayout()
method void setAdapter(SpinnerAdapter adapter) method void setAdapter(SpinnerAdapter adapter)
# void setSelection(int position, boolean animate) methodo void setSelection(int position, boolean animate); overload;
# void setSelection(int position) method void setSelection(int position); overload;
[Spinner] AbsSpinner [Spinner] AbsSpinner
constructor Create(Activity); constructor Create(Activity);

63
examples/androidlcl/android/src/com/pascal/androidlcl/AndroidAll.java
View File

@ -77,10 +77,8 @@ public class AndroidAll
static final int amkUI_TTextView_getText_6 = 0x0010B006; static final int amkUI_TTextView_getText_6 = 0x0010B006;
// EditText // EditText
static final int amkUI_TEditText_Create_0 = 0x0010C000; static final int amkUI_TEditText_Create_0 = 0x0010C000;
static final int amkUI_TEditText_setText_1 = 0x0010C001;
// Button // Button
static final int amkUI_TButton_Create_0 = 0x0010D000; static final int amkUI_TButton_Create_0 = 0x0010D000;
static final int amkUI_TButton_setText_1 = 0x0010D001;
// FrameLayout // FrameLayout
// TimePicker // TimePicker
static final int amkUI_TTimePicker_Create_0 = 0x0010F000; static final int amkUI_TTimePicker_Create_0 = 0x0010F000;
@ -100,9 +98,11 @@ public class AndroidAll
// CheckBox // CheckBox
static final int amkUI_TCheckBox_Create_0 = 0x00112000; static final int amkUI_TCheckBox_Create_0 = 0x00112000;
// AdapterView // AdapterView
static final int amkUI_TAdapterView_getSelectedItemPosition_0 = 0x00113000;
// AbsSpinner // AbsSpinner
static final int amkUI_TAbsSpinner_getCount_0 = 0x00114000; static final int amkUI_TAbsSpinner_getCount_0 = 0x00114000;
static final int amkUI_TAbsSpinner_setAdapter_1 = 0x00114001; static final int amkUI_TAbsSpinner_setAdapter_1 = 0x00114001;
static final int amkUI_TAbsSpinner_setSelection_2 = 0x00114002;
// Spinner // Spinner
static final int amkUI_TSpinner_Create_0 = 0x00115000; static final int amkUI_TSpinner_Create_0 = 0x00115000;
// Filterable // Filterable
@ -121,11 +121,15 @@ public class AndroidAll
public boolean ProcessCommand(int Buffer) public boolean ProcessCommand(int Buffer)
{ {
//DebugOut("AndroidUI.ProcessCommand Command=" + java.lang.Integer.toHexString(Buffer)); //DebugOut("AndroidUI.ProcessCommand Command=" + java.lang.Integer.toHexString(Buffer));
//
// basic types // basic types
//
int lInt, lIndex, lPascalPointer; int lInt, lIndex, lPascalPointer;
boolean lBool; boolean lBool;
float lFloat; float lFloat;
//
// Self params // Self params
//
View param_self_View; View param_self_View;
ViewGroup param_self_ViewGroup; ViewGroup param_self_ViewGroup;
TextView param_self_TextView; TextView param_self_TextView;
@ -139,7 +143,10 @@ public class AndroidAll
WindowManager param_self_WindowManager; WindowManager param_self_WindowManager;
AbsSpinner param_self_AbsSpinner; AbsSpinner param_self_AbsSpinner;
ArrayAdapter<String> param_self_ArrayAdapter_String_; ArrayAdapter<String> param_self_ArrayAdapter_String_;
AdapterView param_self_AdapterView;
//
// Params // Params
//
ViewGroup.LayoutParams lViewGroup_LayoutParams_1, lViewGroup_LayoutParams_2, lViewGroup_LayoutParams_3; ViewGroup.LayoutParams lViewGroup_LayoutParams_1, lViewGroup_LayoutParams_2, lViewGroup_LayoutParams_3;
SpinnerAdapter lSpinnerAdapter_1; SpinnerAdapter lSpinnerAdapter_1;
DisplayMetrics lDisplayMetrics_1; DisplayMetrics lDisplayMetrics_1;
@ -149,7 +156,9 @@ public class AndroidAll
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;
boolean lboolean_1; boolean lboolean_1;
//
// Results // Results
//
float lResult_float; float lResult_float;
int lResult_int; int lResult_int;
boolean lResult_boolean; boolean lResult_boolean;
@ -501,37 +510,11 @@ public class AndroidAll
ViewElements.add(new EditText(activity)); ViewElements.add(new EditText(activity));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1); MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
break; break;
// method void setText(CharSequence AText); override;
case amkUI_TEditText_setText_1:
DebugOut("amkUI_TEditText_setText_1");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_EditText = (EditText) ViewElements.get(lInt);
// params
lInt = MyAndroidPipesComm.GetInt();
lCharSequence_1 = (CharSequence) MyJavaLang.LangElements.get(lInt);
//
param_self_EditText.setText(lCharSequence_1);
MyAndroidPipesComm.SendResult();
break;
case amkUI_TButton_Create_0: case amkUI_TButton_Create_0:
DebugOut("amkUI_TButton_Create_0"); DebugOut("amkUI_TButton_Create_0");
ViewElements.add(new Button(activity)); ViewElements.add(new Button(activity));
MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1); MyAndroidPipesComm.SendIntResult(ViewElements.size() - 1);
break; break;
// method void setText(CharSequence AText); override;
case amkUI_TButton_setText_1:
DebugOut("amkUI_TButton_setText_1");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_Button = (Button) ViewElements.get(lInt);
// params
lInt = MyAndroidPipesComm.GetInt();
lCharSequence_1 = (CharSequence) MyJavaLang.LangElements.get(lInt);
//
param_self_Button.setText(lCharSequence_1);
MyAndroidPipesComm.SendResult();
break;
case amkUI_TTimePicker_Create_0: case amkUI_TTimePicker_Create_0:
DebugOut("amkUI_TTimePicker_Create_0"); DebugOut("amkUI_TTimePicker_Create_0");
ViewElements.add(new TimePicker(activity)); ViewElements.add(new TimePicker(activity));
@ -665,6 +648,17 @@ 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 getSelectedItemPosition()
case amkUI_TAdapterView_getSelectedItemPosition_0:
DebugOut("amkUI_TAdapterView_getSelectedItemPosition_0");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_AdapterView = (AdapterView) ViewElements.get(lInt);
// params
//
lResult_int = param_self_AdapterView.getSelectedItemPosition();
MyAndroidPipesComm.SendIntResult(lResult_int);
break;
// method int getCount() // method int getCount()
case amkUI_TAbsSpinner_getCount_0: case amkUI_TAbsSpinner_getCount_0:
DebugOut("amkUI_TAbsSpinner_getCount_0"); DebugOut("amkUI_TAbsSpinner_getCount_0");
@ -689,6 +683,19 @@ public class AndroidAll
param_self_AbsSpinner.setAdapter(lSpinnerAdapter_1); param_self_AbsSpinner.setAdapter(lSpinnerAdapter_1);
MyAndroidPipesComm.SendResult(); MyAndroidPipesComm.SendResult();
break; break;
// method void setSelection(int position); overload;
case amkUI_TAbsSpinner_setSelection_2:
DebugOut("amkUI_TAbsSpinner_setSelection_2");
// Self
lInt = MyAndroidPipesComm.GetInt();
param_self_AbsSpinner = (AbsSpinner) ViewElements.get(lInt);
// params
lInt = MyAndroidPipesComm.GetInt();
lint_1 = lInt;
//
param_self_AbsSpinner.setSelection(lint_1);
MyAndroidPipesComm.SendResult();
break;
case amkUI_TSpinner_Create_0: case amkUI_TSpinner_Create_0:
DebugOut("amkUI_TSpinner_Create_0"); DebugOut("amkUI_TSpinner_Create_0");
ViewElements.add(new Spinner(activity)); ViewElements.add(new Spinner(activity));

9
examples/androidlcl/mainform.lfm
View File

@ -62,4 +62,13 @@ object Form2: TForm2
TabOrder = 5 TabOrder = 5
Text = 'Edit2' Text = 'Edit2'
end end
object Button2: TButton
Left = 35
Height = 25
Top = 186
Width = 75
Caption = 'InputBox'
OnClick = Button2Click
TabOrder = 6
end
end end

13
examples/androidlcl/mainform.pas
View File

@ -14,12 +14,14 @@ type
TForm2 = class(TForm) TForm2 = class(TForm)
Button1: TButton; Button1: TButton;
Button2: TButton;
CheckBox1: TCheckBox; CheckBox1: TCheckBox;
ComboBox1: TComboBox; ComboBox1: TComboBox;
Edit1: TEdit; Edit1: TEdit;
Edit2: TEdit; Edit2: TEdit;
StaticText1: TStaticText; StaticText1: TStaticText;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
@ -45,13 +47,19 @@ begin
if CheckBox1.Checked then lChecked := 'True' if CheckBox1.Checked then lChecked := 'True'
else lChecked := 'False'; else lChecked := 'False';
{$ifdef LCLAndroid}
vAndroidPipesComm.Log('3'); vAndroidPipesComm.Log('3');
{$endif}
lEdit1Text := Edit1.Text; lEdit1Text := Edit1.Text;
{$ifdef LCLAndroid}
vAndroidPipesComm.Log('4'); vAndroidPipesComm.Log('4');
{$endif}
lComboBox := IntToStr(ComboBox1.ItemIndex); lComboBox := IntToStr(ComboBox1.ItemIndex);
{$ifdef LCLAndroid}
vAndroidPipesComm.Log('5'); vAndroidPipesComm.Log('5');
{$endif}
Edit2.Text := Edit2.Text :=
'Edit1.Text='+lEdit1Text+LineEnding+ 'Edit1.Text='+lEdit1Text+LineEnding+
@ -62,6 +70,11 @@ begin
Caption := lEdit1Text; Caption := lEdit1Text;
end; end;
procedure TForm2.Button2Click(Sender: TObject);
begin
InputBox('Caption', 'Prompt', 'Default');
end;
initialization initialization
{$I mainform.lrs} {$I mainform.lrs}