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

LCL-Android-Sqlite: Improves the example to save the data and have better control names

Browse Source 
git-svn-id: trunk@39448 -
This commit is contained in:
sekelsenmat 2012-12-06 11:08:32 +00:00
parent 547ebc6bc7
commit c5086ee29a
5 changed files with 52 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
examples/androidlcl/mainform.lfm
View File

@ -8,21 +8,21 @@ object form1: Tform1
ClientWidth = 220 ClientWidth = 220
OnClick = FormClick OnClick = FormClick
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = Button1KeyDown OnKeyDown = btnProgressKeyDown
OnMouseMove = FormMouseMove OnMouseMove = FormMouseMove
OnPaint = FormPaint OnPaint = FormPaint
LCLVersion = '1.1' LCLVersion = '1.1'
object Button1: TButton object btnProgress: TButton
Left = 96 Left = 96
Height = 25 Height = 25
Top = 8 Top = 8
Width = 116 Width = 116
Caption = 'Move Progress' Caption = 'Move Progress'
OnClick = Button1Click OnClick = btnProgressClick
OnKeyDown = Button1KeyDown OnKeyDown = btnProgressKeyDown
OnKeyPress = Button1KeyPress OnKeyPress = btnProgressKeyPress
OnKeyUp = Button1KeyUp OnKeyUp = btnProgressKeyUp
OnUTF8KeyPress = Button1UTF8KeyPress OnUTF8KeyPress = btnProgressUTF8KeyPress
TabOrder = 0 TabOrder = 0
end end
object ProgressBar1: TProgressBar object ProgressBar1: TProgressBar
@ -49,22 +49,22 @@ object form1: Tform1
Caption = 'CheckBox1' Caption = 'CheckBox1'
TabOrder = 3 TabOrder = 3
end end
object Button2: TButton object btnMsgBox: TButton
Left = 96 Left = 96
Height = 25 Height = 25
Top = 160 Top = 160
Width = 116 Width = 116
Caption = 'MessageBox' Caption = 'MessageBox'
OnClick = Button2Click OnClick = btnMsgBoxClick
TabOrder = 4 TabOrder = 4
end end
object Button3: TButton object btnOpenForm: TButton
Left = 95 Left = 95
Height = 25 Height = 25
Top = 192 Top = 192
Width = 117 Width = 117
Caption = 'Open Form2' Caption = 'Open Form2'
OnClick = Button3Click OnClick = btnOpenFormClick
TabOrder = 5 TabOrder = 5
end end
object Label1: TLabel object Label1: TLabel

36
examples/androidlcl/mainform.pas
View File

@ -19,9 +19,9 @@ type
{ Tform1 } { Tform1 }
Tform1 = class(TForm) Tform1 = class(TForm)
Button1: TButton; btnProgress: TButton;
Button2: TButton; btnMsgBox: TButton;
Button3: TButton; btnOpenForm: TButton;
btnShowInfo: TButton; btnShowInfo: TButton;
CheckBox1: TCheckBox; CheckBox1: TCheckBox;
ComboBox1: TComboBox; ComboBox1: TComboBox;
@ -36,14 +36,14 @@ type
procedure Arrow1MouseUp(Sender: TObject; Button: TMouseButton; procedure Arrow1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure btnShowInfoClick(Sender: TObject); procedure btnShowInfoClick(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure btnProgressClick(Sender: TObject);
procedure Button1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState procedure btnProgressKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
); );
procedure Button1KeyPress(Sender: TObject; var Key: char); procedure btnProgressKeyPress(Sender: TObject; var Key: char);
procedure Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure btnProgressKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure Button1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); procedure btnProgressUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
procedure Button2Click(Sender: TObject); procedure btnMsgBoxClick(Sender: TObject);
procedure Button3Click(Sender: TObject); procedure btnOpenFormClick(Sender: TObject);
procedure FormClick(Sender: TObject); procedure FormClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
@ -166,14 +166,14 @@ begin
Device.Vibrate(2000); Device.Vibrate(2000);
end; end;
procedure Tform1.Button1Click(Sender: TObject); procedure Tform1.btnProgressClick(Sender: TObject);
var var
sqliteDLL : Pointer; sqliteDLL : Pointer;
begin begin
(* sqliteDLL:=DlOpen('/system/lib/libsqlite.so',RTLD_LAZY); (* sqliteDLL:=DlOpen('/system/lib/libsqlite.so',RTLD_LAZY);
DebugLn(IntToHex(PtrUInt(sqliteDLL), 8)); DebugLn(IntToHex(PtrUInt(sqliteDLL), 8));
sqliteDLL:=DlOpen('/data/data/com.pascal.lcltest/lib/libsqlite.so',RTLD_LAZY);*) sqliteDLL:=DlOpen('/data/data/com.pascal.lcltest/lib/libsqlite.so',RTLD_LAZY);*)
Button1.Caption := IntToHex(PtrUInt(sqliteDLL), 8); btnProgress.Caption := IntToHex(PtrUInt(sqliteDLL), 8);
DebugLn('Button1Click'); DebugLn('Button1Click');
ProgressBar1.Position := ProgressBar1.Position + 10; ProgressBar1.Position := ProgressBar1.Position + 10;
DebugLn('Cliboard.AsText='+ClipBoard.AsText); DebugLn('Cliboard.AsText='+ClipBoard.AsText);
@ -184,31 +184,31 @@ begin
// Self.AutoAdjustLayout(lapAutoAdjustWithoutHorizontalScrolling, 96, 150, 220, 600); // Self.AutoAdjustLayout(lapAutoAdjustWithoutHorizontalScrolling, 96, 150, 220, 600);
end; end;
procedure Tform1.Button1KeyDown(Sender: TObject; var Key: Word; procedure Tform1.btnProgressKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
begin begin
DebugLn('[TForm1.Button1KeyDown] '+ LCLProc.DbgsVKCode(Key)); DebugLn('[TForm1.Button1KeyDown] '+ LCLProc.DbgsVKCode(Key));
// Caption := 'KeyDown ' + LCLProc.DbgsVKCode(Key); // Caption := 'KeyDown ' + LCLProc.DbgsVKCode(Key);
end; end;
procedure Tform1.Button1KeyPress(Sender: TObject; var Key: char); procedure Tform1.btnProgressKeyPress(Sender: TObject; var Key: char);
begin begin
DebugLn('KeyPress: ' + Key); DebugLn('KeyPress: ' + Key);
end; end;
procedure Tform1.Button1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Tform1.btnProgressKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
DebugLn('[TForm1.Button1KeyUp] '+ LCLProc.DbgsVKCode(Key)); DebugLn('[TForm1.Button1KeyUp] '+ LCLProc.DbgsVKCode(Key));
// Caption := 'KeyUp ' + LCLProc.DbgsVKCode(Key); // Caption := 'KeyUp ' + LCLProc.DbgsVKCode(Key);
end; end;
procedure Tform1.Button1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char); procedure Tform1.btnProgressUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
begin begin
DebugLn('UTF8KeyPress: ' + UTF8Key); DebugLn('UTF8KeyPress: ' + UTF8Key);
Caption := UTF8Key; Caption := UTF8Key;
end; end;
procedure Tform1.Button2Click(Sender: TObject); procedure Tform1.btnMsgBoxClick(Sender: TObject);
begin begin
Application.OnMessageDialogFinished := @HandleMessageDialogFinished; Application.OnMessageDialogFinished := @HandleMessageDialogFinished;
DebugLn('Button2Click A'); DebugLn('Button2Click A');
@ -217,7 +217,7 @@ begin
DebugLn('Button2Click B'); DebugLn('Button2Click B');
end; end;
procedure Tform1.Button3Click(Sender: TObject); procedure Tform1.btnOpenFormClick(Sender: TObject);
begin begin
//Form2.Show; //Form2.Show;
formsqlite.Show; formsqlite.Show;

7
examples/androidlcl/nonandroidtest.lpi
View File

@ -114,10 +114,13 @@
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="FCL"/>
</Item1> </Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="4"> <Units Count="4">
<Unit0> <Unit0>

17
examples/androidlcl/sqliteform.lfm
View File

@ -1,19 +1,19 @@
object formSqlite: TformSqlite object formSqlite: TformSqlite
Left = 119 Left = 154
Height = 240 Height = 240
Top = 244 Top = 362
Width = 257 Width = 257
Caption = 'formSqlite' Caption = 'formSqlite'
ClientHeight = 240 ClientHeight = 240
ClientWidth = 257 ClientWidth = 257
LCLVersion = '1.1' LCLVersion = '1.1'
object Button1: TButton object btnConnect: TButton
Left = 8 Left = 8
Height = 25 Height = 25
Top = 24 Top = 24
Width = 112 Width = 112
Caption = 'Connect' Caption = 'Connect'
OnClick = Button1Click OnClick = btnConnectClick
TabOrder = 0 TabOrder = 0
end end
object DBEdit1: TDBEdit object DBEdit1: TDBEdit
@ -54,6 +54,15 @@ object formSqlite: TformSqlite
OnClick = btnCreateDBClick OnClick = btnCreateDBClick
TabOrder = 3 TabOrder = 3
end end
object Edit1: TEdit
Left = 8
Height = 23
Top = 136
Width = 80
ReadOnly = True
TabOrder = 4
Text = 'Edit1'
end
object SqliteDatasource: TDatasource object SqliteDatasource: TDatasource
left = 136 left = 136
top = 88 top = 88

8
examples/androidlcl/sqliteform.pas
View File

@ -13,13 +13,14 @@ type
{ TformSqlite } { TformSqlite }
TformSqlite = class(TForm) TformSqlite = class(TForm)
Button1: TButton; btnConnect: TButton;
btnCreateDB: TButton; btnCreateDB: TButton;
Edit1: TEdit;
SqliteDatasource: TDatasource; SqliteDatasource: TDatasource;
DBEdit1: TDBEdit; DBEdit1: TDBEdit;
DBNavigator1: TDBNavigator; DBNavigator1: TDBNavigator;
procedure btnCreateDBClick(Sender: TObject); procedure btnCreateDBClick(Sender: TObject);
procedure Button1Click(Sender: TObject); procedure btnConnectClick(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
@ -41,7 +42,7 @@ uses sqlite3ds;
{ TformSqlite } { TformSqlite }
procedure TformSqlite.Button1Click(Sender: TObject); procedure TformSqlite.btnConnectClick(Sender: TObject);
var var
sqlitedb: {$ifdef CPUARM}TSqliteJNIDataset;{$else}TSqlite3Dataset;{$endif} sqlitedb: {$ifdef CPUARM}TSqliteJNIDataset;{$else}TSqlite3Dataset;{$endif}
begin begin
@ -55,6 +56,7 @@ begin
sqlitedb.TableName := 'TestTable'; sqlitedb.TableName := 'TestTable';
sqlitedb.FieldDefs.Add('FirstFieldStr', ftString); sqlitedb.FieldDefs.Add('FirstFieldStr', ftString);
sqlitedb.FieldDefs.Add('SecondFieldInt', ftInteger); sqlitedb.FieldDefs.Add('SecondFieldInt', ftInteger);
sqlitedb.SaveOnClose := True;
sqlitedb.Open(); sqlitedb.Open();
SqliteDatasource.DataSet := sqlitedb; SqliteDatasource.DataSet := sqlitedb;
end; end;