Hráč 1998 July & August/Hrac_23_1998-07-08_cd3.bin/mp3utils/singedit/SingedIT.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-04-27 | 13KB | 582 lines

object Form1: TForm1
  Left = 237
  Top = 200
  Width = 600
  Height = 400
  ActiveControl = ListBoxText
  Caption = 'SingedIT'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 152
    Height = 373
    Align = alLeft
    TabFont.Charset = DEFAULT_CHARSET
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 1
    TabStop = False
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Actions'
      object Label11: TLabel
        Left = 0
        Top = 52
        Width = 38
        Height = 13
        Caption = '.lrc files:'
      end
      object Label12: TLabel
        Left = 0
        Top = 98
        Width = 47
        Height = 13
        Caption = '.mp3 files:'
      end
      object Label13: TLabel
        Left = 0
        Top = 193
        Width = 28
        Height = 13
        Caption = 'Lines:'
      end
      object Label14: TLabel
        Left = 0
        Top = 301
        Width = 49
        Height = 13
        Caption = 'Time-tags:'
      end
      object Label16: TLabel
        Left = 0
        Top = 7
        Width = 50
        Height = 13
        Caption = 'Edit mode:'
      end
      object Label17: TLabel
        Left = 72
        Top = 142
        Width = 61
        Height = 23
        Alignment = taCenter
        Caption = '[00:00]'
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'Arial Black'
        Font.Style = []
        ParentColor = False
        ParentFont = False
      end
      object ButtonLoad: TButton
        Left = 30
        Top = 68
        Width = 33
        Height = 25
        Hint = 'Load a lyric'
        Caption = 'Load'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        TabStop = False
        OnClick = ButtonLoadClick
      end
      object ButtonSave: TButton
        Left = 63
        Top = 68
        Width = 32
        Height = 25
        Hint = 'Save the current lyric'
        Caption = 'Save'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = ButtonSaveClick
      end
      object ButtonSaveAs: TButton
        Left = 95
        Top = 68
        Width = 49
        Height = 25
        Hint = 'Save the current lyric as ...'
        Caption = 'Save As'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = False
        OnClick = ButtonSaveAsClick
      end
      object ButtonNew: TButton
        Left = 0
        Top = 68
        Width = 30
        Height = 25
        Hint = 'Create a new lyric'
        Caption = 'New'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        TabStop = False
        OnClick = ButtonNewClick
      end
      object ButtonSort: TButton
        Left = 0
        Top = 261
        Width = 74
        Height = 25
        Hint = 'Sort all lines by time'
        Caption = 'Sort'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        TabStop = False
        OnClick = ButtonSortClick
      end
      object ButtonLoadMp3: TButton
        Left = 0
        Top = 115
        Width = 62
        Height = 25
        Hint = 'Load an MP3 file'
        Caption = 'Load MP3'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        TabStop = False
        OnClick = ButtonLoadMp3Click
      end
      object ButtonPlay: TButton
        Left = 62
        Top = 115
        Width = 40
        Height = 25
        Hint = 'Play the MP3 file'
        Caption = 'Play'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        TabStop = False
        OnClick = ButtonPlayClick
      end
      object ButtonStop: TButton
        Left = 102
        Top = 115
        Width = 42
        Height = 25
        Hint = 'Stop playing the MP3 file'
        Caption = 'Stop'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        TabStop = False
        OnClick = ButtonStopClick
      end
      object ButtonDeleteNonTimeTag: TButton
        Left = 0
        Top = 236
        Width = 144
        Height = 25
        Hint = 'Delete all lines without time-tag'
        Caption = 'Delete lines without tags'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        TabStop = False
        OnClick = ButtonDeleteNonTimeTagClick
      end
      object ButtonFont: TButton
        Left = 74
        Top = 261
        Width = 70
        Height = 25
        Hint = 'Change the font used'
        Caption = 'Font'
        TabOrder = 9
        TabStop = False
        OnClick = ButtonFontClick
      end
      object ButtonIns: TButton
        Left = 0
        Top = 319
        Width = 74
        Height = 25
        Hint = 'Insert a time-tag'
        Caption = 'Ins key'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        TabStop = False
        OnClick = ButtonInsClick
      end
      object ButtonDel: TButton
        Left = 74
        Top = 319
        Width = 70
        Height = 25
        Hint = 'Delete a time-tag'
        Caption = 'Del key'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 11
        TabStop = False
        OnClick = ButtonDelClick
      end
      object ButtonEditMode: TButton
        Left = 0
        Top = 23
        Width = 74
        Height = 25
        Caption = 'Notepad'
        TabOrder = 12
        TabStop = False
        OnClick = ButtonEditModeClick
      end
      object ButtonTagMode: TButton
        Left = 74
        Top = 23
        Width = 70
        Height = 25
        Caption = 'Time-Tag'
        Enabled = False
        TabOrder = 13
        TabStop = False
        OnClick = ButtonTagModeClick
      end
      object ScrollBar1: TScrollBar
        Left = 0
        Top = 173
        Width = 144
        Height = 16
        Enabled = False
        LargeChange = 10
        TabOrder = 14
        OnScroll = ScrollBar1Scroll
      end
      object ButtonPause: TButton
        Left = 0
        Top = 140
        Width = 62
        Height = 25
        Caption = 'Pause'
        Enabled = False
        TabOrder = 15
        OnClick = ButtonPauseClick
      end
      object ButtonDeleteTimeTag: TButton
        Left = 0
        Top = 211
        Width = 144
        Height = 25
        Caption = 'Delete all time tags'
        TabOrder = 16
        OnClick = ButtonDeleteTimeTagClick
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'Properties'
      object Label1: TLabel
        Left = 0
        Top = 113
        Width = 48
        Height = 13
        Caption = 'Language'
      end
      object Label2: TLabel
        Left = 0
        Top = 161
        Width = 31
        Height = 13
        Caption = 'Author'
      end
      object Label9: TLabel
        Left = 0
        Top = 16
        Width = 23
        Height = 13
        Caption = 'Artist'
      end
      object Label10: TLabel
        Left = 0
        Top = 64
        Width = 20
        Height = 13
        Caption = 'Title'
      end
      object ComboLanguage: TComboBox
        Left = 0
        Top = 129
        Width = 129
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        Items.Strings = (
          'Deutsch'
          'English'
          'French'
          'Hebrew'
          'Hungarian'
          'Norwegian'
          'Spanish'
          'Swedish')
        Sorted = True
        TabOrder = 2
        OnChange = ComboLanguageChange
      end
      object EditAuthor: TEdit
        Left = 0
        Top = 177
        Width = 129
        Height = 21
        TabOrder = 3
        Text = 'You !'
        OnChange = EditAuthorChange
      end
      object EditTitle: TEdit
        Left = 0
        Top = 80
        Width = 129
        Height = 21
        TabOrder = 1
        Text = 'Title of the song here'
        OnChange = EditTitleChange
      end
      object EditArtist: TEdit
        Left = 0
        Top = 32
        Width = 129
        Height = 21
        TabOrder = 0
        Text = 'Artist name here'
        OnChange = EditArtistChange
      end
      object CheckBoxArtist: TCheckBox
        Left = 131
        Top = 33
        Width = 97
        Height = 17
        State = cbChecked
        TabOrder = 4
        OnClick = CheckBoxArtistClick
      end
      object CheckBoxTitle: TCheckBox
        Left = 131
        Top = 81
        Width = 97
        Height = 17
        Caption = 'CheckBoxTitle'
        State = cbChecked
        TabOrder = 5
        OnClick = CheckBoxTitleClick
      end
      object CheckBoxLanguage: TCheckBox
        Left = 131
        Top = 130
        Width = 97
        Height = 17
        Caption = 'CheckBoxLanguage'
        State = cbChecked
        TabOrder = 6
        OnClick = CheckBoxLanguageClick
      end
      object CheckBoxAuthor: TCheckBox
        Left = 131
        Top = 178
        Width = 97
        Height = 17
        Caption = 'CheckBoxAuthor'
        State = cbChecked
        TabOrder = 7
        OnClick = CheckBoxAuthorClick
      end
    end
    object TTabPage
      Left = 4
      Top = 24
      Caption = 'About'
      object Image1: TImage
        Left = 22
        Top = 24
        Width = 100
        Height = 100
        AutoSize = True
        Picture.Data = {<image001.bmp>}
      end
      object Label3: TLabel
        Left = 36
        Top = 136
        Width = 73
        Height = 20
        Caption = 'SingedIT'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 6
        Top = 181
        Width = 132
        Height = 13
        Caption = 'Copyright 1998 IT! Software'
      end
      object Label5: TLabel
        Left = 12
        Top = 4
        Width = 120
        Height = 13
        Cursor = crHandPoint
        Caption = 'www.altern.org/analogue'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clPurple
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = Label5Click
      end
      object Label6: TLabel
        Left = 67
        Top = 197
        Width = 11
        Height = 13
        Caption = 'by'
      end
      object Label7: TLabel
        Left = 37
        Top = 213
        Width = 70
        Height = 16
        Caption = 'aNa|0Gue'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 55
        Top = 158
        Width = 33
        Height = 13
        Caption = 'v0.2g'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object ButtonCredits: TButton
        Left = 32
        Top = 248
        Width = 75
        Height = 25
        Caption = 'Credits'
        TabOrder = 0
        TabStop = False
        OnClick = ButtonCreditsClick
      end
      object ButtonConfig: TButton
        Left = 32
        Top = 304
        Width = 75
        Height = 25
        Caption = 'Configure'
        TabOrder = 1
        OnClick = ButtonConfigClick
      end
    end
  end
  object ListBoxText: TListBox
    Left = 152
    Top = 0
    Width = 440
    Height = 373
    Align = alClient
    ItemHeight = 13
    TabOrder = 2
    OnKeyDown = ListBoxTextKeyDown
  end
  object MemoText: TMemo
    Left = 152
    Top = 0
    Width = 440
    Height = 373
    Align = alClient
    ScrollBars = ssBoth
    TabOrder = 0
    Visible = False
    WordWrap = False
    OnChange = MemoTextChange
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'lrc'
    Filter = 'Lyrics (*.LRC)|*.LRC|Text Files (*.TXT)|*.TXT|All Files|*.*'
    Left = 464
    Top = 320
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'lrc'
    Filter = 'Lyrics (*.LRC)|*.LRC|Text Files (*.TXT)|*.TXT|All Files|*.*'
    Left = 536
    Top = 320
  end
  object MPEGPlayer1: TMPEGPlayer
    Seekable = True
    FromStream = False
    PlayerPriority = Normal
    UseTimer = True
    TimerFreq = 100
    AutoPlay = False
    OutputDevice = wavemapper
    WaveDeviceNum = 0
    StartPos = 0
    EndPos = 0
    OnPosUpdate = MPEGPlayer1PosUpdate
    OnPlayEnd = MPEGPlayer1PlayEnd
    Left = 320
    Top = 320
  end
  object OpenDialog2: TOpenDialog
    DefaultExt = 'mp3'
    Filter = 'MP3 File|*.MP3|MP2 File|*.MP2|All Files|*.*'
    Left = 392
    Top = 320
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 248
    Top = 320
  end
end