2011-11-25 15:49:50 +00:00
|
|
|
library androidlcltest;
|
|
|
|
|
|
|
|
{$mode objfpc}{$H+}
|
2011-11-25 15:54:06 +00:00
|
|
|
{$define Android}
|
2011-11-25 15:49:50 +00:00
|
|
|
|
|
|
|
uses
|
2011-11-25 15:54:06 +00:00
|
|
|
{$ifdef Android}
|
2011-11-25 15:49:50 +00:00
|
|
|
cmem,
|
2011-11-25 15:54:06 +00:00
|
|
|
android_native_app_glue,
|
|
|
|
{$endif}
|
|
|
|
Interfaces,
|
2011-11-25 16:13:20 +00:00
|
|
|
Forms,
|
2011-11-25 15:54:06 +00:00
|
|
|
mainform;
|
2011-11-25 15:49:50 +00:00
|
|
|
|
|
|
|
exports //android_main name 'android_main',
|
2011-11-25 15:54:06 +00:00
|
|
|
ANativeActivity_onCreate name 'ANativeActivity_onCreate';
|
2011-11-25 15:49:50 +00:00
|
|
|
|
|
|
|
begin
|
2011-11-25 16:13:20 +00:00
|
|
|
Application.Initialize;
|
|
|
|
Application.CreateForm(TForm1, Form1);
|
|
|
|
Application.Run;
|
2011-11-25 15:49:50 +00:00
|
|
|
end.
|
|
|
|
|