C!T ROM 5/ctrom5b.zip/ctrom5b/PROGRAM/DELPHI/ORPHTR/OVCCMDP0.DFM/OVCCMDP0.txt

Text File | 1995-03-08 | 6KB | 269 lines

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