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