forked from cheat-engine/cheat-engine
-
Notifications
You must be signed in to change notification settings - Fork 0
/
HotKeys.lfm
executable file
·570 lines (570 loc) · 20.1 KB
/
HotKeys.lfm
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
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
object HotKeyForm: THotKeyForm
Left = 527
Height = 381
Top = 193
Width = 582
AutoSize = True
BorderIcons = []
Caption = 'Set/Change hotkey'
ClientHeight = 381
ClientWidth = 582
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.6.0'
object ListView1: TListView
Left = 0
Height = 173
Top = 0
Width = 582
Align = alClient
AutoWidthLastColumn = True
Columns = <
item
Caption = 'Hotkey'
MinWidth = 1
Width = 120
end
item
Caption = 'On Hotkey'
MinWidth = 1
Width = 150
end
item
Caption = 'Value'
MinWidth = 1
Width = 80
end
item
Caption = 'Description'
Width = 228
end>
HideSelection = False
PopupMenu = pmHotkeylist
ReadOnly = True
RowSelect = True
TabOrder = 0
ViewStyle = vsReport
OnDblClick = ListView1DblClick
OnSelectItem = ListView1SelectItem
end
object Panel1: TPanel
Left = 0
Height = 208
Top = 173
Width = 582
Align = alBottom
AutoSize = True
ClientHeight = 208
ClientWidth = 582
TabOrder = 1
object PageControl1: TPageControl
Left = 1
Height = 173
Top = 1
Width = 580
ActivePage = TabSheet2
Align = alClient
ShowTabs = False
TabIndex = 1
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'TabSheet1'
ClientHeight = 27
ClientWidth = 572
object btnCreateHotkey: TButton
AnchorSideLeft.Control = TabSheet1
AnchorSideTop.Control = TabSheet1
Left = 4
Height = 25
Top = 2
Width = 99
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 2
Caption = 'Create hotkey'
OnClick = btnCreateHotkeyClick
TabOrder = 0
end
object btnEditHotkey: TButton
AnchorSideLeft.Control = btnCreateHotkey
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnCreateHotkey
Left = 110
Height = 25
Top = 2
Width = 87
AutoSize = True
BorderSpacing.Left = 7
Caption = 'Edit Hotkey'
Enabled = False
OnClick = btnEditHotkeyClick
TabOrder = 1
end
end
object TabSheet2: TTabSheet
Caption = 'TabSheet2'
ClientHeight = 165
ClientWidth = 572
object btnApply: TButton
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel3
AnchorSideTop.Side = asrBottom
Left = 0
Height = 25
Top = 138
Width = 75
AutoSize = True
BorderSpacing.Top = 4
BorderSpacing.Bottom = 2
Caption = 'Apply'
Constraints.MinWidth = 75
OnClick = btnApplyClick
TabOrder = 0
end
object btnCancel: TButton
AnchorSideLeft.Control = btnApply
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnApply
Left = 77
Height = 25
Top = 138
Width = 75
AutoSize = True
BorderSpacing.Left = 2
BorderSpacing.Bottom = 2
Caption = 'Cancel'
Constraints.MinWidth = 75
OnClick = btnCancelClick
TabOrder = 1
end
object Panel3: TPanel
AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = TabSheet2
Left = 0
Height = 134
Top = 0
Width = 292
AutoSize = True
BevelOuter = bvNone
ClientHeight = 134
ClientWidth = 292
TabOrder = 2
object Label1: TLabel
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel3
Left = 4
Height = 15
Top = 2
Width = 227
BorderSpacing.Left = 4
BorderSpacing.Top = 2
Caption = 'Type the keys you want to set the hotkey to'
ParentColor = False
end
object edtHotkey: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 4
Height = 23
Top = 19
Width = 235
BorderSpacing.Top = 2
OnKeyDown = edtHotkeyKeyDown
OnMouseDown = edtHotkeyMouseDown
ReadOnly = True
TabOrder = 0
end
object Button2: TButton
AnchorSideLeft.Control = edtHotkey
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtHotkey
AnchorSideBottom.Control = edtHotkey
AnchorSideBottom.Side = asrBottom
Left = 239
Height = 23
Top = 19
Width = 53
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
Caption = 'Clear'
OnClick = Button2Click
TabOrder = 1
end
object cbFreezedirection: TComboBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = edtHotkey
AnchorSideTop.Side = asrBottom
Left = 4
Height = 23
Top = 44
Width = 145
BorderSpacing.Top = 2
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Toggle freeze'
'Toggle freeze and allow increase'
'Toggle freeze and allow decrease'
'Set value to:'
'Decrease value with:'
'Increase value with:'
)
OnSelect = cbFreezedirectionSelect
Style = csDropDownList
TabOrder = 2
Text = 'Toggle freeze'
end
object edtFreezeValue: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = cbFreezedirection
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtHotkey
AnchorSideRight.Side = asrBottom
Left = 4
Height = 23
Top = 69
Width = 235
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
Enabled = False
TabOrder = 3
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = edtFreezeValue
AnchorSideTop.Side = asrBottom
Left = 4
Height = 15
Top = 94
Width = 117
BorderSpacing.Top = 2
Caption = 'Description (Optional)'
ParentColor = False
end
object edtDescription: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edtHotkey
AnchorSideRight.Side = asrBottom
Left = 4
Height = 23
Hint = 'When autogenerating a trainer this field will be used as description'
Top = 111
Width = 235
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
end
object lblActivateSound: TLabel
AnchorSideLeft.Control = Panel3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel3
AnchorSideRight.Control = lblDeactivateSound
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cbActivateSound
Left = 300
Height = 15
Top = 3
Width = 79
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 8
Caption = 'Activate sound'
Enabled = False
ParentColor = False
end
object cbActivateSound: TComboBox
AnchorSideLeft.Control = lblActivateSound
AnchorSideTop.Control = lblActivateSound
AnchorSideTop.Side = asrBottom
Left = 300
Height = 23
Top = 20
Width = 149
Anchors = [akLeft]
BorderSpacing.Top = 2
Enabled = False
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Activate'
)
OnChange = cbActivateSoundChange
PopupMenu = pmAddSound
Style = csDropDownList
TabOrder = 3
Text = 'Activate'
end
object sbPlayActivate: TSpeedButton
AnchorSideLeft.Control = cbActivateSound
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbActivateSound
AnchorSideTop.Side = asrCenter
Left = 451
Height = 22
Top = 20
Width = 23
BorderSpacing.Left = 2
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
000004733AFF21824FFF638272FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF7ACFA4FF2C8C5AFF3D7659FFAEAEAEFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF82D8ACFF76D6A6FF3C9D6AFF27744CFFACAEADFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000009773FFF83DBAEFF1FC671FF72DEA7FF4BB27FFF177445FFA8ADAAFF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF83DCAFFF11C369FF1ACC73FF69DFA3FF5AC28DFF137643FF9EA7
A3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF10BD65FF11C167FF13C269FF59D395FF67C998FF167C
47FF889C92FF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0DB35EFF0EB660FF0EB660FF0DB45FFF47C484FF70CA
9CFF1D824DFF678C79FF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0CAA58FF12AE5EFF15AF60FF16AD61FF13AA5DFF3AB6
77FF75C79DFF288957FF4E8367FF000000000000000000000000000000000000
000004733AFFA9DCC1FF2EAD6BFF2BAD6AFF27AB68FF22A964FF1CA55FFF41B2
78FF78C69FFF298858FF678C79FF000000000000000000000000000000000000
000004733AFFA9DCC1FF36AD70FF32AC6DFF2DAA6AFF28A866FF58BC89FF78C5
9DFF1F804EFF839A8EFF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF3EB176FF3AAF73FF36AE70FF6FC598FF71BF97FF187B
49FFA6B0ABFF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF45B47BFF47B47CFF82CCA6FF67B68CFF177745FFC1C5
C3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA5DABFFF57BB87FF90D2B0FF5BAB82FF23774CFFD4D5D4FF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF9BD5B7FF4C9F73FF3D7D5CFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA4D9BEFF3D9366FF5F8873FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF2D8859FF859C90FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = sbPlayActivateClick
end
object lblDeactivateSound: TLabel
AnchorSideLeft.Control = lblActivateSound
AnchorSideTop.Control = edtActivateText
AnchorSideTop.Side = asrBottom
Left = 300
Height = 15
Top = 68
Width = 91
BorderSpacing.Top = 2
Caption = 'Deactivate sound'
Enabled = False
ParentColor = False
end
object cbDeactivateSound: TComboBox
AnchorSideLeft.Control = lblActivateSound
AnchorSideTop.Control = lblDeactivateSound
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbActivateSound
AnchorSideRight.Side = asrBottom
Left = 300
Height = 23
Top = 85
Width = 149
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 2
Enabled = False
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Deactivate'
)
OnChange = cbDeactivateSoundChange
PopupMenu = pmAddSound
Style = csDropDownList
TabOrder = 4
Text = 'Deactivate'
end
object sbPlayDeactivate: TSpeedButton
AnchorSideLeft.Control = cbActivateSound
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbDeactivateSound
AnchorSideTop.Side = asrCenter
Left = 451
Height = 22
Top = 85
Width = 23
BorderSpacing.Left = 2
Enabled = False
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
000004733AFF21824FFF638272FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF7ACFA4FF2C8C5AFF3D7659FFAEAEAEFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF82D8ACFF76D6A6FF3C9D6AFF27744CFFACAEADFF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000009773FFF83DBAEFF1FC671FF72DEA7FF4BB27FFF177445FFA8ADAAFF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF83DCAFFF11C369FF1ACC73FF69DFA3FF5AC28DFF137643FF9EA7
A3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF10BD65FF11C167FF13C269FF59D395FF67C998FF167C
47FF889C92FF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0DB35EFF0EB660FF0EB660FF0DB45FFF47C484FF70CA
9CFF1D824DFF678C79FF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF0CAA58FF12AE5EFF15AF60FF16AD61FF13AA5DFF3AB6
77FF75C79DFF288957FF4E8367FF000000000000000000000000000000000000
000004733AFFA9DCC1FF2EAD6BFF2BAD6AFF27AB68FF22A964FF1CA55FFF41B2
78FF78C69FFF298858FF678C79FF000000000000000000000000000000000000
000004733AFFA9DCC1FF36AD70FF32AC6DFF2DAA6AFF28A866FF58BC89FF78C5
9DFF1F804EFF839A8EFF00000000000000000000000000000000000000000000
000004733AFFA9DCC1FF3EB176FF3AAF73FF36AE70FF6FC598FF71BF97FF187B
49FFA6B0ABFF0000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF45B47BFF47B47CFF82CCA6FF67B68CFF177745FFC1C5
C3FF000000000000000000000000000000000000000000000000000000000000
000004733AFFA5DABFFF57BB87FF90D2B0FF5BAB82FF23774CFFD4D5D4FF0000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA9DCC1FF9BD5B7FF4C9F73FF3D7D5CFF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFFA4D9BEFF3D9366FF5F8873FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000004733AFF2D8859FF859C90FF000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000
}
OnClick = sbPlayDeactivateClick
end
object edtActivateText: TEdit
AnchorSideLeft.Control = cbActivateSound
AnchorSideTop.Control = cbActivateSound
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbActivateSound
AnchorSideRight.Side = asrBottom
Left = 300
Height = 23
Top = 43
Width = 149
Anchors = [akTop, akLeft, akRight]
ParentShowHint = False
TabOrder = 5
Text = '{MRDescription} Activated'
end
object cbForceEnglishActivate: TCheckBox
AnchorSideLeft.Control = edtActivateText
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtActivateText
AnchorSideTop.Side = asrCenter
Left = 451
Height = 19
Hint = 'Tries to set the language of the windows speech synthesizer to English when speaking this. Won''t speak if there is no English voice installed'
Top = 45
Width = 90
BorderSpacing.Left = 2
Caption = 'Force English'
Checked = True
OnChange = cbForceEnglishActivateChange
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 6
end
object edtDeactivateText: TEdit
AnchorSideLeft.Control = cbDeactivateSound
AnchorSideTop.Control = cbDeactivateSound
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbDeactivateSound
AnchorSideRight.Side = asrBottom
Left = 300
Height = 23
Top = 108
Width = 149
Anchors = [akTop, akLeft, akRight]
ParentShowHint = False
TabOrder = 7
Text = '{MRDescription} Deactivated'
end
object cbForceEnglishDeactivate: TCheckBox
AnchorSideLeft.Control = edtDeactivateText
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtDeactivateText
AnchorSideTop.Side = asrCenter
Left = 451
Height = 19
Hint = 'Tries to set the language of the windows speech synthesizer to English when speaking this. Won''t speak if there is no English voice installed'
Top = 110
Width = 90
BorderSpacing.Left = 2
Caption = 'Force English'
Checked = True
ParentShowHint = False
ShowHint = True
State = cbChecked
TabOrder = 8
end
end
end
object Panel2: TPanel
Left = 1
Height = 33
Top = 174
Width = 580
Align = alBottom
AutoSize = True
ClientHeight = 33
ClientWidth = 580
TabOrder = 1
OnResize = Panel2Resize
object lblID: TLabel
Left = 575
Height = 1
Top = 27
Width = 1
Alignment = taRightJustify
Anchors = [akTop, akRight]
ParentColor = False
end
object btnOK: TButton
AnchorSideLeft.Control = Panel2
AnchorSideLeft.Side = asrCenter
Left = 253
Height = 25
Top = 4
Width = 75
AutoSize = True
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
Caption = 'OK'
Constraints.MinWidth = 75
OnClick = btnOKClick
TabOrder = 0
end
end
end
object pmHotkeylist: TPopupMenu
OnPopup = pmHotkeylistPopup
Left = 92
Top = 57
object miDelete: TMenuItem
Caption = 'Delete'
OnClick = miDeleteClick
end
end
object pmAddSound: TPopupMenu
Left = 400
Top = 72
object miAddSound: TMenuItem
Caption = 'Add sounds'
OnClick = miAddSoundClick
end
end
object odWave: TOpenDialog
DefaultExt = '.WAV'
Filter = 'All files (*.*)|*.*|Wave files|*.WAV'
FilterIndex = 2
Options = [ofAllowMultiSelect, ofPathMustExist, ofEnableSizing, ofViewDetail]
Left = 256
Top = 64
end
end