bmptoaviunit.dfm

灰鸽子VIP1.2经典源代码

object BmpToAviForm: TBmpToAviForm
  Left = 168
  Top = 218
  AutoScroll = False
  BorderIcons = []
  Caption = 'BmpToAvi'
  ClientHeight = 288
  ClientWidth = 431
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 316
    Top = 92
    Width = 89
    Height = 73
    Stretch = True
  end
  object Label1: TspSkinStdLabel
    Left = 320
    Top = 180
    Width = 36
    Height = 12
    UseSkinFont = True
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -12
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    SkinDataName = 'stdlabel'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Caption = #24103#39057#65306
    Color = clBtnFace
    ParentColor = False
    ParentFont = False
  end
  object Panel1: TspSkinPanel
    Left = 0
    Top = 0
    Width = 281
    Height = 288
    TabOrder = 0
    DrawDefault = True
    SkinData = HgzVip.spSkinData1
    SkinDataName = 'panel'
    AlphaBlend = False
    AlphaBlendValue = 200
    UseSkinCursor = False
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultWidth = 0
    DefaultHeight = 0
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    NumGlyphs = 1
    Spacing = 2
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvLowered
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    Caption = 'Panel1'
    Align = alLeft
    object Label2: TspSkinStdLabel
      Left = 1
      Top = 1
      Width = 279
      Height = 12
      UseSkinFont = True
      DefaultFont.Charset = GB2312_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -12
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      SkinData = HgzVip.spSkinData1
      SkinDataName = 'stdlabel'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBtnText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Align = alTop
      Caption = 'Bmp File'#65306
      ParentFont = False
    end
    object ListBox1: TspSkinListBox
      Left = 1
      Top = 13
      Width = 279
      Height = 274
      TabOrder = 0
      DrawDefault = True
      SkinData = HgzVip.spSkinData1
      SkinDataName = 'listbox'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = DEFAULT_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = 14
      DefaultFont.Name = 'Arial'
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      UseSkinItemHeight = True
      HorizontalExtent = False
      Columns = 0
      RowCount = 0
      ImageIndex = -1
      NumGlyphs = 1
      Spacing = 2
      CaptionMode = False
      DefaultCaptionHeight = 20
      DefaultCaptionFont.Charset = DEFAULT_CHARSET
      DefaultCaptionFont.Color = clWindowText
      DefaultCaptionFont.Height = 14
      DefaultCaptionFont.Name = 'Arial'
      DefaultCaptionFont.Style = []
      DefaultItemHeight = 20
      ItemIndex = -1
      MultiSelect = False
      ListBoxFont.Charset = DEFAULT_CHARSET
      ListBoxFont.Color = clWindowText
      ListBoxFont.Height = 14
      ListBoxFont.Name = 'Arial'
      ListBoxFont.Style = []
      ListBoxTabOrder = 0
      ListBoxTabStop = True
      ListBoxDragMode = dmManual
      ListBoxDragKind = dkDrag
      ListBoxDragCursor = crDrag
      ExtandedSelect = True
      Sorted = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 14
      Font.Name = 'Arial'
      Font.Style = []
      Align = alClient
    end
  end
  object addButton: TspSkinButton
    Left = 315
    Top = 16
    Width = 92
    Height = 22
    Cursor = crHandPoint
    TabOrder = 1
    DrawDefault = True
    SkinData = HgzVip.spSkinData1
    SkinDataName = 'button'
    AlphaBlend = False
    AlphaBlendValue = 200
    UseSkinCursor = False
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -12
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultWidth = 0
    DefaultHeight = 0
    RepeatMode = False
    RepeatInterval = 100
    AllowAllUp = False
    TabStop = True
    CanFocused = False
    Down = False
    GroupIndex = 0
    Caption = #22686#21152' BMP'
    NumGlyphs = 1
    Spacing = 1
    OnClick = addButtonClick
  end
  object DllButton: TspSkinButton
    Left = 315
    Top = 52
    Width = 92
    Height = 22
    Cursor = crHandPoint
    TabOrder = 2
    DrawDefault = True
    SkinData = HgzVip.spSkinData1
    SkinDataName = 'button'
    AlphaBlend = False
    AlphaBlendValue = 200
    UseSkinCursor = False
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -12
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultWidth = 0
    DefaultHeight = 0
    RepeatMode = False
    RepeatInterval = 100
    AllowAllUp = False
    TabStop = True
    CanFocused = False
    Down = False
    GroupIndex = 0
    Caption = #21024#38500' BMP'
    NumGlyphs = 1
    Spacing = 1
  end
  object OkButton: TspSkinButton
    Left = 315
    Top = 208
    Width = 92
    Height = 22
    Cursor = crHandPoint
    TabOrder = 3
    DrawDefault = True
    SkinData = HgzVip.spSkinData1
    SkinDataName = 'button'
    AlphaBlend = False
    AlphaBlendValue = 200
    UseSkinCursor = False
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -12
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultWidth = 0
    DefaultHeight = 0
    RepeatMode = False
    RepeatInterval = 100
    AllowAllUp = False
    TabStop = True
    CanFocused = False
    Down = False
    GroupIndex = 0
    Caption = #29983#25104' AVI'
    NumGlyphs = 1
    Spacing = 1
    OnClick = OkButtonClick
  end
  object CloseButton: TspSkinButton
    Left = 315
    Top = 244
    Width = 92
    Height = 22
    Cursor = crHandPoint
    TabOrder = 4
    DrawDefault = True
    SkinData = HgzVip.spSkinData1
    SkinDataName = 'button'
    AlphaBlend = False
    AlphaBlendValue = 200
    UseSkinCursor = False
    DefaultFont.Charset = GB2312_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = -12
    DefaultFont.Name = #23435#20307
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultWidth = 0
    DefaultHeight = 0
    RepeatMode = False
    RepeatInterval = 100
    AllowAllUp = False
    TabStop = True
    CanFocused = False
    Down = False
    GroupIndex = 0
    Caption = #20851#38381
    NumGlyphs = 1
    Spacing = 1
    OnClick = CloseButtonClick
  end
  object SpinEdit1: TSpinEdit
    Left = 356
    Top = 176
    Width = 37
    Height = 22
    MaxValue = 25
    MinValue = 1
    TabOrder = 5
    Value = 2
  end
  object DSF: TspDynamicSkinForm
    ClientWidth = 0
    ClientHeight = 0
    HideCaptionButtons = False
    AlwaysShowInTray = False
    LogoBitMapTransparent = False
    AlwaysMinimizeToTray = False
    UseSkinFontInMenu = True
    ShowIcon = False
    MaximizeOnFullScreen = False
    SkinHint = HgzVip.spSkinHint1
    ShowObjectHint = False
    UseSkinCursors = False
    DefCaptionFont.Charset = DEFAULT_CHARSET
    DefCaptionFont.Color = clBtnText
    DefCaptionFont.Height = 14
    DefCaptionFont.Name = 'Arial'
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = DEFAULT_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = 14
    DefInActiveCaptionFont.Name = 'Arial'
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = DEFAULT_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = 14
    DefMenuItemFont.Name = 'Arial'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SupportNCArea = True
    AlphaBlendAnimation = False
    AlphaBlendValue = 0
    AlphaBlend = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    SkinData = HgzVip.spSkinData1
    MinHeight = 200
    MinWidth = 200
    Sizeable = False
    DraggAble = False
    Magnetic = True
    MagneticSize = 10
    BorderIcons = [biSystemMenu, biMinimize, biRollUp]
    Left = 400
  end
  object OpenDialog1: TOpenDialog
    FileName = '*.bmp'
    Filter = 'Bmp *.bmp'
    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
    Title = #36873#25321' Bmp '#25991#20214'...'
    Left = 128
    Top = 44
  end
  object SaveDialog1: TSaveDialog
    FileName = 'bmp.avi'
    Filter = 'AVI (*.avi)|*.avi'
    Title = #21478#23384#20026'...'
    Left = 156
    Top = 140
  end
end