Android OpenGL improvement

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

examples/androidlclv2/androidlcltest.lpi

@@ -40,12 +40,19 @@
         <PackageName Value="LCL"/>
       </Item1>
     </RequiredPackages>
-    <Units Count="1">
+    <Units Count="2">
       <Unit0>
         <Filename Value="androidlcltest.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="androidlcltest"/>
       </Unit0>
+      <Unit1>
+        <Filename Value="mainform.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="Form1"/>
+        <ResourceBaseClass Value="Form"/>
+        <UnitName Value="mainform"/>
+      </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

examples/androidlclv2/androidlcltest.lpr

@@ -9,11 +9,15 @@ uses
   android_native_app_glue,
   {$endif}
   Interfaces,
+  Forms,
   mainform;
 
 exports //android_main name 'android_main',
   ANativeActivity_onCreate name 'ANativeActivity_onCreate';
 
 begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
 end.
 

examples/androidlclv2/mainform.lfm

@@ -4,5 +4,6 @@ object Form1: TForm1
   Top = 186
   Width = 320
   Caption = 'Form1'
+  OnPaint = FormPaint
   LCLVersion = '0.9.31'
 end

examples/androidlclv2/mainform.pas

@@ -8,7 +8,11 @@ uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs; 
 
 type
+
+  { TForm1 }
+
   TForm1 = class(TForm)
+    procedure FormPaint(Sender: TObject);
   private
     { private declarations }
   public
@@ -22,5 +26,13 @@ implementation
 
 {$R *.lfm}
 
+{ TForm1 }
+
+procedure TForm1.FormPaint(Sender: TObject);
+begin
+  Canvas.Brush.Color := clRed;
+  Canvas.Rectangle(10, 10, 100, 100);
+end;
+
 end.