BUG 15/BUGCD1998_06.ISO/desktop/dtc/dtc.ex_/dtc.ex/0/RCDATA/TFMLOGOCHANGER/TFMLOGOCHANGER.txt

Text File | 1998-05-13 | 31KB | 1,124 lines

object fmLogoChanger: TfmLogoChanger
  Left = 92
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsSingle
  Caption = 'Desktop Changer'
  ClientHeight = 422
  ClientWidth = 612
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object pnFileList: TPanel
    Left = 3
    Top = 8
    Width = 273
    Height = 312
    TabOrder = 0
    object dcbDrive: TDriveComboBox
      Left = 3
      Top = 268
      Width = 267
      Height = 21
      DirList = dlbDirectory
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = dcbDriveClick
    end
    object TPanel
      Left = 3
      Top = 1
      Width = 267
      Height = 265
      BevelOuter = bvNone
      TabOrder = 1
      object dlbDirectory: TDirectoryListBox
        Left = 0
        Top = 169
        Width = 267
        Height = 96
        Align = alClient
        FileList = flbFiles
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 16
        ParentFont = False
        PopupMenu = pmDirectory
        TabOrder = 0
        OnChange = dlbDirectoryChange
      end
      object flbFiles: TFileListBox
        Left = 0
        Top = 0
        Width = 267
        Height = 164
        Align = alTop
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        IntegralHeight = True
        ItemHeight = 16
        Mask = '*.BMP;*.SYS'
        MultiSelect = True
        ParentFont = False
        PopupMenu = pmFileListBoxMenu
        TabOrder = 1
        OnClick = flbFilesClick
        OnDblClick = flbFilesDblClick
      end
      object spltFileList: TRxSplitter
        Left = 0
        Top = 164
        Width = 267
        Height = 5
        ControlFirst = flbFiles
        ControlSecond = dlbDirectory
        Align = alTop
      end
      object pnPickFileView: TPanel
        Left = 0
        Top = 169
        Width = 267
        Height = 96
        Align = alClient
        BevelOuter = bvNone
        Caption = 'pnPickFileView'
        TabOrder = 3
        object pnPickViewLeft: TPanel
          Left = 0
          Top = 0
          Width = 83
          Height = 96
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
        end
        object pnPickViewerPanel: TPanel
          Left = 83
          Top = 0
          Width = 109
          Height = 96
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 1
          object imgPickFileViewer: TImage
            Left = 2
            Top = 2
            Width = 105
            Height = 92
            Align = alClient
            AutoSize = True
            Center = True
            ParentShowHint = False
            ShowHint = False
            Stretch = True
            OnDblClick = imgPickFileViewerDblClick
          end
        end
        object pnPickViewRight: TPanel
          Left = 192
          Top = 0
          Width = 75
          Height = 96
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 2
        end
      end
    end
    object chkFilePreview: TCheckBox
      Left = 4
      Top = 291
      Width = 53
      Height = 17
      Caption = 'View'
      TabOrder = 2
      OnClick = chkFilePreviewClick
    end
  end
  object tcLogos: TTabControl
    Left = 319
    Top = 6
    Width = 290
    Height = 314
    MultiLine = True
    TabHeight = 20
    TabIndex = 0
    TabOrder = 2
    Tabs.Strings = (
      'Startup'
      'Wait'
      'Shutdown'
      'Wallpaper'
      'Startup sound'
      'Shutdown sound'
      'Next')
    OnChange = tcLogosChange
    OnChanging = tcLogosChanging
    object tbtnMoveDown: TTransparentButton
      Left = 6
      Top = 280
      Width = 30
      Height = 30
      Hint = 'Move selected file down list'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
        333333333337F33333333333333033333333333333373F333333333333090333
        33333333337F7F33333333333309033333333333337373F33333333330999033
        3333333337F337F33333333330999033333333333733373F3333333309999903
        333333337F33337F33333333099999033333333373333373F333333099999990
        33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F333333333333000333333333333377733333330000}
      NumGlyphs = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      OnClick = tbtnMoveDownClick
    end
    object tbtnMoveUp: TTransparentButton
      Left = 38
      Top = 280
      Width = 30
      Height = 30
      Hint = 'Move selected file up list'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
        3333333333777F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333337F7F333333333333090333
        33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
        3333333777737777F333333099999990333333373F3333373333333309999903
        333333337F33337F33333333099999033333333373F333733333333330999033
        3333333337F337F3333333333099903333333333373F37333333333333090333
        33333333337F7F33333333333309033333333333337373333333333333303333
        333333333337F3333333333333303333333333333337333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      Transparent = False
      OnClick = tbtnMoveUpClick
    end
    object tbtnUseItem: TTransparentButton
      Left = 70
      Top = 280
      Width = 30
      Height = 30
      Hint = 'Use selected file'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        555555555555555555555555555555555555555555FF55555555555559055555
        55555555577FF5555555555599905555555555557777F5555555555599905555
        555555557777FF5555555559999905555555555777777F555555559999990555
        5555557777777FF5555557990599905555555777757777F55555790555599055
        55557775555777FF5555555555599905555555555557777F5555555555559905
        555555555555777FF5555555555559905555555555555777FF55555555555579
        05555555555555777FF5555555555557905555555555555777FF555555555555
        59905555555555555777555555555555555555555555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      OnClick = tbtnUseItemClick
    end
    object tbtnFileValidation: TTransparentButton
      Left = 102
      Top = 280
      Width = 26
      Height = 30
      Hint = 'Validate files in list'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555550FF0559
        1950555FF75F7557F7F757000FF055591903557775F75557F77570FFFF055559
        1933575FF57F5557F7FF0F00FF05555919337F775F7F5557F7F700550F055559
        193577557F7F55F7577F07550F0555999995755575755F7FFF7F5570F0755011
        11155557F755F777777555000755033305555577755F75F77F55555555503335
        0555555FF5F75F757F5555005503335505555577FF75F7557F55505050333555
        05555757F75F75557F5505000333555505557F777FF755557F55000000355557
        07557777777F55557F5555000005555707555577777FF5557F55553000075557
        0755557F7777FFF57555553350000055555555775777775555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      OnClick = tbtnFileValidationClick
    end
    object tbtnRenameFile: TTransparentButton
      Left = 130
      Top = 280
      Width = 30
      Height = 30
      Hint = 'Rename selected file'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555775777777
        57705557757777775FF7555555555555000755555555555F777F555555555550
        87075555555555F7577F5555555555088805555555555F755F75555555555033
        805555555555F755F75555555555033B05555555555F755F75555555555033B0
        5555555555F755F75555555555033B05555555555F755F75555555555033B055
        55555555F755F75555555555033B05555555555F755F75555555555033B05555
        555555F75FF75555555555030B05555555555F7F7F75555555555000B0555555
        5555F777F7555555555501900555555555557777755555555555099055555555
        55557777555555555555500555555555555557755555555555550000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      OnClick = tbtnRenameFileClick
    end
    object tbtnDelete: TTransparentButton
      Left = 162
      Top = 280
      Width = 30
      Height = 30
      Hint = 'Delete selected file(s)'
      Glyph.Data = {
        7E010000424D7E01000000000000760000002800000018000000160000000100
        0400000000000801000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777777777779077
        7777777777907777777777777777777779990777777907777777777779990777
        7790777777777777779990777990777777777777777999079907777777777777
        7777999990777777777777777777799907777777777777777777999990777777
        7777777777799907907777777777777779999077799077777777777799990777
        7799077777777777990777777779907777777777777777777777777777777777
        7777777777777777777777777777777777777777777777777777777777777777
        7777}
      ParentShowHint = False
      ShowHint = False
      OnClick = tbtnDeleteClick
    end
    object tbtnFullPath: TTransparentButton
      Left = 194
      Top = 280
      Width = 30
      Height = 30
      Hint = 'Toggle file paths'
      Glyph.Data = {
        78010000424D7801000000000000760000002800000020000000100000000100
        04000000000000000000120B0000120B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
        333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
        300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
        333337F373F773333333303330033333333337F3377333333333303333333333
        333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
        333337777F337F33333330330BB00333333337F373F773333333303330033333
        333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
        333377777F77377733330BBB0333333333337F337F33333333330BB003333333
        333373F7733333333333300333333333333337733333333333330000}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = False
      OnClick = tbtnFullPathClick
    end
    object pnTabPage: TPanel
      Left = 3
      Top = 45
      Width = 284
      Height = 224
      BevelOuter = bvNone
      TabOrder = 1
      object lbSelected: TListBox
        Left = 0
        Top = 0
        Width = 284
        Height = 124
        Align = alTop
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = []
        ItemHeight = 15
        MultiSelect = True
        ParentFont = False
        ParentShowHint = False
        PopupMenu = pmSelectedListbox
        ShowHint = True
        TabOrder = 0
        OnClick = lbSelectedClick
        OnDblClick = lbSelectedDblClick
      end
      object spltControl: TRxSplitter
        Left = 0
        Top = 124
        Width = 284
        Height = 3
        ControlFirst = lbSelected
        ControlSecond = pnImage
        Align = alTop
        LimitOffset = 0
      end
      object pnImage: TPanel
        Left = 0
        Top = 127
        Width = 284
        Height = 97
        Align = alClient
        BevelOuter = bvNone
        Caption = 'pnImage'
        TabOrder = 2
        object pnLeft: TPanel
          Left = 0
          Top = 0
          Width = 90
          Height = 97
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
        end
        object pnRight: TPanel
          Left = 194
          Top = 0
          Width = 90
          Height = 97
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 1
        end
        object pnPreviewParent: TPanel
          Left = 90
          Top = 0
          Width = 104
          Height = 97
          Align = alClient
          BevelInner = bvLowered
          TabOrder = 2
          object imgBMP: TImage
            Left = 2
            Top = 2
            Width = 100
            Height = 93
            Align = alClient
            AutoSize = True
            Center = True
            ParentShowHint = False
            ShowHint = False
            Stretch = True
            OnDblClick = imgBMPDblClick
          end
        end
      end
    end
    object chkPreview: TCheckBox
      Left = 228
      Top = 286
      Width = 53
      Height = 17
      Caption = 'View'
      State = cbChecked
      TabOrder = 2
      OnClick = chkPreviewClick
    end
    object pnNext: TPanel
      Left = 3
      Top = 44
      Width = 286
      Height = 233
      BevelOuter = bvNone
      TabOrder = 0
      object grpLogos: TGroupBox
        Left = 0
        Top = 8
        Width = 283
        Height = 89
        Caption = 'Logos:'
        TabOrder = 0
        object Label4: TLabel
          Left = 4
          Top = 42
          Width = 29
          Height = 15
          Caption = 'Wait:'
        end
        object Label5: TLabel
          Left = 4
          Top = 18
          Width = 49
          Height = 15
          Caption = 'Start Up:'
        end
        object Label6: TLabel
          Left = 4
          Top = 65
          Width = 64
          Height = 15
          Caption = 'Shut Down:'
        end
        object edtLogoWait: TEdit
          Left = 69
          Top = 37
          Width = 210
          Height = 23
          Hint = 'Double click to preview'
          Color = clSilver
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 0
          OnDblClick = edtLogoWaitDblClick
        end
        object edtLogoStartup: TEdit
          Left = 69
          Top = 12
          Width = 210
          Height = 23
          Hint = 'Double click to preview'
          Color = clSilver
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 1
          OnDblClick = edtLogoStartupDblClick
        end
        object edtLogoShutdown: TEdit
          Left = 69
          Top = 62
          Width = 210
          Height = 23
          Hint = 'Double click to preview'
          Color = clSilver
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 2
          OnDblClick = edtLogoShutdownDblClick
        end
      end
      object grpSounds: TGroupBox
        Left = 0
        Top = 97
        Width = 283
        Height = 63
        Caption = 'Sounds:'
        TabOrder = 1
        object Label7: TLabel
          Left = 4
          Top = 40
          Width = 64
          Height = 15
          Caption = 'Shut Down:'
        end
        object Label8: TLabel
          Left = 4
          Top = 17
          Width = 49
          Height = 15
          Caption = 'Start Up:'
        end
        object edtSoundShutdown: TEdit
          Left = 69
          Top = 35
          Width = 210
          Height = 23
          Hint = 'Double click to preview'
          Color = clSilver
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 0
          OnDblClick = edtSoundShutdownDblClick
        end
        object edtSoundStartup: TEdit
          Left = 69
          Top = 11
          Width = 210
          Height = 23
          Hint = 'Double click to preview'
          Color = clSilver
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 1
          OnDblClick = edtSoundStartupDblClick
        end
      end
      object GroupBox1: TGroupBox
        Left = 1
        Top = 160
        Width = 283
        Height = 42
        Caption = 'Background:'
        TabOrder = 2
        object Label9: TLabel
          Left = 4
          Top = 17
          Width = 61
          Height = 15
          Caption = 'Wallpaper:'
        end
        object edtBackgroundWallPaper: TEdit
          Left = 69
          Top = 13
          Width = 210
          Height = 23
          Hint = 'Double click to preview'
          Color = clSilver
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 0
          OnDblClick = edtBackgroundWallPaperDblClick
        end
      end
    end
  end
  object pnSpeedButtons: TPanel
    Left = 280
    Top = 60
    Width = 35
    Height = 137
    BevelOuter = bvNone
    TabOrder = 1
    object tbtnSelectItem: TTransparentButton
      Left = 2
      Top = 5
      Width = 30
      Height = 30
      Hint = 'Choose selected file(s)'
      Caption = '>'
      ParentShowHint = False
      ShowHint = False
      Spacing = 1
      OnClick = tbtnSelectItemClick
    end
    object tbtnSelectAll: TTransparentButton
      Left = 2
      Top = 37
      Width = 30
      Height = 30
      Hint = 'Choose all files'
      Caption = '>>'
      ParentShowHint = False
      ShowHint = False
      Spacing = 1
      OnClick = tbtnSelectAllClick
    end
    object tbtnRemoveItem: TTransparentButton
      Left = 2
      Top = 69
      Width = 30
      Height = 30
      Hint = 'Remove selected file(s)'
      Caption = '<'
      ParentShowHint = False
      ShowHint = False
      Spacing = 1
      OnClick = tbtnRemoveItemClick
    end
    object tbtnRemoveAll: TTransparentButton
      Left = 2
      Top = 101
      Width = 30
      Height = 30
      Hint = 'Remove all files'
      Caption = '<<'
      ParentShowHint = False
      ShowHint = False
      Spacing = 1
      OnClick = tbtnRemoveAllClick
    end
  end
  object grpOptions: TGroupBox
    Left = 3
    Top = 320
    Width = 274
    Height = 74
    Caption = 'Options:'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnEnter = grpOptionsEnter
    object Label1: TLabel
      Left = 8
      Top = 20
      Width = 50
      Height = 15
      Caption = 'Rotation:'
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 46
      Height = 15
      Caption = 'Change:'
    end
    object Label3: TLabel
      Left = 112
      Top = 47
      Width = 36
      Height = 15
      Caption = 'Day(s)'
    end
    object cmbRotation: TComboBox
      Left = 60
      Top = 16
      Width = 105
      Height = 23
      Hint = 'Specifies how files are chosen for displaying'
      Style = csDropDownList
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 15
      Items.Strings = (
        'Random'
        'Sequential')
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      OnChange = ApplyToAll
    end
    object spnFrequency: TSpinEdit
      Left = 59
      Top = 43
      Width = 47
      Height = 24
      Hint =
        'Frequency of when files will be changed 0 changes the file(s) on' +
        ' every start up)'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = []
      MaxLength = 3
      MaxValue = 999
      MinValue = 0
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 2
      Value = 0
      OnChange = ApplyToAll
    end
    object cbActive: TCheckBox
      Left = 153
      Top = 47
      Width = 60
      Height = 17
      Hint = 'Specifies whether images will be changed for this catagory'
      Caption = 'Active'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      State = cbChecked
      TabOrder = 3
      OnClick = ApplyToAll
    end
    object cbGlobal: TCheckBox
      Left = 212
      Top = 44
      Width = 57
      Height = 21
      Hint = 'Toggles whether all option changes effect all catagories'
      Caption = 'Global'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      OnClick = cbGlobalClick
    end
    object cmbTitle: TComboBox
      Left = 170
      Top = 16
      Width = 99
      Height = 23
      ItemHeight = 15
      Items.Strings = (
        'Centre'
        'Title')
      TabOrder = 4
      Text = 'cmbTitle'
    end
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 398
    Width = 612
    Height = 24
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Panels = <>
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    SimplePanel = True
    SizeGrip = False
  end
  object GroupBox2: TGroupBox
    Left = 319
    Top = 320
    Width = 289
    Height = 74
    TabOrder = 5
    object btnOK: TButton
      Left = 6
      Top = 12
      Width = 77
      Height = 27
      Hint = 'Apply changes and exit'
      Caption = '&OK'
      Default = True
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 6
      Top = 41
      Width = 77
      Height = 27
      Hint = 'Exit without applying changes'
      Cancel = True
      Caption = '&Cancel'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ModalResult = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      OnClick = btnCancelClick
    end
    object btnApply: TButton
      Left = 106
      Top = 41
      Width = 77
      Height = 27
      Hint = 'Apply changes without exiting'
      Caption = '&Apply'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 2
      OnClick = btnApplyClick
    end
    object btnChange: TButton
      Left = 106
      Top = 12
      Width = 77
      Height = 27
      Hint = 'Change logos and wallpaper (identical to running DChanger.exe)'
      Cancel = True
      Caption = 'C&hange'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 3
      OnClick = btnChangeClick
    end
    object btnHelp: TButton
      Left = 206
      Top = 12
      Width = 77
      Height = 27
      HelpContext = 1
      Cancel = True
      Caption = '&Help'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 4
      OnClick = btnHelpClick
    end
    object btnAbout: TButton
      Left = 206
      Top = 41
      Width = 77
      Height = 27
      Hint = 'Program information'
      Cancel = True
      Caption = 'A&bout'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 5
      OnClick = btnAboutClick
    end
  end
  object pnPreview: TPanel
    Left = 1
    Top = 1
    Width = 48
    Height = 54
    TabOrder = 6
    Visible = False
    object imgView: TImage
      Left = 1
      Top = 1
      Width = 46
      Height = 52
      Align = alClient
      OnClick = imgViewClick
      OnDblClick = imgViewDblClick
    end
  end
  object pmSelectedListbox: TPopupMenu
    Left = 556
    Top = 221
    object miSelectedListboxPreview: TMenuItem
      Caption = 'Preview'
      ShortCut = 16464
      OnClick = miSelectedListboxPreviewClick
    end
    object miSelectedListboxUseImage: TMenuItem
      Caption = 'Use Image'
      ShortCut = 16469
      OnClick = tbtnUseItemClick
    end
    object N4: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miSelectedListboxGotoDirectory: TMenuItem
      Caption = 'Goto Directory'
      ShortCut = 16455
      OnClick = miSelectedListboxGotoDirectoryClick
    end
    object N5: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miSelectedListboxDeleteSelectedFiles: TMenuItem
      Caption = 'Delete Selected Files'
      Hint = 'WARNING:  Deleted files cannot be recovered'
      ShortCut = 16452
      OnClick = tbtnDeleteClick
    end
    object miSelectedListboxRenameFile: TMenuItem
      Caption = 'Rename File'
      ShortCut = 16466
      OnClick = tbtnRenameFileClick
    end
    object miSelectedListboxValidateFiles: TMenuItem
      Caption = 'File Validation'
      ShortCut = 16454
      OnClick = tbtnFileValidationClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miSelectedListboxRemoveSelected: TMenuItem
      Caption = 'Remove Selected '
      ShortCut = 16467
      OnClick = tbtnRemoveItemClick
    end
    object miSelectedListboxRemoveAll: TMenuItem
      Caption = 'Remove All'
      ShortCut = 16449
      OnClick = tbtnRemoveAllClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miSelectedListboxMoveDown: TMenuItem
      Caption = 'Move Down'
      ShortCut = 16472
      OnClick = tbtnMoveDownClick
    end
    object miSelectedListboxMoveUp: TMenuItem
      Caption = 'Move Up'
      ShortCut = 16474
      OnClick = tbtnMoveUpClick
    end
  end
  object pmFileListBoxMenu: TPopupMenu
    Left = 168
    Top = 48
    object miFileListBoxMenuPreview: TMenuItem
      Caption = 'Preview'
      ShortCut = 16464
      OnClick = miFileListBoxMenuPreviewClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miFileListBoxMenuChooseAll: TMenuItem
      Caption = 'Choose All'
      ShortCut = 16449
      OnClick = tbtnSelectAllClick
    end
    object miFileListBoxMenuChooseSelectedFiles: TMenuItem
      Caption = 'Choose Selected'
      ShortCut = 16467
      OnClick = tbtnSelectItemClick
    end
    object MiFileListSendTo: TMenuItem
      Caption = 'Send To'
      ShortCut = 0
      Visible = False
      object smLogos: TMenuItem
        Caption = 'Logos'
        ShortCut = 0
        object miLogoStartUp: TMenuItem
          Caption = 'Start up'
          ShortCut = 0
        end
        object miLogoWait: TMenuItem
          Caption = 'Wait'
          ShortCut = 0
        end
        object miLogoShutdown: TMenuItem
          Caption = 'Shutdown'
          ShortCut = 0
        end
      end
      object smSounds: TMenuItem
        Caption = 'Sounds'
        ShortCut = 0
        object miSoundsStartup: TMenuItem
          Caption = 'Start up'
          ShortCut = 0
        end
        object miSoundsShutdown: TMenuItem
          Caption = 'Shutdown'
          ShortCut = 0
        end
      end
      object miWallPaper: TMenuItem
        Caption = 'WallPaper'
        ShortCut = 0
      end
    end
    object N6: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miFileListBoxMenuUpdate: TMenuItem
      Caption = 'Update'
      ShortCut = 116
      OnClick = miFileListBoxMenuUpdateClick
    end
  end
  object pmDirectory: TPopupMenu
    Left = 208
    Top = 196
    object miDirectoryGotoDirectory: TMenuItem
      Caption = 'Goto directory'
      ShortCut = 16455
      OnClick = miDirectoryGotoDirectoryClick
    end
    object N7: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object miDirectoryUpdate: TMenuItem
      Caption = 'Update'
      ShortCut = 116
      OnClick = miDirectoryUpdateClick
    end
  end
  object aeChanger: TAppExec
    ExeParams.Strings = (
      '/CHANGE')
    Wait = False
    WindowState = wsNormal
    Left = 292
    Top = 16
  end
end