home *** CD-ROM | disk | FTP | other *** search
- object frmCMD: TfrmCMD
- Left = 339
- Top = 501
- BorderStyle = bsDialog
- Caption = 'Command Prompt'
- ClientHeight = 452
- ClientWidth = 425
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- PrintScale = poNone
- Scaled = False
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 10
- Top = 8
- Width = 405
- Height = 405
- ActivePage = tsCMDColor
- TabIndex = 0
- TabOrder = 0
- object tsCMDColor: TTabSheet
- Caption = 'Colors'
- object Label73: TLabel
- Left = 228
- Top = 256
- Width = 52
- Height = 13
- Caption = 'Text color:'
- end
- object Label1: TLabel
- Left = 12
- Top = 54
- Width = 48
- Height = 13
- Caption = 'Preview:'
- end
- object Label2: TLabel
- Left = 51
- Top = 10
- Width = 333
- Height = 42
- AutoSize = False
- Caption =
- 'Select the colors and font that should be used as the default se' +
- 'tting for the command prompt here.'
- WordWrap = True
- end
- object imgCmdPrompt: TImage
- Left = 12
- Top = 10
- Width = 32
- Height = 32
- end
- object pnlCMDPreview: TPanel
- Left = 12
- Top = 70
- Width = 373
- Height = 113
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clBlack
- Enabled = False
- TabOrder = 0
- object Image4: TImage
- Left = 4
- Top = 4
- Width = 365
- Height = 105
- end
- end
- object btnCMDColorDefault: TButton
- Left = 12
- Top = 342
- Width = 142
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 1
- OnClick = btnCMDColorDefaultClick
- end
- object GroupBox4: TGroupBox
- Left = 12
- Top = 192
- Width = 373
- Height = 51
- Caption = 'Text formatting'
- TabOrder = 2
- object btnBold: TSpeedButton
- Left = 331
- Top = 18
- Width = 21
- Height = 21
- AllowAllUp = True
- GroupIndex = 1
- Caption = 'F'
- Flat = True
- Font.Charset = ANSI_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = btnBoldClick
- end
- object cbSize: TComboBox
- Left = 217
- Top = 18
- Width = 105
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 0
- OnChange = cbSizeChange
- end
- object cbFontType: TComboBox
- Left = 9
- Top = 18
- Width = 201
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnSelect = cbFontTypeSelect
- Items.Strings = (
- 'Raster font'
- 'Lucida Console')
- end
- end
- object GroupBox2: TGroupBox
- Left = 12
- Top = 252
- Width = 178
- Height = 72
- Caption = 'Background color'
- TabOrder = 3
- object Panel1: TPanel
- Left = 10
- Top = 19
- Width = 158
- Height = 43
- BevelOuter = bvLowered
- TabOrder = 0
- object btnCMDBg1: TSpeedButton
- Tag = 1
- Left = 22
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg0: TSpeedButton
- Left = 3
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Down = True
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg2: TSpeedButton
- Tag = 2
- Left = 41
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg4: TSpeedButton
- Tag = 4
- Left = 79
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg5: TSpeedButton
- Tag = 5
- Left = 98
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg3: TSpeedButton
- Tag = 3
- Left = 60
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg7: TSpeedButton
- Tag = 7
- Left = 137
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBg6: TSpeedButton
- Tag = 6
- Left = 117
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clOlive
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG8: TSpeedButton
- Tag = 8
- Left = 3
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG9: TSpeedButton
- Tag = 9
- Left = 22
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG10: TSpeedButton
- Tag = 10
- Left = 41
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG11: TSpeedButton
- Tag = 11
- Left = 60
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG12: TSpeedButton
- Tag = 12
- Left = 79
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG13: TSpeedButton
- Tag = 13
- Left = 98
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clFuchsia
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG14: TSpeedButton
- Tag = 14
- Left = 117
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- object btnCMDBG15: TSpeedButton
- Tag = 15
- Left = 137
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 1
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDBg0Click
- end
- end
- end
- object GroupBox3: TGroupBox
- Left = 207
- Top = 252
- Width = 178
- Height = 72
- Caption = 'Text color'
- TabOrder = 4
- object Panel2: TPanel
- Left = 10
- Top = 19
- Width = 158
- Height = 43
- BevelOuter = bvLowered
- TabOrder = 0
- object btnCMDFg8: TSpeedButton
- Tag = 8
- Left = 3
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGray
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg0: TSpeedButton
- Left = 3
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg1: TSpeedButton
- Tag = 1
- Left = 22
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg2: TSpeedButton
- Tag = 2
- Left = 41
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clGreen
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg3: TSpeedButton
- Tag = 3
- Left = 60
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg4: TSpeedButton
- Tag = 4
- Left = 79
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg5: TSpeedButton
- Tag = 5
- Left = 98
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clPurple
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg7: TSpeedButton
- Tag = 7
- Left = 137
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clSilver
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg9: TSpeedButton
- Tag = 9
- Left = 22
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg10: TSpeedButton
- Tag = 10
- Left = 41
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clLime
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg11: TSpeedButton
- Tag = 11
- Left = 60
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clAqua
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg12: TSpeedButton
- Tag = 12
- Left = 79
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg13: TSpeedButton
- Tag = 13
- Left = 98
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clFuchsia
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg15: TSpeedButton
- Tag = 15
- Left = 137
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Down = True
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg6: TSpeedButton
- Tag = 6
- Left = 117
- Top = 3
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clOlive
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- object btnCMDFg14: TSpeedButton
- Tag = 14
- Left = 117
- Top = 22
- Width = 18
- Height = 18
- GroupIndex = 2
- Caption = 'n'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clYellow
- Font.Height = -17
- Font.Name = 'Wingdings'
- Font.Style = []
- ParentFont = False
- OnClick = btnCMDFg0Click
- end
- end
- end
- end
- object TabSheet1: TTabSheet
- Caption = 'Advanced'
- ImageIndex = 1
- object btnCMDExtensionsDefaultClick: TButton
- Left = 12
- Top = 342
- Width = 142
- Height = 24
- HelpContext = 7
- Caption = 'Restore Defaults'
- TabOrder = 0
- end
- object GroupBox1: TGroupBox
- Left = 12
- Top = 11
- Width = 372
- Height = 132
- Caption = 'Default folder'
- TabOrder = 1
- object Label3: TLabel
- Left = 12
- Top = 18
- Width = 351
- Height = 37
- AutoSize = False
- Caption =
- 'Specify the path to the folder that the command prompt should op' +
- 'en in here.'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 30
- Top = 98
- Width = 38
- Height = 13
- Caption = 'F&older:'
- FocusControl = edtStartFolderUserDefined
- end
- object rbDefaultDir: TRadioButton
- Left = 12
- Top = 54
- Width = 109
- Height = 17
- Caption = 'Default folder'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = rbDefaultDirClick
- end
- object rbUserDefDir: TRadioButton
- Left = 12
- Top = 75
- Width = 157
- Height = 17
- Caption = 'Custom'
- TabOrder = 1
- OnClick = rbUserDefDirClick
- end
- object edtStartFolderUserDefined: TEdit
- Left = 74
- Top = 95
- Width = 213
- Height = 21
- TabOrder = 2
- end
- object btnBrowseForFolder: TButton
- Left = 293
- Top = 95
- Width = 68
- Height = 22
- Caption = 'Select...'
- TabOrder = 3
- OnClick = btnBrowseForFolderClick
- end
- end
- end
- end
- object btnOK: TButton
- Left = 256
- Top = 421
- Width = 75
- Height = 23
- HelpContext = 5
- Caption = 'OK'
- Default = True
- TabOrder = 1
- OnClick = btnOKClick
- end
- object btnCancel: TButton
- Left = 338
- Top = 421
- Width = 75
- Height = 23
- HelpContext = 3
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = btnCancelClick
- end
- object dfsBrowseDirectoryDlg1: TdfsBrowseDirectoryDlg
- Title = 'Select the start folder.'
- Options = [bfNewDialogStyle]
- ShowSelectionInStatus = False
- Left = 8
- Top = 416
- end
- end
-