Chip 2004 August/CHIP_CD_2004-08.iso/software/tuneup_hit/files/TU2004TrialEN.exe/cmDisplay.bpl/RCDATA/TFRMMYCOMPUTER/TFRMMYCOMPUTER.txt

Text File | 2004-03-31 | 6.1 KB | 266 lines

object frmMyComputer: TfrmMyComputer
  Left = 251
  Top = 404
  BorderStyle = bsDialog
  Caption = 'My Computer'
  ClientHeight = 428
  ClientWidth = 413
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  Scaled = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 10
    Top = 7
    Width = 394
    Height = 382
    ActivePage = tsDrives
    DockSite = True
    MultiLine = True
    TabIndex = 0
    TabOrder = 0
    object tsDrives: TTabSheet
      Caption = 'Drive icons'
      ImageIndex = 20
      OnShow = tsDrivesShow
      object lblTopicDrives: TLabel
        Left = 12
        Top = 52
        Width = 54
        Height = 13
        HelpContext = 2306
        Caption = '&Drives:'
        FocusControl = LVNoDrives
      end
      object Label3: TLabel
        Left = 51
        Top = 10
        Width = 318
        Height = 33
        AutoSize = False
        Caption =
          'Deselect the boxes next to the drives you don'#39't want to show und' +
          'er My Computer.'
        WordWrap = True
      end
      object lblWin9xWarning: TLabel
        Left = 33
        Top = 302
        Width = 339
        Height = 44
        AutoSize = False
        Caption =
          'Warning: When you hide a drive under Windows 95 and Windows 98, ' +
          'some menu items are disabled in the Start button context menu.'
        WordWrap = True
      end
      object imgDriveUnknown: TImage
        Left = 12
        Top = 10
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image000.ico>}
      end
      object imgWarningSmall: TImage
        Left = 12
        Top = 303
        Width = 16
        Height = 16
        Transparent = True
      end
      object LVNoDrives: TListView
        Left = 12
        Top = 69
        Width = 358
        Height = 187
        HelpContext = 2306
        Checkboxes = True
        Columns = <>
        ReadOnly = True
        PopupMenu = mnuNoDrives
        ShowColumnHeaders = False
        TabOrder = 0
        ViewStyle = vsList
      end
      object btnSelNoDrives: TButton
        Left = 109
        Top = 265
        Width = 92
        Height = 23
        HelpContext = 2308
        Caption = 'Deselect All'
        TabOrder = 2
        OnClick = btnSelNoDrivesClick
      end
      object btnSelAllDrives: TButton
        Left = 12
        Top = 265
        Width = 92
        Height = 23
        HelpContext = 2309
        Caption = 'Select All'
        TabOrder = 1
        OnClick = btnSelAllDrivesClick
      end
      object btnSelExisting: TButton
        Left = 206
        Top = 265
        Width = 134
        Height = 23
        HelpContext = 2307
        Caption = 'Select Existing Drives'
        TabOrder = 3
        OnClick = btnSelExistingClick
      end
    end
    object tsSpecObjects: TTabSheet
      Caption = 'Special Elements'
      OnShow = tsSpecObjectsShow
      object lblTopicElements: TLabel
        Left = 12
        Top = 52
        Width = 92
        Height = 13
        HelpContext = 2310
        Caption = 'Special &Elements:'
        FocusControl = lvSpecObjects
      end
      object Label14: TLabel
        Left = 51
        Top = 10
        Width = 291
        Height = 28
        AutoSize = False
        Caption =
          'Check the box next to the special elements you want to show unde' +
          'r My Computer.'
        WordWrap = True
      end
      object imgMyComputer: TImage
        Left = 12
        Top = 10
        Width = 32
        Height = 32
        AutoSize = True
      end
      object lvSpecObjects: TListView
        Left = 12
        Top = 69
        Width = 358
        Height = 214
        HelpContext = 2310
        Checkboxes = True
        Columns = <
          item
            Caption = 'Object'
            Width = 320
          end>
        ColumnClick = False
        IconOptions.WrapText = False
        ReadOnly = True
        ShowColumnHeaders = False
        TabOrder = 0
        ViewStyle = vsReport
        OnChange = lvSpecObjectsChange
      end
      object Button5: TButton
        Left = 86
        Top = 291
        Width = 113
        Height = 24
        Caption = '&Create Shortcut...'
        Enabled = False
        TabOrder = 2
        Visible = False
      end
      object Button7: TButton
        Left = 12
        Top = 291
        Width = 67
        Height = 24
        Caption = '&Rename'
        Enabled = False
        TabOrder = 1
        Visible = False
      end
    end
  end
  object btnOK: TButton
    Left = 247
    Top = 396
    Width = 75
    Height = 23
    HelpContext = 5
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = btnOKClick
  end
  object btnCancel: TButton
    Left = 328
    Top = 396
    Width = 75
    Height = 23
    HelpContext = 3
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 2
    OnClick = btnCancelClick
  end
  object OpenDialog1: TOpenDialog
    Left = 10
    Top = 394
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'set'
    Filter = 'Folder and Explorer settings (*.set)|*.set'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofEnableSizing]
    Left = 41
    Top = 394
  end
  object mnuNoDrives: TPopupMenu
    OnPopup = mnuNoDrivesPopup
    Left = 73
    Top = 394
    object mnNoDrivesShow: TMenuItem
      AutoCheck = True
      Caption = 'Show Under My Computer'
      Checked = True
      OnClick = mnNoDrivesShowClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object mnNoDrivesHelp: TMenuItem
      Caption = 'What'#39's This?'
      OnClick = mnNoDrivesHelpClick
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = mnuNoDrivesPopup
    Left = 105
    Top = 394
    object MenuItem1: TMenuItem
      AutoCheck = True
      Caption = 'Show Contents'
      Checked = True
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object MenuItem3: TMenuItem
      Caption = 'What'#39's This?'
      OnClick = mnNoDrivesHelpClick
    end
  end
end