android: Adds spinner position

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1824 8e941d3f-bd1b-0410-a28a-d453659cc2b4

examples/androidlcl/mainform.pas

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