paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 21:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

android example: Updates to the latest lcl

Browse Source 
git-svn-id: trunk@33830 -
This commit is contained in:
sekelsenmat 2011-11-28 14:40:08 +00:00
parent 2617db3cbc
commit 8fc57de450
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/androidlcl/androidlcltest.lpr
View File

@ -14,8 +14,7 @@ uses
{$ifdef Android} {$ifdef Android}
exports exports
Java_com_pascal_lclproject_LCLActivity_stringFromJNI name 'Java_com_pascal_lcltest_LCLActivity_stringFromJNI', Java_com_pascal_lclproject_LCLActivity_LCLOnTouch name 'Java_com_pascal_lcltest_LCLActivity_LCLOnTouch',
Java_com_pascal_lclproject_LCLActivity_intFromJNI name 'Java_com_pascal_lcltest_LCLActivity_intFromJNI',
Java_com_pascal_lclproject_LCLActivity_LCLDrawToBitmap name 'Java_com_pascal_lcltest_LCLActivity_LCLDrawToBitmap', Java_com_pascal_lclproject_LCLActivity_LCLDrawToBitmap name 'Java_com_pascal_lcltest_LCLActivity_LCLDrawToBitmap',
JNI_OnLoad name 'JNI_OnLoad', JNI_OnLoad name 'JNI_OnLoad',
JNI_OnUnload name 'JNI_OnUnload'; JNI_OnUnload name 'JNI_OnUnload';

1
examples/androidlcl/mainform.lfm
View File

@ -4,6 +4,7 @@ object Form1: TForm1
Top = 186 Top = 186
Width = 320 Width = 320
Caption = 'Form1' Caption = 'Form1'
OnClick = FormClick
OnCreate = FormCreate OnCreate = FormCreate
OnPaint = FormPaint OnPaint = FormPaint
LCLVersion = '0.9.31' LCLVersion = '0.9.31'

7
examples/androidlcl/mainform.pas
View File

@ -19,6 +19,7 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
procedure FormClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject); procedure FormPaint(Sender: TObject);
private private
@ -26,6 +27,7 @@ type
public public
{ public declarations } { public declarations }
SubControl: TSubControl; SubControl: TSubControl;
ClickCounter: Integer;
end; end;
var var
@ -45,6 +47,11 @@ end;
{ TForm1 } { TForm1 }
procedure TForm1.FormClick(Sender: TObject);
begin
Caption := Format('Form click #%d', [ClickCounter]);
end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
SubControl := TSubControl.Create(Self); SubControl := TSubControl.Create(Self);