Slippery When Wet/SLIPPERY_WET.bin/thezone.exe/0/RCDATA/TFORMMENU/TFORMMENU.txt

Text File | 1999-11-02 | 5.1 KB | 265 lines

object FormMenu: TFormMenu
  Left = 128
  Top = 110
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'FormMenu'
  ClientHeight = 453
  ClientWidth = 632
  Color = clWhite
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseMove = FormMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ImageRight: TImage
    Left = 512
    Top = 0
    Width = 120
    Height = 453
    Align = alRight
    Stretch = True
  end
  object ImageLeft: TImage
    Left = 0
    Top = 0
    Width = 120
    Height = 453
    Align = alLeft
    Stretch = True
    Visible = False
  end
  object CF_Ticker1: TCF_Ticker
    Left = 158
    Top = 74
    Width = 150
    Height = 150
    Speed = 30
    Step = 15
    BgColor = clWhite
    ScrollType = stBottomToTop
  end
  object CF_Ticker2: TCF_Ticker
    Left = 330
    Top = 73
    Width = 150
    Height = 150
    Speed = 30
    Step = 15
    BgColor = clWhite
  end
  object CF_Ticker3: TCF_Ticker
    Left = 159
    Top = 247
    Width = 150
    Height = 150
    Speed = 30
    Step = 15
    BgColor = clWhite
    ScrollType = stRightToLeft
  end
  object CF_Ticker4: TCF_Ticker
    Left = 330
    Top = 247
    Width = 150
    Height = 150
    Speed = 30
    Step = 10
    BgColor = clWhite
    ScrollType = stTopToBottom
  end
  object CF_Ticker5: TCF_Ticker
    Left = 133
    Top = 15
    Width = 370
    Height = 439
    Speed = 10
    BgColor = clWhite
    ScrollType = stTopToBottom
  end
  object ImageTick1: TImage
    Left = 158
    Top = 74
    Width = 150
    Height = 150
    Visible = False
    OnClick = ImageTick1Click
    OnMouseMove = ImageTick1MouseMove
  end
  object ImageTick2: TImage
    Left = 330
    Top = 73
    Width = 150
    Height = 150
    Visible = False
    OnClick = ImageTick2Click
    OnMouseMove = ImageTick2MouseMove
  end
  object ImageTick4: TImage
    Left = 330
    Top = 247
    Width = 150
    Height = 150
    Visible = False
    OnClick = ImageTick4Click
    OnMouseMove = ImageTick4MouseMove
  end
  object ImageTick3: TImage
    Left = 159
    Top = 247
    Width = 150
    Height = 150
    Visible = False
    OnClick = ImageTick3Click
    OnMouseMove = ImageTick3MouseMove
  end
  object Lbl_pictures: TLabel
    Left = 39
    Top = 293
    Width = 54
    Height = 31
    Hint = 'Selects fotos'
    Color = clYellow
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = Lbl_picturesClick
  end
  object Lbl_movies: TLabel
    Left = 41
    Top = 331
    Width = 53
    Height = 31
    Hint = 'Selects movies'
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = Lbl_moviesClick
  end
  object Lbl_music: TLabel
    Left = 41
    Top = 371
    Width = 53
    Height = 31
    Hint = 'Selects music tunes, if available'
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = Lbl_musicClick
  end
  object Lbl_about: TLabel
    Left = 40
    Top = 411
    Width = 56
    Height = 30
    Hint = 'CDrom info'
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    OnClick = Lbl_aboutClick
  end
  object LblExit: TLabel
    Left = 121
    Top = 0
    Width = 53
    Height = 16
    Cursor = crHelp
    Caption = '�Exit'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    OnClick = LblExitClick
  end
  object LblTune1: TLabel
    Left = 385
    Top = 0
    Width = 34
    Height = 14
    Caption = 'Tune1'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = LblTune1Click
  end
  object LblTune2: TLabel
    Left = 424
    Top = 0
    Width = 34
    Height = 14
    Caption = 'Tune2'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = LblTune2Click
  end
  object LblTune3: TLabel
    Left = 463
    Top = 0
    Width = 34
    Height = 14
    Caption = 'Tune3'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = LblTune3Click
  end
  object LblMusic: TLabel
    Left = 182
    Top = 0
    Width = 74
    Height = 16
    Cursor = crHelp
    Caption = '�Music: On '
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Visible = False
    OnClick = LblMusicClick
  end
  object MediaPlayer1: TMediaPlayer
    Left = 532
    Top = 10
    Width = 57
    Height = 30
    VisibleButtons = [btPlay, btStop]
    DeviceType = dtWaveAudio
    Visible = False
    TabOrder = 0
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Left = 528
    Top = 63
  end
  object Timer2: TTimer
    Enabled = False
    OnTimer = Timer2Timer
    Left = 531
    Top = 100
  end
end