paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 19:29:30 +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>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CustomOptions Value="-dANDROID -Xd"/>
<CustomOptions Value="-dANDROID -Xd -CpARMV6"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>

27
examples/androidlcl/mainform.lfm
View File

@ -12,11 +12,36 @@ object Form1: TForm1
OnPaint = FormPaint
LCLVersion = '0.9.31'
object Arrow1: TArrow
Left = 136
Left = 176
Height = 58
Top = 8
Width = 79
OnClick = Arrow1Click
OnMouseDown = Arrow1MouseDown
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

22
examples/androidlcl/mainform.pas
View File

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