home *** CD-ROM | disk | FTP | other *** search
- object MainWin: TMainWin
- Left = 287
- Top = 142
- Width = 435
- Height = 341
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Menu = MainMenu1
- Position = poScreenCenter
- Scaled = False
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnPaint = FormPaint
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object Bevel1: TBevel
- Left = 4
- Top = 60
- Width = 421
- Height = 209
- Shape = bsFrame
- Style = bsRaised
- end
- object Label1: TLabel
- Left = 8
- Top = 64
- Width = 125
- Height = 23
- Alignment = taCenter
- AutoSize = False
- Caption = 'Short Keys'
- Font.Color = clBlack
- Font.Height = -18
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 148
- Top = 64
- Width = 273
- Height = 23
- Alignment = taCenter
- AutoSize = False
- Caption = 'Replacement Keys'
- Font.Color = clBlack
- Font.Height = -18
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 216
- Top = 36
- Width = 85
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Prefix Keys'
- end
- object KeyList: TListBox
- Left = 8
- Top = 88
- Width = 413
- Height = 177
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 17
- ParentFont = False
- PopupMenu = MyPop
- Sorted = True
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnClick = KeyListClick
- OnDblClick = KeyListDblClick
- OnDrawItem = KeyListDrawItem
- end
- object SpeedPanel: TPanel
- Left = 0
- Top = 0
- Width = 427
- Height = 31
- Align = alTop
- BevelOuter = bvNone
- BorderStyle = bsSingle
- TabOrder = 1
- object AddSpeed: TSpeedButton
- Left = 52
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Add Short Key'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000084
- 0000C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000FFFFFFFFF222
- 2222FEEEEEEEF2222222FEEEEEEEF2222222FEEEEEEEF2222222FEEEEEEEF222
- 2222FEEEEEEEF2222222FEEEEEEEF2222222FEEEEFFFF2222222FEEEEFEF22FF
- F222FEEEEFF222F1F222FFFFFF2222F1F2222222222FFFF1FFFF2222222F1111
- 111F2222222FFFF1FFFF2222222222F1F2222222222222F1F222}
- ParentShowHint = False
- ShowHint = True
- OnClick = AddSpeedClick
- end
- object EditSpeed: TSpeedButton
- Left = 76
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Edit Short Key'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
- 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
- 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
- F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
- 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
- FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
- FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
- 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
- 00333377737FFFFF7733333033000000033333373377777773330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = EditSpeedClick
- end
- object DeleteSpeed: TSpeedButton
- Left = 100
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Delete Short Key'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000010000000000000008484
- 0000FFFF000084848400C6C6C600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
- FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000044443FFFFFFF
- 34444444F1111111F4444444F1F1F1F1F4444444F1F1F1F1F4444444F1F1F1F1
- F4444444F1F1F1F1F4444444F1F1F1F1F4444444F1F1F1F1F4444444F1F1F1F1
- F4444444F1111111F4444443FFFFFFFFF344444F222222222F444443FFFFFFFF
- F3444444443FFF34444444444444444444444444444444444444}
- ParentShowHint = False
- ShowHint = True
- OnClick = DeleteSpeedClick
- end
- object OutputSpeed: TSpeedButton
- Left = 152
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Output Short Key List'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555000000
- 000055555F77777777775555000FFFFFFFF0555F777F5FFFF55755000F0F0000
- FFF05F777F7F77775557000F0F0FFFFFFFF0777F7F7F5FFFFFF70F0F0F0F0000
- 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFFFFF70F0F0F0F0000
- 00F07F7F7F7F777777570F0F0F0FFFFFFFF07F7F7F7F5FFF55570F0F0F0F000F
- FFF07F7F7F7F77755FF70F0F0F0FFFFF00007F7F7F7F5FF577770F0F0F0F00FF
- 0F057F7F7F7F77557F750F0F0F0FFFFF00557F7F7F7FFFFF77550F0F0F000000
- 05557F7F7F77777775550F0F0000000555557F7F7777777555550F0000000555
- 55557F77777775555555000000055555555577777775555555550000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = OutputSpeedClick
- end
- object ActivateSpeed: TSpeedButton
- Left = 124
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Activate Short Key'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
- 333333333337FF3333333333330003333333333333777F333333333333080333
- 3333333F33777FF33F3333B33B000B33B3333373F777773F7333333BBB0B0BBB
- 33333337737F7F77F333333BBB0F0BBB33333337337373F73F3333BBB0F7F0BB
- B333337F3737F73F7F3333BB0FB7BF0BB3333F737F37F37F73FFBBBB0BF7FB0B
- BBB3773F7F37337F377333BB0FBFBF0BB333337F73F333737F3333BBB0FBF0BB
- B3333373F73FF7337333333BBB000BBB33333337FF777337F333333BBBBBBBBB
- 3333333773FF3F773F3333B33BBBBB33B33333733773773373333333333B3333
- 333333333337F33333333333333B3333333333333337333333330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ActivateSpeedClick
- end
- object HelpSpeed: TSpeedButton
- Left = 176
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Help'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
- 33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
- FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
- FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
- FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
- FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
- FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
- 3333333773FFFF77333333333FBFBF33333333333777773333330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = HelpSpeedClick
- end
- object OpenSpeed: TSpeedButton
- Left = 24
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Open File'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
- 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
- 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
- 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = OpenSpeedClick
- end
- object NewSpeed: TSpeedButton
- Left = 0
- Top = 2
- Width = 25
- Height = 25
- Hint = 'New File'
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000130B0000130B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
- 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
- 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
- 07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
- 0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
- 33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
- B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
- 3BB33773333773333773B333333B3333333B7333333733333337}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = NewSpeedClick
- end
- object ExitSpeed: TSpeedButton
- Left = 200
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Exit'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
- 03333377777777777F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F333333337F333301111111110333337F333333337F33330111111111
- 0333337F3333333F7F333301111111B10333337F333333737F33330111111111
- 0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
- 0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
- 0333337F377777337F333301111111110333337F333333337F33330111111111
- 0333337FFFFFFFFF7F33330000000000033333777777777773330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = ExitSpeedClick
- end
- end
- object Prefix: TEdit
- Left = 308
- Top = 34
- Width = 33
- Height = 24
- MaxLength = 2
- TabOrder = 2
- OnChange = PrefixChange
- OnExit = PrefixExit
- end
- object UsePrefix: TRadioButton
- Left = 4
- Top = 36
- Width = 93
- Height = 17
- Caption = 'Use &Prefix'
- TabOrder = 3
- OnClick = UsePrefixClick
- end
- object UseSuffix: TRadioButton
- Left = 104
- Top = 36
- Width = 93
- Height = 17
- Caption = 'Use &Suffix'
- TabOrder = 4
- OnClick = UseSuffixClick
- end
- object TaskIcon1: TTaskIcon
- Left = 128
- Top = 284
- Width = 0
- Height = 0
- Active = False
- Icon.Data = {<image000.ico>}
- ToolTip = 'ShortKeys'
- TaskIconID = 0
- OnRightClick = TaskIcon1RightClick
- end
- object MainMenu1: TMainMenu
- Left = 340
- Top = 176
- object MenuFile: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object NewFile1: TMenuItem
- Caption = '&New File'
- ShortCut = 16462
- OnClick = NewFile1Click
- end
- object OpenFile1: TMenuItem
- Caption = '&Open File'
- ShortCut = 16463
- OnClick = OpenFile1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MenuImportAscii: TMenuItem
- Caption = 'Import ASCII &Delimited File'
- ShortCut = 16452
- OnClick = MenuImportAsciiClick
- end
- object MenuImport: TMenuItem
- Caption = '&Import Text File'
- ShortCut = 16457
- OnClick = MenuImportClick
- end
- object MenuExport: TMenuItem
- Caption = '&Export Text File'
- ShortCut = 16468
- OnClick = MenuExportClick
- end
- object MenuOutput: TMenuItem
- Caption = 'Output Short &Key List'
- ShortCut = 16459
- OnClick = MenuOutputClick
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MenuHide: TMenuItem
- Caption = '&Hide'
- ShortCut = 16456
- OnClick = MenuHideClick
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MenuExit: TMenuItem
- Caption = 'E&xit'
- ShortCut = 16472
- OnClick = MenuExitClick
- end
- object MenuExitSep: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MenuLastFile1: TMenuItem
- Caption = '&1'
- ShortCut = 0
- OnClick = MenuLastFile1Click
- end
- object MenuLastFile2: TMenuItem
- Caption = '&2'
- ShortCut = 0
- OnClick = MenuLastFile2Click
- end
- object MenuLastFile3: TMenuItem
- Caption = '&3'
- ShortCut = 0
- OnClick = MenuLastFile3Click
- end
- object MenuLastFile4: TMenuItem
- Caption = '&4'
- ShortCut = 0
- OnClick = MenuLastFile4Click
- end
- object MenuLastFile5: TMenuItem
- Caption = '&5'
- ShortCut = 0
- OnClick = MenuLastFile5Click
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- ShortCut = 0
- object MenuAddKeys: TMenuItem
- Caption = '&Add Short Key'
- ShortCut = 16449
- OnClick = MenuAddKeysClick
- end
- object MenuEditKeys: TMenuItem
- Caption = '&Edit Short Key'
- ShortCut = 16453
- OnClick = MenuEditKeysClick
- end
- object MenuRemoveKeys: TMenuItem
- Caption = '&Remove Short Key'
- ShortCut = 16466
- OnClick = MenuRemoveKeysClick
- end
- object MenuActivate: TMenuItem
- Caption = 'Acti&vate Short Key'
- ShortCut = 16470
- OnClick = MenuActivateClick
- end
- end
- object MenuOptions: TMenuItem
- Caption = '&Options'
- ShortCut = 0
- object MenuCounterCol: TMenuItem
- Caption = 'Display Counter Column'
- ShortCut = 16469
- OnClick = MenuCounterColClick
- end
- object MenuLowMemory: TMenuItem
- Caption = '&Low Memory Usage'
- ShortCut = 16460
- OnClick = MenuLowMemoryClick
- end
- object MenuSolitary: TMenuItem
- Caption = '&Solitary Usage'
- ShortCut = 16467
- OnClick = MenuSolitaryClick
- end
- object MenuCaseSensative: TMenuItem
- Caption = '&Case Sensitive'
- ShortCut = 16451
- OnClick = MenuCaseSensativeClick
- end
- object MenuClipboard: TMenuItem
- Caption = 'Clip&board'
- ShortCut = 0
- object MenuUseClip: TMenuItem
- Caption = 'Use &Clipboard for All'
- ShortCut = 0
- OnClick = MenuUseClipClick
- end
- object MenuUseKey: TMenuItem
- Caption = 'Use &Keyboard for All'
- ShortCut = 0
- OnClick = MenuUseKeyClick
- end
- object MenuUseIndiv: TMenuItem
- Caption = 'Use &Individual Settings'
- ShortCut = 0
- OnClick = MenuUseIndivClick
- end
- end
- object MenuNetwork: TMenuItem
- Caption = '&Network'
- ShortCut = 0
- OnClick = MenuNetworkClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object MenuSysTray: TMenuItem
- Caption = '&Place in System Tray'
- ShortCut = 0
- OnClick = MenuSysTrayClick
- end
- end
- object MenuHelp: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object MenuContents: TMenuItem
- Caption = '&Contents'
- ShortCut = 0
- OnClick = MenuContentsClick
- end
- object MenuUserManual: TMenuItem
- Caption = '&User Manual'
- ShortCut = 0
- OnClick = MenuUserManualClick
- end
- object MenuAbout: TMenuItem
- Caption = '&About'
- ShortCut = 0
- OnClick = MenuAboutClick
- end
- object MenuOther: TMenuItem
- Caption = '&Other Products'
- ShortCut = 0
- OnClick = MenuOtherClick
- end
- object MenuOrder: TMenuItem
- Caption = 'O&rder'
- ShortCut = 0
- OnClick = MenuOrderClick
- end
- end
- object TMenuItem
- ShortCut = 0
- end
- end
- object MyOpenDialog: TOpenDialog
- DefaultExt = 'SHK'
- FileEditStyle = fsEdit
- Filter = 'ShortKey (*.SHK)|*.SHK'
- Title = 'Open ShortKey File'
- Left = 276
- Top = 176
- end
- object MySaveDialog: TSaveDialog
- DefaultExt = 'SHK'
- FileEditStyle = fsEdit
- Filter = 'ShortKey (*.SHK)|*.SHK'
- Title = 'New ShortKey File'
- Left = 244
- Top = 176
- end
- object OutputText: TSaveDialog
- DefaultExt = 'TXT'
- FileEditStyle = fsEdit
- Filter = 'Text File (*.TXT)|*.TXT'
- Title = 'Write Short Key Definitions to File'
- Left = 308
- Top = 176
- end
- object MyPop: TPopupMenu
- Left = 368
- Top = 176
- object PopAdd: TMenuItem
- Caption = 'Add Short Key'
- ShortCut = 0
- OnClick = PopAddClick
- end
- object PopEdit: TMenuItem
- Caption = 'Edit Short Key'
- ShortCut = 0
- OnClick = PopEditClick
- end
- object PopDelete: TMenuItem
- Caption = 'Delete Short Key'
- ShortCut = 0
- OnClick = PopDeleteClick
- end
- object PopActivate: TMenuItem
- Caption = 'Activate Short Key'
- ShortCut = 0
- OnClick = PopActivateClick
- end
- end
- object MyEncrypt: TTomEncryption
- Left = 212
- Top = 176
- end
- object AsciiOpenDialog: TOpenDialog
- DefaultExt = 'TXT'
- FileEditStyle = fsEdit
- Filter = 'Ascii Delimited Text (*.TXT)|*.TXT'
- Title = 'Import From ASCII Delimited File'
- Left = 284
- Top = 260
- end
- object AsciiSaveDialog: TSaveDialog
- DefaultExt = 'TXT'
- FileEditStyle = fsEdit
- Filter = 'Text File (*.TXT)|*.TXT'
- Title = 'Text File Export'
- Left = 320
- Top = 260
- end
- object OpenTextDialog: TOpenDialog
- DefaultExt = 'TXT'
- FileEditStyle = fsEdit
- Filter = 'Text File (*.TXT)|*.TXT'
- Title = 'Text File Import'
- Left = 248
- Top = 260
- end
- object SyncTimer: TTimer
- Enabled = False
- Interval = 60000
- OnTimer = SyncTimerTimer
- Left = 96
- Top = 186
- end
- object NetTimer: TTimer
- Enabled = False
- Interval = 30000
- OnTimer = NetTimerTimer
- Left = 92
- Top = 146
- end
- object ClearTimer: TTimer
- Enabled = False
- Interval = 30000
- OnTimer = ClearTimerTimer
- Left = 80
- Top = 96
- end
- end
-