Chip Hitware 7/Chip_Hitware_Vol_07.iso/chiphit7/multmedi/vidfun/vidfun.exe/W95FUN20.DLL/RCDATA/TVIDEOFORM/TVIDEOFORM.txt

Text File | 1996-10-30 | 6.5 KB | 278 lines

object VideoForm: TVideoForm
  Left = 310
  Top = 112
  Width = 216
  Height = 270
  Caption = 'Video'
  Color = clBlack
  Font.Color = clBlack
  Font.Height = -18
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  FormStyle = fsStayOnTop
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  PopupMenu = MenuOptions
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClick = FormClick
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  PixelsPerInch = 120
  TextHeight = 21
  object Panel4: TPanel
    Left = 0
    Top = 190
    Width = 208
    Height = 31
    Align = alBottom
    TabOrder = 0
    object MediaPanel: TPanel
      Left = 1
      Top = 1
      Width = 73
      Height = 29
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object MediaPlayer1: TMediaPlayer
        Left = -1
        Top = -1
        Width = 325
        Height = 29
        AutoEnable = False
        Visible = False
        TabOrder = 0
        OnClick = MediaPlayer1Click
        OnNotify = MediaPlayer1Notify
      end
    end
    object Panel2: TPanel
      Left = 74
      Top = 1
      Width = 101
      Height = 29
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object XScrollbar1: TXScrollbar
        Left = 1
        Top = 4
        Width = 94
        Height = 18
        TabOrder = 0
        OnChange = XScrollbar1Change
        OnScroll = XScrollbar1Scroll
        OnMouseDown = XScrollbar1MouseDown
      end
    end
    object MenuPanel: TPanel
      Left = 175
      Top = 1
      Width = 32
      Height = 29
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 2
      object MenuButton: TSpeedButton
        Left = 1
        Top = 1
        Width = 31
        Height = 27
        AllowAllUp = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000000000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
          8888870000000000888887FFFFFFFFF0888887F4444444F0888887FFFFFFFFF0
          8888874444444440888887FFFFFFFFF0888887F4444FFFF0888887FFFFFFFFF0
          888887F44444FFF0888887FFFFFFFFF0888877777777777700087F44444FFFFF
          FF787F4FFF4F444F44777F44444FFFFFFFF77777777777777777}
        Layout = blGlyphTop
        ParentShowHint = False
        ShowHint = False
        Spacing = 0
        Visible = False
        OnClick = MenuButtonClick
      end
    end
  end
  object VideoWinBack: TPanel
    Left = 0
    Top = 0
    Width = 208
    Height = 190
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Image1: TImage
      Left = 7
      Top = 123
      Width = 14
      Height = 17
      Picture.Data = {<image001.bmp>}
      Visible = False
    end
    object VideoWin: TPanel
      Left = 11
      Top = 4
      Width = 177
      Height = 133
      BevelOuter = bvNone
      Color = clBlack
      TabOrder = 0
      OnClick = VideoWinClick
    end
  end
  object Status: TPanel
    Left = 0
    Top = 221
    Width = 208
    Height = 22
    Align = alBottom
    BevelOuter = bvLowered
    BevelWidth = 2
    Caption = 'Ready'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 162
    Top = 113
  end
  object Intercept1: TIntercept
    Left = 6
    Top = 8
  end
  object MenuOptions: TPopupMenu
    Left = 164
    Top = 166
    object ZoomWindow1: TMenuItem
      Caption = 'Zoom Window'
      ShortCut = 0
      object mnuZoom100: TMenuItem
        Caption = '100%  Ctrl+1'
        ShortCut = 0
        OnClick = mnuZoom100Click
      end
      object mnuZoom200: TMenuItem
        Caption = '200%  Ctrl+2'
        ShortCut = 0
        OnClick = mnuZoom200Click
      end
      object mnuZoom300: TMenuItem
        Caption = '300%  Ctrl+3'
        ShortCut = 0
        OnClick = mnuZoom300Click
      end
      object mnuZoom400: TMenuItem
        Caption = '400%  Ctrl+4'
        ShortCut = 0
        OnClick = mnuZoom400Click
      end
    end
    object mnuOptimize: TMenuItem
      Caption = '&Optimize Window'
      ShortCut = 16463
      OnClick = mnuOptimizeClick
    end
    object DisplayStatus: TMenuItem
      Caption = 'Video Status Bar'
      Checked = True
      ShortCut = 0
      OnClick = DisplayStatusClick
    end
    object N3: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object StatusUpdate1: TMenuItem
      Caption = 'Status &Update'
      ShortCut = 0
      object mnuUpdate1000: TMenuItem
        Caption = '1:1 sec.'
        ShortCut = 0
        OnClick = mnuUpdate1000Click
      end
      object mnuUpdate500: TMenuItem
        Caption = '2:1 sec.'
        Checked = True
        ShortCut = 0
        OnClick = mnuUpdate500Click
      end
      object mnuUpdate333: TMenuItem
        Caption = '3:1 sec.'
        ShortCut = 0
        OnClick = mnuUpdate333Click
      end
      object mnuUpdate250: TMenuItem
        Caption = '4:1 sec.'
        ShortCut = 0
        OnClick = mnuUpdate250Click
      end
      object mnuUpdate200: TMenuItem
        Caption = '5:1 sec.'
        ShortCut = 0
        OnClick = mnuUpdate200Click
      end
      object mnuUpdate167: TMenuItem
        Caption = '6:1 sec.'
        ShortCut = 0
        OnClick = mnuUpdate167Click
      end
    end
    object mnuConfigure: TMenuItem
      Caption = 'Configure Video'
      ShortCut = 0
      OnClick = mnuConfigureClick
    end
    object N2: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object VideoOptions1: TMenuItem
      Caption = 'Playbac&k Options'
      ShortCut = 0
      OnClick = VideoOptions1Click
    end
    object mnuQuietPlayback: TMenuItem
      Caption = '&Quiet Playback'
      ShortCut = 16465
      OnClick = mnuQuietPlaybackClick
    end
    object mnuPlaybackLoop: TMenuItem
      Caption = ' &Loop Playback'
      ShortCut = 0
      OnClick = mnuPlaybackLoopClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object mnuPlay: TMenuItem
      Caption = '&Play'
      ShortCut = 8237
      OnClick = mnuPlayClick
    end
    object mnuPause: TMenuItem
      Caption = 'Pau&se'
      ShortCut = 8238
      OnClick = mnuPauseClick
    end
    object mnuExit: TMenuItem
      Caption = 'Close and E&xit '
      ShortCut = 0
      OnClick = mnuExitClick
    end
  end
end