home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 6 A / CHIP_HITWARE6_A.iso / multimed / mp3rename / MP3Renamer.exe / 0 / RCDATA / TMAINFORM / TMAINFORM.txt < prev   
Encoding:
Text File  |  1998-07-25  |  15.0 KB  |  572 lines
  1. object MainForm: TMainForm
  2.   Left = 528
  3.   Top = 106
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'MP3 Renamer'
  7.   ClientHeight = 359
  8.   ClientWidth = 332
  9.   ParentFont = True
  10.   Icon.Data = {<image000.ico>}
  11.   KeyPreview = True
  12.   Visible = True
  13.   OnCloseQuery = FormCloseQuery
  14.   OnCreate = FormCreate
  15.   OnKeyDown = FormKeyDown
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object imgMore: TImage
  19.     Left = 112
  20.     Top = 323
  21.     Width = 17
  22.     Height = 16
  23.     AutoSize = True
  24.     Picture.Data = {<image001.bmp>}
  25.     Visible = False
  26.   end
  27.   object imgLess: TImage
  28.     Left = 128
  29.     Top = 323
  30.     Width = 17
  31.     Height = 16
  32.     AutoSize = True
  33.     Picture.Data = {<image002.bmp>}
  34.     Visible = False
  35.   end
  36.   object bvlTop1: TBevel
  37.     Left = 0
  38.     Top = 0
  39.     Width = 332
  40.     Height = 2
  41.     Shape = bsTopLine
  42.   end
  43.   object bvlTop4: TBevel
  44.     Left = 0
  45.     Top = 218
  46.     Width = 332
  47.     Height = 2
  48.     Shape = bsTopLine
  49.   end
  50.   object bvlTop2: TBevel
  51.     Left = 0
  52.     Top = 97
  53.     Width = 332
  54.     Height = 2
  55.     Shape = bsTopLine
  56.   end
  57.   object bvlTop3: TBevel
  58.     Left = 0
  59.     Top = 150
  60.     Width = 332
  61.     Height = 2
  62.     Shape = bsTopLine
  63.   end
  64.   object Bevel1: TBevel
  65.     Left = 0
  66.     Top = 268
  67.     Width = 332
  68.     Height = 2
  69.     Shape = bsTopLine
  70.   end
  71.   object pnlPresets: TPanel
  72.     Left = 0
  73.     Top = 99
  74.     Width = 332
  75.     Height = 51
  76.     BevelOuter = bvNone
  77.     Locked = True
  78.     ParentColor = True
  79.     TabOrder = 1
  80.     object lblReplace: TLabel
  81.       Left = 110
  82.       Top = 6
  83.       Width = 43
  84.       Height = 13
  85.       Caption = '&Replace:'
  86.       FocusControl = cmbReplace
  87.     end
  88.     object lblWith: TLabel
  89.       Left = 222
  90.       Top = 6
  91.       Width = 25
  92.       Height = 13
  93.       Caption = '&With:'
  94.       FocusControl = cmbWith
  95.     end
  96.     object lblPresets: TLabel
  97.       Left = 6
  98.       Top = 6
  99.       Width = 38
  100.       Height = 13
  101.       Caption = '&Presets:'
  102.       FocusControl = cmbPresets
  103.     end
  104.     object cmbReplace: TComboBox
  105.       Left = 110
  106.       Top = 22
  107.       Width = 105
  108.       Height = 21
  109.       Hint = 'Adjust the string to replace in this combobox'
  110.       ItemHeight = 13
  111.       Items.Strings = (
  112.         '%20'
  113.         ' '
  114.         '_')
  115.       TabOrder = 1
  116.       OnChange = cmbReplaceWithChange
  117.       OnExit = cmbReplaceWithExit
  118.     end
  119.     object cmbWith: TComboBox
  120.       Left = 222
  121.       Top = 22
  122.       Width = 105
  123.       Height = 21
  124.       Hint = 'Adjust the string to replace with in this combobox'
  125.       ItemHeight = 13
  126.       Items.Strings = (
  127.         ' '
  128.         '_')
  129.       TabOrder = 2
  130.       OnChange = cmbReplaceWithChange
  131.       OnExit = cmbReplaceWithExit
  132.     end
  133.     object cmbPresets: TComboBox
  134.       Left = 6
  135.       Top = 22
  136.       Width = 97
  137.       Height = 21
  138.       Hint = 
  139.         'Select a preset in the dropdown list, it will appear in the Repl' +
  140.         'ace - With comboboxes, adjust it if you like'
  141.       Style = csDropDownList
  142.       ItemHeight = 13
  143.       Items.Strings = (
  144.         'Empty'
  145.         'Custom'
  146.         #39'%20'#39' -> '#39' '#39
  147.         #39'_'#39' -> '#39' '#39
  148.         #39'%20'#39' -> '#39'_'#39
  149.         #39' '#39' -> '#39'_'#39)
  150.       TabOrder = 0
  151.       OnChange = cmbPresetsChange
  152.     end
  153.   end
  154.   object pnlChecks: TPanel
  155.     Left = 0
  156.     Top = 152
  157.     Width = 332
  158.     Height = 65
  159.     BevelOuter = bvNone
  160.     Locked = True
  161.     ParentColor = True
  162.     TabOrder = 2
  163.     object cbxAutoRename: TCheckBox
  164.       Left = 6
  165.       Top = 6
  166.       Width = 164
  167.       Height = 17
  168.       Hint = 
  169.         'Place a check to make use of the Auto Rename engine, please view' +
  170.         ' the Help for more information'
  171.       Caption = '&Auto Rename'
  172.       State = cbChecked
  173.       TabOrder = 0
  174.     end
  175.     object cbxCapitalize: TCheckBox
  176.       Left = 6
  177.       Top = 42
  178.       Width = 164
  179.       Height = 17
  180.       Hint = 
  181.         'Place a check to make use of the Capitalize Every Word engine, p' +
  182.         'lease view the Help for more information'
  183.       Caption = '&Capitalize Every Word'
  184.       State = cbChecked
  185.       TabOrder = 2
  186.     end
  187.     object cbxEnumerateFiles: TCheckBox
  188.       Left = 172
  189.       Top = 24
  190.       Width = 160
  191.       Height = 17
  192.       Hint = 
  193.         'This feature is unavailable, for more information click the chec' +
  194.         'kbox'
  195.       Caption = '&Enumerate Files (Dialog)'
  196.       ParentShowHint = False
  197.       ShowHint = False
  198.       TabOrder = 4
  199.       OnClick = cbxNAClick
  200.     end
  201.     object cbxRemoveNumbers: TCheckBox
  202.       Left = 172
  203.       Top = 6
  204.       Width = 160
  205.       Height = 17
  206.       Hint = 
  207.         'This feature is unavailable, for more information click the chec' +
  208.         'kbox'
  209.       Caption = 'Remove &Numbers'
  210.       ParentShowHint = False
  211.       ShowHint = False
  212.       TabOrder = 3
  213.       OnClick = cbxNAClick
  214.     end
  215.     object cbxDontAddSpaces: TCheckBox
  216.       Left = 6
  217.       Top = 24
  218.       Width = 164
  219.       Height = 17
  220.       Hint = 
  221.         'This feature is unavailable, for more information click the chec' +
  222.         'kbox'
  223.       Caption = 'Don'#39't Add &Spaces Between ( )'
  224.       ParentShowHint = False
  225.       ShowHint = False
  226.       TabOrder = 1
  227.       OnClick = cbxNAClick
  228.     end
  229.     object cbxAutoEnumerate: TCheckBox
  230.       Left = 172
  231.       Top = 42
  232.       Width = 160
  233.       Height = 17
  234.       Hint = 
  235.         'This feature is unavailable, for more information click the chec' +
  236.         'kbox'
  237.       Caption = 'A&uto Enumerate (01,02,03)'
  238.       ParentShowHint = False
  239.       ShowHint = False
  240.       TabOrder = 5
  241.       OnClick = cbxNAClick
  242.     end
  243.   end
  244.   object pnlTop: TPanel
  245.     Left = 0
  246.     Top = 2
  247.     Width = 332
  248.     Height = 95
  249.     BevelOuter = bvNone
  250.     Locked = True
  251.     ParentColor = True
  252.     TabOrder = 0
  253.     object lblFolder: TLabel
  254.       Left = 6
  255.       Top = 6
  256.       Width = 114
  257.       Height = 13
  258.       Caption = '&Folder to rename files in:'
  259.       FocusControl = cmbFolder
  260.     end
  261.     object lblArtist: TLabel
  262.       Left = 6
  263.       Top = 50
  264.       Width = 63
  265.       Height = 13
  266.       Caption = '&Default Artist:'
  267.       FocusControl = cmbArtist
  268.     end
  269.     object lblFiletype: TLabel
  270.       Left = 246
  271.       Top = 50
  272.       Width = 39
  273.       Height = 13
  274.       Caption = 'File&type:'
  275.       FocusControl = cmbFiletype
  276.     end
  277.     object cmbFolder: TComboBox
  278.       Left = 6
  279.       Top = 22
  280.       Width = 233
  281.       Height = 21
  282.       Hint = 
  283.         'Pick a folder with the Browse button, or select a previous folde' +
  284.         'r in the dropdown list'
  285.       ItemHeight = 13
  286.       Items.Strings = (
  287.         'C:\')
  288.       TabOrder = 0
  289.       OnExit = cmbFolderExit
  290.     end
  291.     object cmbArtist: TComboBox
  292.       Left = 6
  293.       Top = 66
  294.       Width = 233
  295.       Height = 21
  296.       Hint = 
  297.         'Type a name here or select a previous artist in the dropdown lis' +
  298.         't'
  299.       ItemHeight = 13
  300.       TabOrder = 2
  301.       OnExit = cmbArtistExit
  302.     end
  303.     object cmbFiletype: TComboBox
  304.       Left = 246
  305.       Top = 66
  306.       Width = 81
  307.       Height = 21
  308.       Hint = 
  309.         'Type a search criteria here or select a previous one in the drop' +
  310.         'down list. Note: *.* means All Files'
  311.       ItemHeight = 13
  312.       Items.Strings = (
  313.         '*.mp3'
  314.         '*.*')
  315.       TabOrder = 3
  316.       Text = '*.mp3'
  317.       OnExit = cmbFiletypeExit
  318.     end
  319.     object btnOpen: TBitBtn
  320.       Left = 246
  321.       Top = 18
  322.       Width = 81
  323.       Height = 25
  324.       Hint = 'Click to select a folder to rename files in'
  325.       Caption = '&Browse...'
  326.       TabOrder = 1
  327.       OnClick = btnOpenClick
  328.       Glyph.Data = {
  329.         36010000424D3601000000000000760000002800000011000000100000000100
  330.         040000000000C000000000000000000000001000000010000000000000000000
  331.         80000080000000808000800000008000800080800000C0C0C000808080000000
  332.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  333.         7777700000007777777777777777700000000000000000077777700000000033
  334.         333333307777700000000B03333333330777700000000FB03333333330777000
  335.         00000BFB033333333307700000000FBFB00000000000700000000BFBFBFBFB07
  336.         7777700000000FBFBFBFBF077777700000000BFB000000077777700000007000
  337.         7777777700077000000077777777777770077000000077777777077707077000
  338.         0000777777777000777770000000777777777777777770000000}
  339.     end
  340.   end
  341.   object pnlButtons: TPanel
  342.     Left = 0
  343.     Top = 322
  344.     Width = 332
  345.     Height = 37
  346.     Align = alBottom
  347.     BevelOuter = bvNone
  348.     FullRepaint = False
  349.     TabOrder = 3
  350.     object btnRename: TBitBtn
  351.       Left = 6
  352.       Top = 6
  353.       Width = 93
  354.       Height = 25
  355.       Hint = 'Click to begin renaming files'
  356.       Caption = 'Re&name...'
  357.       TabOrder = 0
  358.       OnClick = btnRenameClick
  359.       Glyph.Data = {
  360.         36010000424D3601000000000000760000002800000011000000100000000100
  361.         040000000000C000000000000000000000001000000010000000000000000000
  362.         80000080000000808000800000008000800080800000C0C0C000808080000000
  363.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  364.         7777700000007777777707778887700000007777777700778778700000007777
  365.         0707000787787000000077077777007788877000000077777777077787787000
  366.         0000707777777777877870000000777777777707888770000000770777777777
  367.         7777700000007777777770777777700000000777077777777777700000000777
  368.         0777707777777000000080008777777777777000000070707777770707777000
  369.         0000780877777770077770000000770777777700077770000000}
  370.     end
  371.     object btnHelp: TBitBtn
  372.       Left = 182
  373.       Top = 6
  374.       Width = 69
  375.       Height = 25
  376.       Hint = 
  377.         'Click to view more information about the features and copyright ' +
  378.         'of this program'
  379.       Caption = 'Help...'
  380.       TabOrder = 2
  381.       OnClick = btnHelpClick
  382.       Glyph.Data = {
  383.         36010000424D3601000000000000760000002800000011000000100000000100
  384.         040000000000C000000000000000000000001000000010000000000000000000
  385.         80000080000000808000800000008000800080800000C0C0C000808080000000
  386.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  387.         7777700000007777777000777777700000007777700558077777700000007770
  388.         055FF78077777000000070055FF00778077770000000855FF005507780777000
  389.         000085F0055555077807700000008005553B5550778070000000855555535555
  390.         07077000000075F55555BB55500770000000775F555553BB5507700000007775
  391.         F55535BB55507000000077775F55BBB5550070000000777775F5555500777000
  392.         00007777775F5500777770000000777777755077777770000000}
  393.     end
  394.     object btnClose: TBitBtn
  395.       Left = 258
  396.       Top = 6
  397.       Width = 69
  398.       Height = 25
  399.       Hint = 'Click to exit this program'
  400.       Caption = 'E&xit'
  401.       TabOrder = 3
  402.       OnClick = btnCloseClick
  403.       Glyph.Data = {
  404.         DE010000424DDE01000000000000760000002800000024000000120000000100
  405.         0400000000006801000000000000000000001000000010000000000000000000
  406.         80000080000000808000800000008000800080800000C0C0C000808080000000
  407.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  408.         333333333333333333333333000033338833333333333333333F333333333333
  409.         0000333911833333983333333388F333333F3333000033391118333911833333
  410.         38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
  411.         911118111118333338F3338F833338F3000033333911111111833333338F3338
  412.         3333F8330000333333911111183333333338F333333F83330000333333311111
  413.         8333333333338F3333383333000033333339111183333333333338F333833333
  414.         00003333339111118333333333333833338F3333000033333911181118333333
  415.         33338333338F333300003333911183911183333333383338F338F33300003333
  416.         9118333911183333338F33838F338F33000033333913333391113333338FF833
  417.         38F338F300003333333333333919333333388333338FFF830000333333333333
  418.         3333333333333333333888330000333333333333333333333333333333333333
  419.         0000}
  420.       NumGlyphs = 2
  421.     end
  422.     object btnLessMore: TBitBtn
  423.       Left = 106
  424.       Top = 6
  425.       Width = 69
  426.       Height = 25
  427.       Caption = '&More'
  428.       TabOrder = 1
  429.       OnClick = btnLessMoreClick
  430.     end
  431.   end
  432.   object Notebook: TNotebook
  433.     Left = 0
  434.     Top = 220
  435.     Width = 332
  436.     Height = 48
  437.     TabOrder = 4
  438.     object TPage
  439.       Left = 0
  440.       Top = 0
  441.       Caption = 'Copyright'
  442.       object lblCopyright: TLabel
  443.         Left = 46
  444.         Top = 8
  445.         Width = 202
  446.         Height = 13
  447.         Caption = 'Copyright (c) 1998 Digital Dreams Software'
  448.         Font.Charset = ANSI_CHARSET
  449.         Font.Color = clMaroon
  450.         Font.Height = -11
  451.         Font.Name = 'MS Sans Serif'
  452.         Font.Style = []
  453.         ParentFont = False
  454.       end
  455.       object imgGO: TImage
  456.         Left = 8
  457.         Top = 8
  458.         Width = 32
  459.         Height = 32
  460.         Hint = 'Click to visit our homepage|'
  461.         AutoSize = True
  462.         ParentShowHint = False
  463.         Picture.Data = {<image003.bmp>}
  464.         ShowHint = True
  465.         Transparent = True
  466.         OnClick = imgGOClick
  467.       end
  468.       object edtURL: TEdit
  469.         Left = 46
  470.         Top = 24
  471.         Width = 209
  472.         Height = 18
  473.         TabStop = False
  474.         BorderStyle = bsNone
  475.         Font.Charset = ANSI_CHARSET
  476.         Font.Color = clMaroon
  477.         Font.Height = -11
  478.         Font.Name = 'MS Sans Serif'
  479.         Font.Style = []
  480.         ParentColor = True
  481.         ParentFont = False
  482.         ReadOnly = True
  483.         TabOrder = 0
  484.         Text = 'http://www.tem.nhl.nl/~eijde600/'
  485.         OnClick = edtURLClick
  486.       end
  487.     end
  488.     object TPage
  489.       Left = 0
  490.       Top = 0
  491.       Caption = 'Hint'
  492.       object pnlHint: TPanel
  493.         Left = 2
  494.         Top = 2
  495.         Width = 328
  496.         Height = 44
  497.         BevelInner = bvLowered
  498.         BevelOuter = bvNone
  499.         Locked = True
  500.         ParentColor = True
  501.         TabOrder = 0
  502.         object imgHint: TImage
  503.           Left = 6
  504.           Top = 1
  505.           Width = 30
  506.           Height = 42
  507.           AutoSize = True
  508.           Picture.Data = {<image004.bmp>}
  509.           Transparent = True
  510.         end
  511.         object lblHint: TLabel
  512.           Left = 44
  513.           Top = 4
  514.           Width = 283
  515.           Height = 37
  516.           AutoSize = False
  517.           WordWrap = True
  518.         end
  519.       end
  520.     end
  521.   end
  522.   object BrowseDlg: TBrowseDirectoryDlg
  523.     Title = 'Select the folder to rename files in'
  524.     Root = idDrives
  525.     Options = [bfDirectoriesOnly]
  526.     ShowSelectionInStatus = False
  527.     OnSelChanged = BrowseDlgSelChanged
  528.     Left = 184
  529.     Top = 10
  530.   end
  531.   object GradientCaption: TMSOfficeCaption
  532.     AppNameText.Caption = '-'
  533.     AppNameText.Font.Charset = ANSI_CHARSET
  534.     AppNameText.Font.Color = clWindowText
  535.     AppNameText.Font.Height = -12
  536.     AppNameText.Font.Name = 'Arial'
  537.     AppNameText.Font.Style = [fsBold]
  538.     AppNameText.FontKind = fkCustom
  539.     AppNameText.Visible = True
  540.     CaptionText.Caption = 'MP3 Renamer'
  541.     CaptionText.Font.Charset = ANSI_CHARSET
  542.     CaptionText.Font.Color = clWindowText
  543.     CaptionText.Font.Height = -12
  544.     CaptionText.Font.Name = 'Arial'
  545.     CaptionText.Font.Style = [fsBold]
  546.     CaptionText.FontKind = fkCustom
  547.     CaptionText.Visible = True
  548.     CompanyText.Caption = 'Digital Dreams Software'
  549.     CompanyText.Font.Charset = ANSI_CHARSET
  550.     CompanyText.Font.Color = clWindowText
  551.     CompanyText.Font.Height = -12
  552.     CompanyText.Font.Name = 'Arial'
  553.     CompanyText.Font.Style = [fsBold, fsItalic]
  554.     CompanyText.FontKind = fkCustom
  555.     CompanyText.Visible = True
  556.     Left = 156
  557.     Top = 10
  558.   end
  559.   object Timer: TTimer
  560.     Interval = 500
  561.     OnTimer = TimerTimer
  562.     Left = 128
  563.     Top = 10
  564.   end
  565.   object HideTimer: TTimer
  566.     Enabled = False
  567.     OnTimer = HideTimerTimer
  568.     Left = 128
  569.     Top = 38
  570.   end
  571. end
  572.