1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
object form1: Tform1
Left = 161
Height = 257
Top = 137
Width = 220
Caption = 'form1'
ClientHeight = 257
ClientWidth = 220
OnClick = FormClick
OnCreate = FormCreate
OnKeyDown = btnProgressKeyDown
OnMouseMove = FormMouseMove
OnPaint = FormPaint
LCLVersion = '1.1'
object btnProgress: TButton
Left = 96
Height = 25
Top = 8
Width = 116
Caption = 'Move Progress'
OnClick = btnProgressClick
OnKeyDown = btnProgressKeyDown
OnKeyPress = btnProgressKeyPress
OnKeyUp = btnProgressKeyUp
OnUTF8KeyPress = btnProgressUTF8KeyPress
TabOrder = 0
end
object ProgressBar1: TProgressBar
Left = 72
Height = 20
Top = 72
Width = 140
Position = 60
TabOrder = 1
end
object TrackBar1: TTrackBar
Left = 72
Height = 31
Top = 96
Width = 140
Position = 0
TabOrder = 2
end
object CheckBox1: TCheckBox
Left = 72
Height = 26
Top = 40
Width = 91
Caption = 'CheckBox1'
TabOrder = 3
end
object btnMsgBox: TButton
Left = 96
Height = 25
Top = 160
Width = 116
Caption = 'MessageBox'
OnClick = btnMsgBoxClick
TabOrder = 4
end
object btnOpenForm: TButton
Left = 95
Height = 25
Top = 192
Width = 117
Caption = 'Open Form2'
OnClick = btnOpenFormClick
TabOrder = 5
end
object Label1: TLabel
Left = 24
Height = 15
Top = 226
Width = 36
Caption = 'Label1'
Font.Color = clBlue
ParentColor = False
ParentFont = False
end
object btnShowInfo: TButton
Left = 96
Height = 25
Top = 226
Width = 116
Caption = 'Show Info in ADB'
OnClick = btnShowInfoClick
TabOrder = 6
end
object ComboBox1: TComboBox
Left = 72
Height = 23
Top = 128
Width = 140
AutoSize = False
ItemHeight = 0
Items.Strings = (
'Item1'
'Item2'
'Item3'
)
TabOrder = 7
Text = 'ComboBox1'
end
end
|
