Examples/Wii/WiiMote/unit1.lfm at master · PascalCorpsman/Examples · GitHub

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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
object Form1: TForm1
  Left = 309
  Height = 917
  Top = 126
  Width = 728
  Caption = 'Form1'
  ClientHeight = 917
  ClientWidth = 728
  Position = poScreenCenter
  LCLVersion = '3.99.0.0'
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  object Button1: TButton
    Left = 10
    Height = 25
    Top = 10
    Width = 75
    Caption = 'Create'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 96
    Height = 25
    Top = 10
    Width = 75
    Caption = 'Free'
    Enabled = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 10
    Height = 25
    Top = 144
    Width = 161
    Caption = 'toggle Motor'
    Enabled = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object CheckBox1: TCheckBox
    Left = 10
    Height = 22
    Top = 176
    Width = 60
    Caption = 'LED 1'
    Enabled = False
    TabOrder = 3
    OnChange = CheckBox1Change
  end
  object CheckBox2: TCheckBox
    Left = 88
    Height = 22
    Top = 176
    Width = 60
    Caption = 'LED 2'
    Enabled = False
    TabOrder = 4
    OnChange = CheckBox2Change
  end
  object CheckBox3: TCheckBox
    Left = 10
    Height = 22
    Top = 200
    Width = 60
    Caption = 'LED 3'
    Enabled = False
    TabOrder = 5
    OnChange = CheckBox3Change
  end
  object CheckBox4: TCheckBox
    Left = 88
    Height = 22
    Top = 200
    Width = 60
    Caption = 'LED 4'
    Enabled = False
    TabOrder = 6
    OnChange = CheckBox4Change
  end
  object Panel1: TPanel
    Left = 10
    Height = 656
    Top = 256
    Width = 710
    Anchors = [akTop, akLeft, akRight, akBottom]
    Caption = 'IR-Preview'
    ClientHeight = 656
    ClientWidth = 710
    TabOrder = 7
    object Label3: TLabel
      Left = 96
      Height = 16
      Top = 100
      Width = 41
      Caption = 'Label3'
    end
    object Label4: TLabel
      Left = 185
      Height = 16
      Top = 50
      Width = 41
      Caption = 'Label4'
    end
    object Label5: TLabel
      Left = 271
      Height = 16
      Top = 53
      Width = 41
      Caption = 'Label5'
    end
    object Label6: TLabel
      Left = 380
      Height = 16
      Top = 109
      Width = 41
      Caption = 'Label6'
    end
  end
  object Label1: TLabel
    Left = 10
    Height = 16
    Top = 40
    Width = 41
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 10
    Height = 16
    Top = 232
    Width = 41
    Caption = 'Label2'
  end
  object Label7: TLabel
    Left = 10
    Height = 16
    Top = 96
    Width = 41
    Caption = 'Label7'
  end
  object Label8: TLabel
    Left = 10
    Height = 16
    Top = 120
    Width = 41
    Caption = 'Label8'
  end
  object Label9: TLabel
    Left = 184
    Height = 16
    Top = 152
    Width = 41
    Caption = 'Label9'
  end
  object Label10: TLabel
    Left = 184
    Height = 16
    Top = 176
    Width = 49
    Caption = 'Label10'
  end
  object PaintBox1: TPaintBox
    Left = 520
    Height = 200
    Top = 48
    Width = 200
  end
  object Label11: TLabel
    Left = 384
    Height = 16
    Top = 128
    Width = 49
    Caption = 'Label11'
  end
  object Button4: TButton
    Left = 432
    Height = 25
    Top = 96
    Width = 75
    Caption = 'Calibrate'
    TabOrder = 8
    OnClick = Button4Click
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 120
    Top = 88
  end
end