object HotKeyForm: THotKeyForm
Left = 458
Height = 381
Top = 350
Width = 582
AutoSize = True
BorderIcons = []
Caption = 'Set/Change hotkey'
ClientHeight = 381
ClientWidth = 582
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.6.0.4'
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 = 229
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
Items.Strings = (
'Activate'
)
OnChange = cbActivateSoundChange
PopupMenu = pmAddSound
Style = csDropDownList
TabOrder = 3
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
Items.Strings = (
'Deactivate'
)
OnChange = cbDeactivateSoundChange
PopupMenu = pmAddSound
Style = csDropDownList
TabOrder = 4
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
ShowHint = True
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
ShowHint = True
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 BitBtn1: TBitBtn
AnchorSideLeft.Control = Panel2
AnchorSideLeft.Side = asrCenter
Left = 255
Height = 25
Top = 4
Width = 70
AutoSize = True
BorderSpacing.Top = 3
BorderSpacing.Bottom = 3
Caption = 'OK'
Constraints.MinWidth = 70
OnClick = BitBtn1Click
TabOrder = 0
end
object lblID: TLabel
Left = 575
Height = 1
Top = 23
Width = 1
Alignment = taRightJustify
Anchors = [akTop, akRight]
ParentColor = False
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