PC World Plus! (NZ) 2001 September/PCW0901.iso/CDBurning/HyCD/hycdplyr.exe/_SETUP.1/HyCDPlayer.exe/0/RCDATA/TDETAILFORM/TDETAILFORM.txt

Text File | 2000-07-19 | 5KB | 250 lines

object DetailForm: TDetailForm
  Left = 168
  Top = 122
  ActiveControl = TempoCombo
  BorderIcons = [biSystemMenu, biMinimize]
  AutoScroll = False
  Caption = 'File and ID3 Tag informations'
  ClientHeight = 308
  ClientWidth = 322
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Preference: TGroupBox
    Left = 8
    Top = 152
    Width = 305
    Height = 121
    Caption = 'Preference:'
    TabOrder = 0
    object Label5: TLabel
      Left = 16
      Top = 16
      Width = 33
      Height = 13
      Caption = 'Tempo'
    end
    object Label6: TLabel
      Left = 16
      Top = 40
      Width = 27
      Height = 13
      Caption = 'Mood'
    end
    object Label7: TLabel
      Left = 16
      Top = 64
      Width = 41
      Height = 13
      Caption = 'Situation'
    end
    object Label8: TLabel
      Left = 16
      Top = 88
      Width = 52
      Height = 13
      Caption = 'Preference'
    end
    object TempoCombo: TComboBox
      Left = 72
      Top = 16
      Width = 225
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'Very Fast'
        'Fast'
        'Moderate'
        'Slow'
        'Very Slow'
        'None')
      TabOrder = 0
      OnChange = TempoComboChange
    end
    object MoodCombo: TComboBox
      Left = 72
      Top = 40
      Width = 225
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'Wild'
        'Upbeat'
        'Morose'
        'Mellow'
        'Tranquil'
        'Comatose')
      TabOrder = 1
      OnChange = MoodComboChange
    end
    object SituationCombo: TComboBox
      Left = 72
      Top = 64
      Width = 225
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'Dance'
        'Party'
        'Romantic'
        'Dinner'
        'Background'
        'Seasonal'
        'Rave'
        'Drunken Brawl')
      TabOrder = 2
      OnChange = SituationComboChange
    end
    object PreferenceCombo: TComboBox
      Left = 72
      Top = 88
      Width = 225
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'Excellent'
        'Very Good'
        'Good'
        'Fair'
        'Poor'
        'Bad Taste')
      TabOrder = 3
      OnChange = PreferenceComboChange
    end
  end
  object ArtistGroup: TGroupBox
    Left = 8
    Top = 8
    Width = 305
    Height = 137
    Caption = 'Artist Information:'
    Color = clBtnFace
    ParentColor = False
    TabOrder = 1
    object ArtistName: TLabel
      Left = 56
      Top = 24
      Width = 3
      Height = 13
    end
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 31
      Height = 13
      Caption = 'Name:'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 28
      Height = 13
      Caption = 'Email:'
    end
    object Label3: TLabel
      Left = 8
      Top = 72
      Width = 25
      Height = 13
      Caption = 'URL:'
    end
    object Label4: TLabel
      Left = 8
      Top = 96
      Width = 64
      Height = 13
      Caption = 'Buy CD URL:'
    end
    object ArtistBuyURL: TLabel
      Left = 88
      Top = 96
      Width = 3
      Height = 16
      Cursor = crHandPoint
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS UI Gothic'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = ArtistBuyURLClick
    end
    object ArtistURL: TLabel
      Left = 56
      Top = 72
      Width = 3
      Height = 16
      Cursor = crHandPoint
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS UI Gothic'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = ArtistURLClick
    end
    object ArtistEmail: TLabel
      Left = 56
      Top = 48
      Width = 3
      Height = 16
      Cursor = crHandPoint
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS UI Gothic'
      Font.Style = [fsUnderline]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = ArtistEmailClick
    end
    object AutoGo: TCheckBox
      Left = 8
      Top = 112
      Width = 289
      Height = 17
      Caption = 'Automatically go to the address when the song plays.'
      TabOrder = 0
    end
  end
  object Save: TButton
    Left = 156
    Top = 280
    Width = 75
    Height = 25
    Caption = '&Save'
    TabOrder = 2
    OnClick = SaveClick
  end
  object CloseButton: TButton
    Left = 238
    Top = 280
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 3
    OnClick = CloseButtonClick
  end
end