object frmCmdTable: TfrmCmdTable Left = 278 Top = 141 ActiveControl = lbKeys BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Command Table Editor' ClientHeight = 359 ClientWidth = 441 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Menu = mnuCmdMenu PixelsPerInch = 96 Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate TextHeight = 16 object TBevel Left = 8 Top = 8 Width = 297 Height = 233 end object TBevel Left = 312 Top = 9 Width = 121 Height = 233 end object TBevel Left = 8 Top = 249 Width = 425 Height = 73 end object lblWordStar: TLabel Left = 312 Top = 291 Width = 106 Height = 16 Caption = '2-Key Command' end object tabTable: TTabSet Left = 0 Top = 332 Width = 441 Height = 27 Hint = 'Table selection tabs' Align = alBottom DitherBackground = False Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnChange = TableTabChange end object ckActive: TCheckBox Left = 336 Top = 16 Width = 89 Height = 17 Hint = 'Table active flag' HelpContext = 5 Alignment = taLeftJustify Caption = 'Acti&ve' TabOrder = 9 OnClick = ckActiveClick end object lbKeys: TListBox Left = 14 Top = 49 Width = 137 Height = 184 Hint = 'Keys currently assigned to commands' HelpContext = 1 ItemHeight = 16 TabOrder = 1 OnClick = lbKeysClick end object TPanel Left = 159 Top = 16 Width = 137 Height = 25 Caption = 'Commands' TabOrder = 2 end object TPanel Left = 16 Top = 16 Width = 137 Height = 25 Caption = 'Assigned Keys' TabOrder = 0 end object btnClose: TBitBtn Left = 328 Top = 204 Width = 89 Height = 30 Hint = 'Exit the Command Table Editor' HelpContext = 10 TabOrder = 14 OnClick = btnCloseClick Kind = bkClose end object btnAssign: TBitBtn Left = 328 Top = 49 Width = 89 Height = 30 Hint = 'Assign specified keys to the highlighted command' HelpContext = 6 Caption = '&Assign' TabOrder = 10 OnClick = btnAssignClick end object edFirst: TEdit Left = 16 Top = 288 Width = 137 Height = 24 Hint = 'First command key sequence' HelpContext = 3 MaxLength = 25 TabOrder = 5 Visible = False OnChange = EditChange OnEnter = EditEnter end object edSecond: TEdit Left = 160 Top = 288 Width = 137 Height = 24 Hint = 'Second command key sequence' HelpContext = 4 MaxLength = 25 TabOrder = 7 Visible = False OnChange = EditChange OnEnter = EditEnter end object ckWordstar: TCheckBox Left = 320 Top = 272 Width = 97 Height = 17 Hint = 'WordStar two-key style flag' HelpContext = 11 Alignment = taLeftJustify Caption = '&WordStar' TabOrder = 8 OnClick = ckWordstarClick end object btnNewCmd: TBitBtn Left = 328 Top = 120 Width = 89 Height = 30 Hint = 'Generate and assign the specified keys to a user command' HelpContext = 8 Caption = '&User Cmd' TabOrder = 12 OnClick = btnUserCmdClick end object TPanel Left = 16 Top = 256 Width = 137 Height = 25 Caption = 'First key' TabOrder = 4 end object TPanel Left = 160 Top = 256 Width = 137 Height = 25 Caption = 'Second Key' TabOrder = 6 end object btnHelp: TBitBtn Left = 328 Top = 155 Width = 89 Height = 30 Hint = 'Diisplay help for the Command Table Editor' HelpContext = 9 TabOrder = 13 OnClick = btnHelpClick Kind = bkHelp end object lbCommands: TListBox Left = 159 Top = 48 Width = 137 Height = 185 Hint = 'Available commands' HelpContext = 2 ItemHeight = 16 TabOrder = 3 end object btnClear: TBitBtn Left = 328 Top = 85 Width = 89 Height = 30 Hint = 'Clear the key mapping for the selcted key assignment' HelpContext = 7 Caption = 'C&lear' TabOrder = 11 OnClick = btnClearClick end object dlgSaveDialog: TSaveDialog DefaultExt = 'CMD' Filter = 'Command files (*.CMD)|*.CMD|All files (*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Title = 'Save Command Table' Left = 215 Top = 193 end object dlgOpenDialog: TOpenDialog DefaultExt = 'CMD' Filter = 'Command files (*.CMD)|*.CMD|All files (*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Load Command Table' Left = 256 Top = 192 end object mnuCmdMenu: TMainMenu Left = 175 Top = 193 object miTable: TMenuItem Caption = '&Table' object miNew: TMenuItem Caption = '&New' OnClick = miNewClick end object miDelete: TMenuItem Caption = '&Delete' OnClick = miDeleteClick end object miDuplicate: TMenuItem Caption = 'D&uplicate' OnClick = miDuplicateClick end object miLoad: TMenuItem Caption = '&Load' OnClick = miLoadClick end object miSave: TMenuItem Caption = '&Save' OnClick = miSaveClick end object miOrder: TMenuItem Caption = '&Order' OnClick = miOrderClick end object miRename: TMenuItem Caption = '&Rename' OnClick = miRenameClick end end end end