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

Android example: Adds the armv6 process selection and a progressbar and a trackbar

Browse Source 
git-svn-id: trunk@33893 -
This commit is contained in:
sekelsenmat 2011-12-01 16:41:08 +00:00
parent 19ea039aab
commit afde9c23d7
3 changed files with 43 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/androidlcl/androidlcltest.lpi
View File

@ -89,7 +89,7 @@
<CompilerMessages> <CompilerMessages>
<UseMsgFile Value="True"/> <UseMsgFile Value="True"/>
</CompilerMessages> </CompilerMessages>
<CustomOptions Value="-dANDROID -Xd"/> <CustomOptions Value="-dANDROID -Xd -CpARMV6"/>
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>

27
examples/androidlcl/mainform.lfm
View File

@ -12,11 +12,36 @@ object Form1: TForm1
OnPaint = FormPaint OnPaint = FormPaint
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object Arrow1: TArrow object Arrow1: TArrow
Left = 136 Left = 176
Height = 58 Height = 58
Top = 8 Top = 8
Width = 79 Width = 79
OnClick = Arrow1Click OnClick = Arrow1Click
OnMouseDown = Arrow1MouseDown OnMouseDown = Arrow1MouseDown
end end
object Button1: TButton
Left = 96
Height = 25
Top = 16
Width = 75
Caption = 'Button1'
OnClick = Button1Click
TabOrder = 1
end
object ProgressBar1: TProgressBar
Left = 96
Height = 20
Top = 80
Width = 140
Position = 60
TabOrder = 2
end
object TrackBar1: TTrackBar
Left = 96
Height = 31
Top = 112
Width = 100
Position = 0
TabOrder = 3
end
end end

22
examples/androidlcl/mainform.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
LCLProc, Arrow; LCLProc, Arrow, StdCtrls, ComCtrls;
type type
TSubControl = class; TSubControl = class;
@ -15,9 +15,13 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
Arrow1: TArrow; Arrow1: TArrow;
Button1: TButton;
ProgressBar1: TProgressBar;
TrackBar1: TTrackBar;
procedure Arrow1Click(Sender: TObject); procedure Arrow1Click(Sender: TObject);
procedure Arrow1MouseDown(Sender: TObject; Button: TMouseButton; procedure Arrow1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure Button1Click(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);
@ -95,14 +99,20 @@ begin
DebugLn('Arrow Mouse Down'); DebugLn('Arrow Mouse Down');
end; end;
procedure TForm1.Button1Click(Sender: TObject);
begin
DebugLn('Button1Click');
ProgressBar1.Position := ProgressBar1.Position + 10;
end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
begin begin
SubControl := TSubControl.Create(Self); { SubControl := TSubControl.Create(Self);
SubControl.Left := 100; SubControl.Left := 100;
SubControl.Top := 100; SubControl.Top := 100;
SubControl.Width := 100; SubControl.Width := 100;
SubControl.Height := 100; SubControl.Height := 100;
SubControl.Parent := Self; SubControl.Parent := Self;}
end; end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
@ -119,9 +129,9 @@ begin
Canvas.Rectangle(0, 0, 300, 300); Canvas.Rectangle(0, 0, 300, 300);
Canvas.Brush.Color := clRed; Canvas.Brush.Color := clRed;
lPoints[0] := Point(67,57); lPoints[0] := Point(67,157);
lPoints[1] := Point(11,29); lPoints[1] := Point(11,129);
lPoints[2] := Point(67,1); lPoints[2] := Point(67,101);
Canvas.Polygon(lPoints); Canvas.Polygon(lPoints);
{ Canvas.Brush.Color := clRed; { Canvas.Brush.Color := clRed;