object FormVideos: TFormVideos
  Left = 184
  Top = 80
  AutoScroll = False
  BorderIcons = []
  Caption = 'Videos'
  ClientHeight = 600
  ClientWidth = 800
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold, fsItalic]
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 20
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 581
    Align = alClient
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 4
    object DBGridVideos: TDBGrid
      Left = 608
      Top = 8
      Width = 169
      Height = 193
      Cursor = crHandPoint
      Hint = 'Pick a video'
      Color = 8421440
      DataSource = DataSourceVideos
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsItalic]
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -17
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = [fsBold, fsItalic]
      Visible = False
      OnCellClick = DBGridVideosCellClick
    end
    object MediaPlayer: TDefaultMediaPlayer
      Left = 48
      Top = 64
      Width = 253
      Height = 30
      Visible = False
      TabOrder = 1
      Tarkennin = '.avi'
    end
  end
  object ButtonPlay: TButton
    Left = 8
    Top = 8
    Width = 81
    Height = 30
    Hint = 'Starts to play video'
    Caption = '&Play'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnClick = ButtonPlayClick
    OnMouseMove = ButtonPlayMouseMove
  end
  object ButtonRewind: TButton
    Left = 168
    Top = 8
    Width = 81
    Height = 30
    Hint = 'Rewinds video'
    Caption = '&Rewind'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = ButtonRewindClick
  end
  object ButtonExit: TButton
    Left = 280
    Top = 8
    Width = 81
    Height = 30
    Hint = 'If you click this button you will lose an outstanding video'
    Caption = 'E&xit'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = ButtonExitClick
  end
  object StatusBarvideo: TStatusBar
    Left = 0
    Top = 581
    Width = 800
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object ButtonPick: TButton
    Left = 600
    Top = 216
    Width = 193
    Height = 73
    Caption = 'Pick a &video'
    TabOrder = 5
    OnClick = ButtonPickClick
  end
  object QueryVideos: TQuery
    Active = True
    RequestLive = True
    SQL.Strings = (
      'select * from videos'
      ' '
      ' '
      ' '
      ' '
      ' '
      ' ')
    Left = 376
    Top = 40
    object QueryVideosVideo_names: TStringField
      FieldName = 'Video_names'
      Size = 35
    end
    object QueryVideosAvi_videos: TStringField
      FieldName = 'Avi_videos'
      Size = 35
    end
  end
  object DataSourceVideos: TDataSource
    DataSet = QueryVideos
    Left = 376
    Top = 72
  end
end