unit1.dfm

可旋转90度浏览的视频浏览源码

object Form1: TForm1
  Left = 318
  Top = 150
  Width = 455
  Height = 329
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 358
    Height = 302
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object FinderView: TImage
      Left = 32
      Top = 40
      Width = 201
      Height = 161
      DragMode = dmAutomatic
    end
  end
  object Panel2: TPanel
    Left = 358
    Top = 0
    Width = 89
    Height = 302
    Align = alRight
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object OpenVideo: TButton
      Left = 6
      Top = 8
      Width = 75
      Height = 25
      Caption = #24320#22987#25429#33719
      TabOrder = 0
      OnClick = OpenVideoClick
    end
    object CloseVideo: TButton
      Left = 6
      Top = 48
      Width = 75
      Height = 25
      Caption = #20851#38381#25429#33719
      TabOrder = 1
      OnClick = CloseVideoClick
    end
    object capView: TPanel
      Left = 8
      Top = 96
      Width = 73
      Height = 193
      TabOrder = 2
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 288
    Top = 192
  end
end