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

android example: Adapts it to use the new system colors

Browse Source 
git-svn-id: trunk@33895 -
This commit is contained in:
sekelsenmat 2011-12-01 17:15:30 +00:00
parent 74061c4a42
commit 702da92ba0
2 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
examples/androidlcl/mainform.lfm
View File

@ -2,19 +2,19 @@ object Form1: TForm1
Left = 313
Height = 240
Top = 186
Width = 320
Width = 220
Caption = 'Form1'
ClientHeight = 240
ClientWidth = 320
ClientWidth = 220
OnClick = FormClick
OnCreate = FormCreate
OnMouseMove = FormMouseMove
OnPaint = FormPaint
LCLVersion = '0.9.31'
object Arrow1: TArrow
Left = 176
Left = 0
Height = 58
Top = 8
Top = 64
Width = 79
OnClick = Arrow1Click
OnMouseDown = Arrow1MouseDown
@ -29,18 +29,18 @@ object Form1: TForm1
TabOrder = 1
end
object ProgressBar1: TProgressBar
Left = 96
Left = 72
Height = 20
Top = 80
Top = 72
Width = 140
Position = 60
TabOrder = 2
end
object TrackBar1: TTrackBar
Left = 96
Left = 72
Height = 31
Top = 112
Width = 100
Width = 140
Position = 0
TabOrder = 3
end

9
examples/androidlcl/mainform.pas
View File

@ -125,13 +125,10 @@ procedure TForm1.FormPaint(Sender: TObject);
var
lPoints: array[0..2] of TPoint;
begin
Canvas.Brush.Color := clWhite;
Canvas.Rectangle(0, 0, 300, 300);
Canvas.Brush.Color := clRed;
lPoints[0] := Point(67,157);
lPoints[1] := Point(11,129);
lPoints[2] := Point(67,101);
lPoints[0] := Point(67,57);
lPoints[1] := Point(11,29);
lPoints[2] := Point(67,1);
Canvas.Polygon(lPoints);
{ Canvas.Brush.Color := clRed;