Chip 2004 September (Special)/Chip-Special_2004-09_Digitalni-Hudba.bin/prehravace/tunes/mp3t2demo.exe/MP3Tunes.exe/0/RCDATA/TEDITDATABASE/TEDITDATABASE.txt

Text File | 2003-10-13 | 8KB | 393 lines

object EditDatabase: TEditDatabase
  Left = 191
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Database'
  ClientHeight = 265
  ClientWidth = 402
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object AddStep3: TPanel
    Left = 136
    Top = 0
    Width = 265
    Height = 238
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 6
    Visible = False
    object Step3: TLabel
      Left = 7
      Top = 8
      Width = 242
      Height = 57
      AutoSize = False
      Caption =
        'Step 3: If files doesn'#39't have an ID3 tag'#13#10'you can set filename s' +
        'tructure instead.'#13#10'Highlight a part and give it the proper keywo' +
        'rd.'
    end
    object Edit1: TEdit
      Left = 8
      Top = 72
      Width = 249
      Height = 21
      HideSelection = False
      PopupMenu = Keywords
      TabOrder = 0
    end
    object KeywordBtn: TButton
      Left = 8
      Top = 96
      Width = 75
      Height = 19
      Caption = 'Keyword'
      TabOrder = 1
      OnClick = Button2Click
    end
    object AddStructBtn: TButton
      Left = 88
      Top = 96
      Width = 75
      Height = 19
      Caption = 'Add'
      TabOrder = 2
      OnClick = AddStructBtnClick
    end
    object BrowseBtn: TButton
      Left = 182
      Top = 96
      Width = 75
      Height = 19
      Caption = 'Browse'
      TabOrder = 3
      OnClick = BrowseBtnClick
    end
    object Structures: TListBox
      Left = 8
      Top = 118
      Width = 249
      Height = 92
      ItemHeight = 13
      Items.Strings = (
        'Artist_-_Title.mp3'
        'Artist - Title.mp3'
        'Artist\Title.mp3')
      TabOrder = 4
    end
    object RemoveBtn: TButton
      Left = 182
      Top = 213
      Width = 75
      Height = 19
      Caption = 'Remove'
      TabOrder = 5
      OnClick = RemoveBtnClick
    end
  end
  object AddStep2: TPanel
    Left = 136
    Top = 0
    Width = 265
    Height = 238
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 5
    Visible = False
    object Step2: TLabel
      Left = 8
      Top = 8
      Width = 178
      Height = 41
      AutoSize = False
      Caption = 'Step 2: Create a ID name'
    end
    object DirID: TEdit
      Left = 16
      Top = 56
      Width = 129
      Height = 21
      MaxLength = 22
      TabOrder = 0
      OnKeyDown = DirIDKeyDown
    end
  end
  object AddStep1: TPanel
    Left = 136
    Top = 0
    Width = 265
    Height = 238
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 4
    Visible = False
    object Step1: TLabel
      Left = 8
      Top = 8
      Width = 233
      Height = 17
      AutoSize = False
      Caption = 'Step 1: Choose a directory'
    end
    object DirTree: TDirTreeView
      Left = 8
      Top = 24
      Width = 249
      Height = 189
      HideSelection = False
      Indent = 19
      ParentColor = False
      TabOrder = 0
      TabStop = True
      OnPathChange = DirTreePathChange
    end
    object SubDirs: TCheckBox
      Left = 8
      Top = 216
      Width = 249
      Height = 17
      Caption = 'Include subdirectories'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
  end
  object Memo1: TMemo
    Left = 136
    Top = 0
    Width = 265
    Height = 264
    Lines.Strings = (
      '[Add files]'
      'Press this button to add files to the database.'
      'The wizard will help you mostly, how to add files'
      'to the database.'
      ''
      ''
      '[Update database]'
      'Press this button to check if all files still exist.'
      'If a file doesn'#39't exist you'#39'll be prompted to delete'
      'it'#39's entry from the database.'
      ''
      ''
      '[Empty database]'
      'Careful with this button!'
      'It will completely empty the database'
      'so you can create a fresh one')
    ReadOnly = True
    TabOrder = 9
  end
  object AddStep4: TPanel
    Left = 136
    Top = 0
    Width = 265
    Height = 238
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 7
    Visible = False
    object Step4: TLabel
      Left = 7
      Top = 8
      Width = 242
      Height = 41
      AutoSize = False
      Caption =
        'Step 4: Click on the button to'#13#10'search and add files to the data' +
        'base'
    end
    object Label1: TLabel
      Left = 8
      Top = 96
      Width = 252
      Height = 13
      Caption = 'Warning! this option is not adviseable on a big search'
    end
    object Label3: TLabel
      Left = 24
      Top = 80
      Width = 202
      Height = 13
      Caption = 'So it loads fast nex time you access the file'
    end
    object SearchBtn: TButton
      Left = 48
      Top = 152
      Width = 177
      Height = 25
      Caption = 'Search && Add'
      TabOrder = 0
      OnClick = SearchBtnClick
    end
    object ExactSearch: TCheckBox
      Left = 8
      Top = 40
      Width = 249
      Height = 17
      Caption = 'Get exact timelength'
      TabOrder = 1
    end
    object SaveTime: TCheckBox
      Left = 8
      Top = 64
      Width = 249
      Height = 17
      Caption = 'Save mp3 track time in ID3v2 Tag'
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 120
      Width = 97
      Height = 17
      Caption = 'Only ID3v1'
      TabOrder = 3
    end
  end
  object EmptyBtn: TButton
    Left = 8
    Top = 72
    Width = 121
    Height = 25
    Caption = 'Empty database'
    TabOrder = 2
    OnClick = EmptyBtnClick
  end
  object CloseBtn: TButton
    Left = 8
    Top = 236
    Width = 121
    Height = 25
    Cancel = True
    Caption = 'Close'
    ModalResult = 1
    TabOrder = 3
    OnClick = CloseBtnClick
  end
  object UpdateBtn: TButton
    Left = 8
    Top = 40
    Width = 121
    Height = 25
    Caption = 'Update database'
    TabOrder = 1
    OnClick = UpdateBtnClick
  end
  object AddBtn: TButton
    Left = 8
    Top = 8
    Width = 121
    Height = 25
    Caption = 'Add files'
    TabOrder = 0
    OnClick = AddBtnClick
  end
  object AddBtns: TPanel
    Left = 136
    Top = 236
    Width = 265
    Height = 28
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 8
    Visible = False
    object CancelBtn: TButton
      Left = 16
      Top = 4
      Width = 75
      Height = 19
      Caption = 'Close'
      TabOrder = 0
      OnClick = CancelBtnClick
    end
    object BackBtn: TButton
      Left = 104
      Top = 4
      Width = 75
      Height = 19
      Caption = 'Back'
      Enabled = False
      TabOrder = 1
      OnClick = BackBtnClick
    end
    object NextBtn: TButton
      Left = 182
      Top = 4
      Width = 75
      Height = 19
      Caption = 'Next'
      Enabled = False
      TabOrder = 2
      OnClick = NextBtnClick
    end
  end
  object OpenFile: TOpenDialog
    Filter =
      'All supported Audio|*.MP3;*.OGG;*.WAV|MPeg Layer 3 (*.mp3)|*.MP3' +
      '|OGG Vorbis (*.ogg)|*.OGG|WAV|*.WAV'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 40
    Top = 144
  end
  object Keywords: TPopupMenu
    Left = 72
    Top = 144
    object Artist: TMenuItem
      Caption = 'Artist'
      OnClick = KeywordClick
    end
    object Title: TMenuItem
      Caption = 'Title'
      OnClick = KeywordClick
    end
    object Album: TMenuItem
      Caption = 'Album'
      OnClick = KeywordClick
    end
    object Genre: TMenuItem
      Caption = 'Genre'
      OnClick = KeywordClick
    end
    object Tracknr: TMenuItem
      Caption = 'Tracknr'
      OnClick = KeywordClick
    end
    object Ignore: TMenuItem
      Caption = 'Ignore'
      OnClick = KeywordClick
    end
  end
  object CheckMP3: TFMODJingle
    MaxChannels = 1
    OutputType = NOSOUND
    OnNotifyOpened = CheckMP3NotifyOpened
    Left = 8
    Top = 112
  end
  object FindMP3: TEMFindFile
    Mask = '*.mp3;*.wav;*.ogg'
    OnFinnished = FindMP3OnFinnished
    OnNotifyPath = FindMP3NotifyPath
    OnNotifyFile = FindMP3NotifyFile
    Left = 40
    Top = 112
  end
  object ID3v2: TEMID3Tag
    Left = 72
    Top = 112
  end
end