Delphi控件源码

开发平台：
Delphi

UDemo.dfm：源码内容
							object mDemo: TmDemo
  Left = 606
  Top = 287
  Caption = 'Main demo '
  ClientHeight = 399
  ClientWidth = 644
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 307
    Top = 0
    Height = 399
  end
  object P1: TPanel
    Left = 0
    Top = 0
    Width = 307
    Height = 399
    Align = alLeft
    BevelOuter = bvNone
    Constraints.MaxWidth = 1000
    Constraints.MinWidth = 50
    TabOrder = 0
    object Pages: TPageControl
      Left = 0
      Top = 0
      Width = 307
      Height = 306
      ActivePage = TabXML
      Align = alClient
      Constraints.MinHeight = 305
      MultiLine = True
      TabOrder = 0
      object TabShape: TTabSheet
        Caption = 'Shape'
        ImageIndex = 1
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object rvShape: TRadioGroup
          Left = 4
          Top = 1
          Width = 288
          Height = 83
          Caption = 'Shape type'
          Columns = 3
          ItemIndex = 0
          Items.Strings = (
            'Rectangle'
            'Star'
            'Ellipse'
            'Cyrcle'
            'Polygon'
            'Ring'
            'Pie'
            'Arc (closed)'
            'Diamond')
          TabOrder = 0
        end
        object FillShape: TRadioGroup
          Left = 4
          Top = 90
          Width = 101
          Height = 83
          Caption = 'Shape fill'
          ItemIndex = 0
          Items.Strings = (
            'Solid color'
            'Gradient'
            'Bitmap')
          TabOrder = 1
        end
        object GroupBox1: TGroupBox
          Left = 112
          Top = 90
          Width = 179
          Height = 83
          Caption = 'Setings'
          TabOrder = 2
          object Label3: TLabel
            Left = 10
            Top = 60
            Width = 34
            Height = 13
            Caption = 'Image:'
          end
          object BrowsImg: TSpeedButton
            Left = 155
            Top = 57
            Width = 22
            Height = 21
            Caption = '...'
            OnClick = BrowsImgClick
          end
          object cbLine: TCheckBox
            Left = 10
            Top = 17
            Width = 120
            Height = 17
            Caption = 'Show outline'
            TabOrder = 0
          end
          object UseA: TCheckBox
            Left = 10
            Top = 37
            Width = 120
            Height = 17
            Caption = 'Use alpha value'
            TabOrder = 1
          end
          object ImgName: TEdit
            Left = 45
            Top = 57
            Width = 108
            Height = 21
            TabOrder = 2
          end
        end
        object GroupBox2: TGroupBox
          Left = 4
          Top = 176
          Width = 287
          Height = 69
          Caption = 'Flash 8 features'
          TabOrder = 3
          object Label8: TLabel
            Left = 8
            Top = 19
            Width = 59
            Height = 13
            Caption = 'Blend mode:'
          end
          object Label9: TLabel
            Left = 152
            Top = 18
            Width = 33
            Height = 13
            Caption = 'Filters:'
          end
          object CBBlend: TComboBox
            Left = 8
            Top = 40
            Width = 121
            Height = 21
            Style = csDropDownList
            ItemHeight = 0
            ItemIndex = 0
            TabOrder = 0
            Text = 'None'
            Items.Strings = (
              'None'
              'Normal'
              'Layer'
              'Multiply'
              'Screen'
              'Lighten'
              'Darken'
              'Difference'
              'Add'
              'Subtract'
              'Invert'
              'Alpha'
              'Erase'
              'Overlay'
              'Hardlight')
          end
          object CBFilter: TComboBox
            Left = 152
            Top = 39
            Width = 121
            Height = 21
            Style = csDropDownList
            ItemHeight = 0
            ItemIndex = 0
            TabOrder = 1
            Text = 'None'
            Items.Strings = (
              'None'
              'Drop Shadow'
              'Blur'
              'Glow'
              'Bevel'
              'Gradient Glow'
              'Convolution'
              'Color Matrix'
              'Gradient Bevel')
          end
        end
      end
      object TabSound: TTabSheet
        Caption = 'Sound'
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object bSndBrowse: TSpeedButton
          Left = 187
          Top = 21
          Width = 22
          Height = 22
          Caption = '...'
          OnClick = bSndBrowseClick
        end
        object Label1: TLabel
          Left = 4
          Top = 4
          Width = 134
          Height = 13
          Caption = 'Sound file name (wav, mp3)'
        end
        object SndName: TEdit
          Left = 4
          Top = 21
          Width = 180
          Height = 21
          TabOrder = 0
        end
        object sndVariant: TRadioGroup
          Left = 4
          Top = 49
          Width = 180
          Height = 60
          Caption = 'Use variant'
          ItemIndex = 0
          Items.Strings = (
            'As stream'
            'As event')
          TabOrder = 1
        end
        object SndEvParam: TGroupBox
          Left = 4
          Top = 186
          Width = 180
          Height = 64
          Caption = 'Event sound'
          TabOrder = 2
          object Label2: TLabel
            Left = 8
            Top = 22
            Width = 27
            Height = 13
            Caption = 'Loop:'
          end
          object sndLoop: TEdit
            Left = 40
            Top = 19
            Width = 53
            Height = 21
            TabOrder = 0
            Text = '3'
          end
          object cbSyncNoMultiple: TCheckBox
            Left = 8
            Top = 41
            Width = 146
            Height = 17
            Caption = 'SyncNoMultiple'
            Checked = True
            State = cbChecked
            TabOrder = 1
          end
        end
        object StreamBox: TGroupBox
          Left = 4
          Top = 115
          Width = 180
          Height = 65
          Caption = 'Stream sound '
          TabOrder = 3
          object Label6: TLabel
            Left = 97
            Top = 40
            Width = 16
            Height = 13
            Caption = 'sec'
          end
          object CBDuration: TCheckBox
            Left = 8
            Top = 16
            Width = 153
            Height = 17
            Caption = 'Movie as sound duration'
            Checked = True
            State = cbChecked
            TabOrder = 0
            OnClick = CBDurationClick
          end
          object SDuratiom: TEdit
            Left = 40
            Top = 36
            Width = 53
            Height = 21
            Enabled = False
            TabOrder = 1
            Text = '0'
          end
        end
      end
      object TabButton: TTabSheet
        Caption = 'Button'
        ImageIndex = 2
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object Label4: TLabel
          Left = 1
          Top = 9
          Width = 45
          Height = 13
          Caption = 'Open url:'
        end
        object EOpenUtr: TEdit
          Left = 48
          Top = 5
          Width = 176
          Height = 21
          TabOrder = 0
          Text = 'http://www.delphiflash.com'
        end
      end
      object TabText: TTabSheet
        Caption = 'Text'
        ImageIndex = 3
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object HTMLBrowse: TSpeedButton
          Left = 19
          Top = 119
          Width = 23
          Height = 22
          Caption = '...'
          OnClick = HTMLBrowseClick
        end
        object LGetText: TLabel
          Left = 88
          Top = 78
          Width = 3
          Height = 13
        end
        object StaticText: TEdit
          Left = 88
          Top = 28
          Width = 201
          Height = 21
          TabOrder = 0
          Text = 'Static Text'
        end
        object BFont: TButton
          Left = 1
          Top = 198
          Width = 289
          Height = 53
          Caption = 'Arial'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -27
          Font.Name = 'Arial'
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
          TabOrder = 1
          OnClick = BFontClick
        end
        object EditText: TEdit
          Left = 88
          Top = 54
          Width = 201
          Height = 21
          TabOrder = 2
          Text = 'Edit Text'
        end
        object MemoHTML: TMemo
          Left = 88
          Top = 100
          Width = 201
          Height = 89
          Lines.Strings = (
            '<u>tags are supported:</u><br>'
            
              '<b>bold</b> text.<br><i>italic</i> text.<br><font color="#FF0000' +
              '">color</font> text<br>font <font size="+10">size</font> & <font' +
              ' face="Times New Roman">face.</font><br>'
            ''
            
              '<p align="center"><a href="http://delphiflash.com"><font color="' +
              '#333366" >www.DelphiFlash.com</font></a></p>')
          ScrollBars = ssBoth
          TabOrder = 3
          WordWrap = False
        end
        object RBText1: TRadioButton
          Left = 1
          Top = 30
          Width = 85
          Height = 17
          Caption = 'Static text'
          Checked = True
          TabOrder = 4
          TabStop = True
        end
        object RBText2: TRadioButton
          Left = 1
          Top = 55
          Width = 85
          Height = 17
          Caption = 'Edit text'
          TabOrder = 5
        end
        object RBText3: TRadioButton
          Left = 1
          Top = 100
          Width = 85
          Height = 17
          Caption = 'HTML text'
          TabOrder = 6
        end
        object FntEmbed: TCheckBox
          Left = 3
          Top = 3
          Width = 97
          Height = 17
          Caption = 'Embedded font'
          TabOrder = 7
        end
      end
      object TabTransform: TTabSheet
        Caption = 'Transformation'
        ImageIndex = 4
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object Trans2: TCheckBox
          Left = 3
          Top = 27
          Width = 221
          Height = 17
          Caption = 'Move'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object Trans1: TCheckBox
          Left = 3
          Top = 7
          Width = 221
          Height = 17
          Caption = 'Scale'
          Checked = True
          State = cbChecked
          TabOrder = 1
        end
        object Trans3: TCheckBox
          Left = 3
          Top = 47
          Width = 221
          Height = 17
          Caption = 'Skew'
          TabOrder = 2
        end
        object Trans4: TCheckBox
          Left = 3
          Top = 67
          Width = 221
          Height = 17
          Caption = 'Color (+ Red  - Blue)'
          TabOrder = 3
        end
      end
      object TabSprite: TTabSheet
        Caption = 'Sprite'
        ImageIndex = 5
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object Sprite1: TCheckBox
          Left = 3
          Top = 7
          Width = 201
          Height = 17
          Caption = 'Move'
          TabOrder = 0
        end
        object Sprite2: TCheckBox
          Left = 3
          Top = 27
          Width = 201
          Height = 17
          Caption = 'Clone'
          TabOrder = 1
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Actions'
        ImageIndex = 6
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object Label5: TLabel
          Left = 3
          Top = 3
          Width = 197
          Height = 13
          Caption = 'Ball is moving in random ways. Click on it.'
        end
        object ASSource: TRadioGroup
          Left = 4
          Top = 24
          Width = 197
          Height = 60
          Caption = 'Actions source'
          ItemIndex = 0
          Items.Strings = (
            'Action instructions'
            'Action Script compiler')
          TabOrder = 0
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Morphing'
        ImageIndex = 7
        ExplicitLeft = 0
        ExplicitTop = 0
        ExplicitWidth = 0
        ExplicitHeight = 0
        object RBMorphFill: TRadioGroup
          Left = 4
          Top = 24
          Width = 265
          Height = 60
          Caption = 'Morph fill'
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            'none'
            'Solid color'
            'Linear gradient'
            'Radial gradient')
          TabOrder = 0
          OnClick = RBMorphFillClick
        end
        object CBLineM: TCheckBox
          Left = 13
          Top = 2
          Width = 196
          Height = 17
          Caption = 'Line morphing'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CBLineMClick
        end
      end
      object TabVIdeo: TTabSheet
        Caption = 'Video'
        ImageIndex = 8
        object VFileButton: TSpeedButton
          Left = 249
          Top = 24
          Width = 22
          Height = 21
          Caption = '...'
          OnClick = VFileButtonClick
        end
        object Label7: TLabel
          Left = 10
          Top = 6
          Width = 37
          Height = 13
          Caption = 'Source:'
        end
        object z: TGroupBox
          Left = 8
          Top = 56
          Width = 281
          Height = 97
          Caption = '  Settings  '
          TabOrder = 0
          object VLabelX: TLabel
            Left = 44
            Top = 21
            Width = 60
            Height = 13
            Caption = 'X coordinate'
          end
          object VCBoxPlace: TCheckBox
            Left = 148
            Top = 17
            Width = 113
            Height = 17
            Caption = 'use onPlaceMovie'
            TabOrder = 0
          end
          object VCBoxWriteFrame: TCheckBox
            Left = 148
            Top = 37
            Width = 113
            Height = 17
            Caption = 'use onWriteFrame'
            TabOrder = 1
          end
          object VSTStartframe: TStaticText
            Left = 44
            Top = 71
            Width = 59
            Height = 17
            Caption = 'Start frame'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 2
          end
          object VSTY: TStaticText
            Left = 44
            Top = 43
            Width = 64
            Height = 17
            Caption = 'Y coordinate'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            TabOrder = 3
          end
          object VEStartFrame: TEdit
            Left = 12
            Top = 68
            Width = 25
            Height = 21
            TabOrder = 4
            Text = '0'
          end
          object VEX: TEdit
            Left = 12
            Top = 16
            Width = 25
            Height = 21
            TabOrder = 5
            Text = '0'
          end
          object VEY: TEdit
            Left = 12
            Top = 40
            Width = 25
            Height = 21
            TabOrder = 6
            Text = '0'
          end
          object VSoundEnableChecker: TCheckBox
            Left = 148
            Top = 71
            Width = 113
            Height = 17
            Caption = 'Sound Enable'
            Checked = True
            State = cbChecked
            TabOrder = 7
          end
        end
        object VFileEdit: TEdit
          Left = 8
          Top = 24
          Width = 233
          Height = 21
          TabOrder = 1
          Text = 'matrix.flv'
        end
      end
      object TabXML: TTabSheet
        Caption = 'XML'
        ImageIndex = 9
        object EXML: TRichEdit
          Left = 0
          Top = 0
          Width = 299
          Height = 260
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Courier New'
          Font.Style = []
          Lines.Strings = (
            '<?xml version="1.0" encoding="UTF-8"?>'
            
              '<Flash XMax="300" YMax="200" FPS="10" Version="6" SystemCoord="P' +
              'ix">'
            ' <Shape IDStr="myRect" Depth="1" Color="#FF2222">'
            '   <Edges>'
            '    <RoundRect Width="100" Height="60" Radius="8"/>'
            '   </Edges>'
            ' </Shape>'
            ' <Place IDStr="myRect" Depth="2">'
            '  <Matrix X="50" Y="20"/>'
            
              '  <ColorTransform Alpha="true" AddR="-100" AddG="100" AddA="-100' +
              '"/>'
            ' </Place>'
            '</Flash>')
          ParentFont = False
          PlainText = True
          ScrollBars = ssBoth
          TabOrder = 0
          WordWrap = False
        end
      end
    end
    object P2: TPanel
      Left = 0
      Top = 306
      Width = 307
      Height = 93
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      OnResize = P2Resize
      object bBrowse: TSpeedButton
        Left = 238
        Top = 70
        Width = 23
        Height = 22
        Caption = '...'
        OnClick = bBrowseClick
      end
      object eName: TEdit
        Left = 10
        Top = 70
        Width = 226
        Height = 21
        TabOrder = 0
      end
      object CBCompr: TCheckBox
        Left = 11
        Top = 4
        Width = 123
        Height = 17
        Caption = 'Compressed'
        Checked = True
        State = cbChecked
        TabOrder = 1
      end
      object cbProtect: TCheckBox
        Left = 11
        Top = 26
        Width = 148
        Height = 17
        Caption = 'Protection against import'
        TabOrder = 2
        OnClick = cbProtectClick
      end
      object EPassw: TEdit
        Left = 159
        Top = 24
        Width = 68
        Height = 21
        Enabled = False
        TabOrder = 3
        Text = 'passw'
      end
      object CBPreloader: TCheckBox
        Left = 11
        Top = 48
        Width = 155
        Height = 17
        Caption = 'Include preloader'
        TabOrder = 4
      end
    end
  end
  object P3: TPanel
    Left = 310
    Top = 0
    Width = 334
    Height = 399
    Align = alClient
    BevelOuter = bvNone
    Constraints.MaxWidth = 1000
    Constraints.MinWidth = 50
    TabOrder = 1
    OnResize = P3Resize
    object Bevel1: TBevel
      Left = 0
      Top = 369
      Width = 334
      Height = 3
      Align = alBottom
      Shape = bsBottomLine
    end
    object P4: TPanel
      Left = 0
      Top = 372
      Width = 334
      Height = 27
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      OnResize = P4Resize
      object bPlay: TSpeedButton
        Left = 67
        Top = 3
        Width = 23
        Height = 22
        Enabled = False
        Glyph.Data = {
          DE000000424DDE000000000000004E000000280000000C0000000C0000000100
          08000000000090000000120B0000120B00000600000006000000999999007A7A
          7A00474747003D3D3D000A0A0A00000000000000000003000000000000000000
          0000050300000000000000000000050503000000000000000000050505030000
          0000000000000505050503000000000000000505050505020000000000000505
          0505040100000000000005050504010000000000000005050401000000000000
          0000050401000000000000000000040100000000000000000000010000000000
          0000}
        OnClick = bPlayClick
      end
      object bPause: TSpeedButton
        Left = 91
        Top = 3
        Width = 23
        Height = 22
        Enabled = False
        Glyph.Data = {
          CE000000424DC60400000000000036040000280000000C0000000C0000000100
          08000000000090000000120B0000120B00000200000002000000999999000000
          0000000000010100000101000000000000010100000101000000000000010100
          0001010000000000000101000001010000000000000101000001010000000000
          0001010000010100000000000001010000010100000000000001010000010100
          0000000000010100000101000000000000010100000101000000000000010100
          000101000000000000000000000000000000}
        OnClick = bPauseClick
      end
      object bReweind: TSpeedButton
        Left = 284
        Top = 3
        Width = 23
        Height = 22
        AllowAllUp = True
        GroupIndex = 10
        Enabled = False
        Glyph.Data = {
          06010000424D060100000000000076000000280000000C0000000C0000000100
          08000000000090000000120B0000120B00001000000010000000999999008F8F
          8F00858585007A7A7A0070707000666666005C5C5C0052525200474747003D3D
          3D0033333300292929001F1F1F00141414000A0A0A000000000000000002060B
          0B02000000000000090F0F0F0F0F0E050000000C0F0F080000080D0F020F0F0F
          0F090000000000020F0F000F090000000000000F0F0F00000000000000000000
          00000000000000000000000000000F0F0F000000000000030F000F0F02000000
          0000030E0F0F0F020F0B030000030E0F0F060000060F0F0F0F0F0F0E06000000
          0002070B0B0A05000000}
        OnClick = bReweindClick
      end
      object lFrames: TLabel
        Left = 258
        Top = 8
        Width = 42
        Height = 13
        Alignment = taRightJustify
        Caption = '0 frames'
      end
      object TrackBar: TTrackBar
        Left = 114
        Top = -1
        Width = 158
        Height = 27
        Max = 0
        PageSize = 1
        TabOrder = 0
        ThumbLength = 12
        TickMarks = tmBoth
        TickStyle = tsManual
        OnChange = TrackBarChange
      end
      object bMake: TBitBtn
        Left = 3
        Top = 3
        Width = 63
        Height = 22
        Caption = 'Make'
        TabOrder = 1
        OnClick = bMakeClick
        Glyph.Data = {
          CA010000424DCA0100000000000042000000280000000E0000000E0000000100
          10000300000088010000120B0000120B00000000000000000000007C0000E003
          00001F000000F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E
          F75E1463734EEF3DF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E3167
          4C6FAD35EF3DF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E69732C6B
          C618EF3DF75EF75EEF3DEF3DF75EF75EF75EF75EF75EF75E1663A07FC85EC618
          8C312C6B234AC618D65AF75EF75EF75EF75EF75EF75E4C6FA07FE362E520A07F
          A07FE520CE39F75EF75EF75EF75EF75EF75EF75E8577A07F8077A07FA07F434E
          C618B556F75EF75EF75EF75EF75EF75E3167A07FA07FA07FA07FA07F25256B2D
          F75EF75EF75EF75EF75EF75EF75E6973A07F8077266FA07F246FC618524AF75E
          F75EF75EF75EF75EF75E1663A07F0E63F75E6B6FA07F8A520821F75EF75EF75E
          F75EF75EF75EF75E1463F75EF75EF75E4C6F837BEF3DEF3DF75EF75EF75EF75E
          F75EF75EF75EF75EF75EF75EF75E4C6F4C6F1042D65AF75EF75EF75EF75EF75E
          F75EF75EF75EF75EF75EF75E4E6B1663F75EF75EF75EF75EF75EF75EF75EF75E
          F75EF75EF75EF75EF75EF75EF75E}
      end
    end
    object FlashPlayer: TShockwaveFlashEx
      Left = 0
      Top = 0
      Width = 334
      Height = 369
      Align = alClient
      TabOrder = 1
      ExplicitLeft = -1
      ExplicitTop = -3
      ControlData = {
        6755665510070000852200002326000008000200000000000800000000000800
        0000000008000E000000570069006E0064006F00770000000B00FFFF0B00FFFF
        08000A0000004800690067006800000008000200000000000B00FFFF08000200
        0000000008000E00000061006C00770061007900730000000800100000005300
        68006F00770041006C006C0000000B0000000B00000008000200000000000800
        02000000000008000200000000000D0000000000000000000000000000000000
        0B0001000B00000008000000000003000000000008000800000061006C006C00
        0000}
    end
  end
  object TimerSWF: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TimerSWFTimer
    Left = 436
    Top = 36
  end
  object FontDialog: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [fdTrueTypeOnly]
    Left = 552
    Top = 25
  end
end

						