PC World Plus! (NZ) 2001 October/PCW1001.iso/HowTo/Winkey/winkey2.exe/_SETUP.1/WinKeyMgr.exe/0/RCDATA/TSHORTCUTFORM/TSHORTCUTFORM.txt

Text File | 1999-07-04 | 6.3 KB | 243 lines

object ShortCutForm: TShortCutForm
  Left = 262
  Top = 164
  ActiveControl = TargetEdit
  BorderStyle = bsDialog
  Caption = 'Shortcut Properties'
  ClientHeight = 303
  ClientWidth = 382
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  KeyPreview = True
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 10
    Top = 10
    Width = 362
    Height = 252
    ActivePage = TabSheet
    TabOrder = 0
    TabStop = False
    object TabSheet: TTabSheet
      Caption = 'Shortcut'
      object TargetImage: TImage
        Left = 10
        Top = 10
        Width = 32
        Height = 32
      end
      object Bevel1: TBevel
        Left = 10
        Top = 51
        Width = 332
        Height = 2
        Shape = bsTopLine
      end
      object KeyLbl: TLabel
        Left = 10
        Top = 106
        Width = 63
        Height = 13
        Caption = 'Shortcut &key:'
        FocusControl = KeyCombo
      end
      object TargetLbl: TLabel
        Left = 10
        Top = 65
        Width = 50
        Height = 13
        Caption = '&Command:'
        FocusControl = TargetEdit
      end
      object ParamsLbl: TLabel
        Left = 10
        Top = 136
        Width = 56
        Height = 13
        Caption = '&Parameters:'
        FocusControl = ParamsEdit
      end
      object StartLbl: TLabel
        Left = 10
        Top = 166
        Width = 36
        Height = 13
        Caption = '&Start in:'
        FocusControl = StartEdit
      end
      object RunLbl: TLabel
        Left = 10
        Top = 196
        Width = 23
        Height = 13
        Caption = '&Run:'
        FocusControl = RunCombo
      end
      object Bevel2: TBevel
        Left = 10
        Top = 92
        Width = 332
        Height = 2
      end
      object FileBtn: TBitBtn
        Left = 300
        Top = 62
        Width = 21
        Height = 21
        Hint = 'Browse for File... (Alt+F)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = False
        OnClick = FileBtnClick
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
          DDDDD0000000DDDDDDDDDDDDDDDDD0000000DD00000000000DDDD0000000DD87
          777777770DDDD0000000DD8FFFFFFFF70DDDD0000000DD8FFFFFFFF70DDDD000
          0000DD8FFFFFFFF70DDDD0000000DD8FFFFFFFF70DDDD0000000DD8FFFFFFFF7
          0DDDD0000000DD8FFFFFFFF70DDDD0000000DD8FFFFFFFF70DDDD0000000DD8F
          FFFFFFF70DDDD0000000DD8FFFFFF7000DDDD0000000DD8FFFFFF7F80DDDD000
          0000DD8FFFFFF780DDDDD0000000DD888888880DDDDDD0000000DDDDDDDDDDDD
          DDDDD0000000}
      end
      object NameEdit: TEdit
        Left = 80
        Top = 16
        Width = 262
        Height = 21
        TabStop = False
        BorderStyle = bsNone
        ParentColor = True
        ReadOnly = True
        TabOrder = 0
      end
      object KeyCombo: TComboBox
        Left = 80
        Top = 103
        Width = 262
        Height = 21
        Hint = 'Click here to select a shortcut key'
        Style = csDropDownList
        DropDownCount = 14
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnChange = KeyComboChange
        OnKeyDown = KeyComboKeyDown
        OnKeyPress = KeyComboKeyPress
      end
      object TargetEdit: TComboBox
        Left = 80
        Top = 62
        Width = 217
        Height = 21
        DropDownCount = 11
        ItemHeight = 13
        TabOrder = 1
        OnChange = TargetEditChange
        OnKeyDown = TargetEditKeyDown
      end
      object ParamsEdit: TEdit
        Left = 80
        Top = 133
        Width = 262
        Height = 21
        TabOrder = 5
      end
      object StartEdit: TEdit
        Left = 80
        Top = 163
        Width = 262
        Height = 21
        TabOrder = 6
      end
      object RunCombo: TComboBox
        Left = 80
        Top = 193
        Width = 262
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Normal window'
          'Minimized'
          'Maximized')
        TabOrder = 7
      end
      object FolderBtn: TBitBtn
        Left = 321
        Top = 62
        Width = 21
        Height = 21
        Hint = 'Browse for Folder... (Alt+D)'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TabStop = False
        OnClick = FolderBtnClick
        Glyph.Data = {
          42010000424D4201000000000000760000002800000011000000110000000100
          040000000000CC00000000000000000000001000000010000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
          DDDDD0000000DDDDDDDDDDDDDDDDD0000000D00000000000000DD00000008888
          88888888880DD00000008FB7B7B7B7B7B80DD00000008F7B7B7B7B7B780DD000
          00008FB7B7B7B7B7B80DD00000008F7B7B7B7B7B780DD00000008FB7B7B7B7B7
          B80DD00000008F7B7B7B7B7B780DD00000008FB7B7B7B7B7B80DD00000008FFF
          FFFFFFFFF80DD00000008B7B7B7B888888DDD0000000D8B7B7B8DDDDDDDDD000
          0000DD88888DDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD
          DDDDD0000000}
      end
    end
  end
  object OkBtn: TButton
    Left = 216
    Top = 271
    Width = 75
    Height = 23
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = OkBtnClick
  end
  object CancelBtn: TButton
    Left = 297
    Top = 271
    Width = 75
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object OpenDialog: TOpenDialog
    Filter = 'Programs|*.exe|All Files|*.*'
    Title = 'Browse for File'
    Left = 10
    Top = 270
  end
  object BrowseFolder: TBrowseFolder
    Title = 'Select the folder you want to create a shortcut to.'
    Flags = [bfFileSysDirsOnly, bfStatusText]
    ShowPathInStatusArea = True
    SyncCustomButton = False
    Left = 40
    Top = 270
  end
end