LCL-Android-Example: Makes the sqlite usage selectable

git-svn-id: trunk@39501 -

examples/androidlcl/mainform.lfm

@@ -43,9 +43,9 @@ object form1: Tform1
   end
   object CheckBox1: TCheckBox
     Left = 72
-    Height = 19
+    Height = 26
     Top = 40
-    Width = 78
+    Width = 91
     Caption = 'CheckBox1'
     TabOrder = 3
   end
@@ -71,7 +71,7 @@ object form1: Tform1
     Left = 24
     Height = 15
     Top = 226
-    Width = 34
+    Width = 36
     Caption = 'Label1'
     Font.Color = clBlue
     ParentColor = False
@@ -92,7 +92,7 @@ object form1: Tform1
     Top = 128
     Width = 140
     AutoSize = False
-    ItemHeight = 15
+    ItemHeight = 0
     Items.Strings = (
       'Item1'
       'Item2'

examples/androidlcl/mainform.pas

@@ -5,6 +5,7 @@ unit mainform;
 {$ifdef Linux}{$ifdef CPUARM}
   {$define Android}
 {$endif}{$endif}
+{.$define TEST_SQLITE}
 
 interface
 
@@ -219,8 +220,11 @@ end;
 
 procedure Tform1.btnOpenFormClick(Sender: TObject);
 begin
-  //Form2.Show;
-  formsqlite.Show;
+  {$ifdef TEST_SQLITE}formsqlite.Show;
+  {$else}
+  Form2.Show;
+  {$ENDIF}
+
   DebugLn('Button3Click');
 end;
 

examples/androidlcl/nonandroidtest.lpr

@@ -1,10 +1,13 @@
 program nonandroidtest;
 
 {$mode objfpc}{$H+}
+{.$define TEST_SQLITE}
 
 uses
   Interfaces, // this includes the LCL widgetset
-  Forms, mainform, secondform, sqliteform, customdrawndrawers,
+  Forms, mainform, secondform,
+  {$ifdef TEST_SQLITE}sqliteform,{$ENDIF}
+  customdrawndrawers,
   customdrawn_android;
 
 {$R *.res}
@@ -14,7 +17,7 @@ begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);
-  Application.CreateForm(TformSqlite, formSqlite);
+  {$ifdef TEST_SQLITE}Application.CreateForm(TformSqlite, formSqlite);{$ENDIF}
   Application.Run;
 end.