Chip 2003 January/soundCD_1.03.iso/formats/AAC/PsyTELDrop.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 2002-03-06 | 9KB | 339 lines

object frmMain: TfrmMain
  Left = 195
  Top = 108
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = 'PsyTELDrop'
  ClientHeight = 119
  ClientWidth = 119
  Color = clWhite
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = pmMenu
  Scaled = False
  Visible = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object pnlMain: TPanel
    Left = 0
    Top = 0
    Width = 119
    Height = 119
    Hint = 'PsyTELDrop'
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWhite
    Ctl3D = False
    ParentCtl3D = False
    ParentShowHint = False
    PopupMenu = pmMenu
    ShowHint = True
    TabOrder = 0
    OnDblClick = pnlMainDblClick
    OnMouseDown = pnlMainMouseDown
    OnMouseMove = pnlMainMouseMove
    object lbl2: TLabel
      Left = 1
      Top = 89
      Width = 117
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'PsyTEL'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      Transparent = True
      OnDblClick = pnlMainDblClick
      OnMouseDown = pnlMainMouseDown
      OnMouseMove = pnlMainMouseMove
    end
    object img1: TImage
      Left = 35
      Top = 33
      Width = 48
      Height = 48
      Center = True
      Picture.Data = {<image000.ico>}
      Transparent = True
      OnDblClick = pnlMainDblClick
      OnMouseDown = pnlMainMouseDown
      OnMouseMove = pnlMainMouseMove
    end
    object lbl1: TLabel
      Left = 1
      Top = 9
      Width = 117
      Height = 16
      Alignment = taCenter
      AutoSize = False
      Caption = 'Drop Files Here'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = True
      WordWrap = True
      OnDblClick = pnlMainDblClick
      OnMouseDown = pnlMainMouseDown
      OnMouseMove = pnlMainMouseMove
    end
  end
  object fdFiles: TFileDrop
    EnableDrop = True
    DropControl = Owner
    OnDrop = fdFilesDrop
    Left = 48
    Top = 88
  end
  object pmMenu: TPopupMenu
    Top = 88
    object pmCancel: TMenuItem
      Caption = 'Cancel'
      Visible = False
      OnClick = pmCancelClick
    end
    object pmQuality: TMenuItem
      Caption = 'Quality'
      object pmVBR: TMenuItem
        Caption = 'VBR'
        object pmTape: TMenuItem
          Caption = 'Tape'
          RadioItem = True
          OnClick = pmTapeClick
        end
        object pmRadio: TMenuItem
          Caption = 'Radio'
          RadioItem = True
          OnClick = pmRadioClick
        end
        object pmInternet: TMenuItem
          Caption = 'Internet'
          RadioItem = True
          OnClick = pmInternetClick
        end
        object pmStreaming: TMenuItem
          Caption = 'Streaming'
          RadioItem = True
          OnClick = pmStreamingClick
        end
        object pmNormal: TMenuItem
          Caption = 'Normal'
          RadioItem = True
          OnClick = pmNormalClick
        end
        object pmExtreme: TMenuItem
          Caption = 'Extreme'
          RadioItem = True
          OnClick = pmExtremeClick
        end
        object pmArchive: TMenuItem
          Caption = 'Archive'
          RadioItem = True
          OnClick = pmArchiveClick
        end
        object pmUltra: TMenuItem
          Caption = 'Ultra'
          RadioItem = True
          OnClick = pmUltraClick
        end
      end
      object pmCBR: TMenuItem
        Caption = 'CBR'
        object pmRegular: TMenuItem
          Caption = 'Normal'
          RadioItem = True
          object pm96: TMenuItem
            Caption = '96'
            RadioItem = True
            OnClick = pm96Click
          end
          object pm128: TMenuItem
            Caption = '128'
            RadioItem = True
            OnClick = pm128Click
          end
          object pm160: TMenuItem
            Caption = '160'
            RadioItem = True
            OnClick = pm160Click
          end
          object pm192: TMenuItem
            Caption = '192'
            RadioItem = True
            OnClick = pm192Click
          end
          object pm256: TMenuItem
            Caption = '256'
            RadioItem = True
            OnClick = pm256Click
          end
          object pm320: TMenuItem
            Caption = '320'
            RadioItem = True
            OnClick = pm320Click
          end
          object pm384: TMenuItem
            Caption = '384'
            RadioItem = True
            OnClick = pm384Click
          end
          object pm448: TMenuItem
            Caption = '448'
            RadioItem = True
            OnClick = pm448Click
          end
          object pm512: TMenuItem
            Caption = '512'
            RadioItem = True
            OnClick = pm512Click
          end
        end
        object pmProduction: TMenuItem
          Caption = 'Production'
          RadioItem = True
          object pm96Pro: TMenuItem
            Caption = '96'
            RadioItem = True
            OnClick = pm96ProClick
          end
          object pm128Pro: TMenuItem
            Caption = '128'
            RadioItem = True
            OnClick = pm128ProClick
          end
          object pm160Pro: TMenuItem
            Caption = '160'
            RadioItem = True
            OnClick = pm160ProClick
          end
          object pm192Pro: TMenuItem
            Caption = '192'
            RadioItem = True
            OnClick = pm192ProClick
          end
          object pm256Pro: TMenuItem
            Caption = '256'
            RadioItem = True
            OnClick = pm256ProClick
          end
          object pm320Pro: TMenuItem
            Caption = '320'
            RadioItem = True
            OnClick = pm320ProClick
          end
          object pm384Pro: TMenuItem
            Caption = '384'
            RadioItem = True
            OnClick = pm384ProClick
          end
          object pm448Pro: TMenuItem
            Caption = '448'
            RadioItem = True
            OnClick = pm448ProClick
          end
          object pm512Pro: TMenuItem
            Caption = '512'
            RadioItem = True
            OnClick = pm512ProClick
          end
        end
      end
      object pmCustom: TMenuItem
        Caption = 'Custom...'
        RadioItem = True
        OnClick = pmCustomClick
      end
    end
    object pmOptions: TMenuItem
      Caption = 'Options'
      object pmMode: TMenuItem
        Caption = 'Mode'
        object pmStayOnTop: TMenuItem
          Caption = 'Stay On Top'
          OnClick = pmStayOnTopClick
        end
        object pmMinimizeDOS: TMenuItem
          Caption = 'Minimize DOS Window'
          OnClick = pmMinimizeDOSClick
        end
        object pmDeleteSource: TMenuItem
          Caption = 'Delete Source Files'
          OnClick = pmDeleteSourceClick
        end
      end
      object pmOutput: TMenuItem
        Caption = 'Output'
        object pmCustomDir: TMenuItem
          Caption = 'Set Output Directory...'
          OnClick = pmCustomDirClick
        end
        object pmSourceDir: TMenuItem
          Caption = 'Use Source Directory'
          OnClick = pmSourceDirClick
        end
      end
      object pmImage: TMenuItem
        Caption = 'Image'
        object pmSelectImage: TMenuItem
          Caption = 'Select New Image...'
          OnClick = pmSelectImageClick
        end
        object pmDefaultImage: TMenuItem
          Caption = 'Use Default Image'
          OnClick = pmDefaultImageClick
        end
      end
      object pmPrograms: TMenuItem
        Caption = 'Programs'
        object pmSetEncoder: TMenuItem
          Caption = 'Set Encoder...'
          OnClick = pmSetEncoderClick
        end
        object pmSetDecoder: TMenuItem
          Caption = 'Set Decoder...'
          OnClick = pmSetDecoderClick
        end
      end
    end
    object pmAbout: TMenuItem
      Caption = 'About'
      OnClick = pmAboutClick
    end
    object pmExit: TMenuItem
      Caption = 'Exit'
      OnClick = pmExitClick
    end
  end
  object odPrograms: TOpenDialog
    Left = 88
    Top = 56
  end
  object odImage: TOpenDialog
    Filter =
      'Ass Supported (*.bmp, *.ico, *.emf, *.wmf)|*.bmp; *.ico; *.emf; ' +
      '*.wmf|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafil' +
      'es (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
    Top = 56
  end
  object tmr1: TTimer
    Enabled = False
    Interval = 400
    OnTimer = tmr1Timer
    Left = 88
    Top = 88
  end
end