Delphi控件源码

开发平台：
Delphi

UShape.dfm：源码内容
							object FormShape: TFormShape
  Left = 241
  Top = 127
  Width = 652
  Height = 452
  Caption = 'Demo of shapes'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 418
    Align = alLeft
    BevelOuter = bvNone
    BorderWidth = 4
    TabOrder = 0
    object GB: TGroupBox
      Left = 4
      Top = 4
      Width = 177
      Height = 225
      Align = alTop
      Caption = 'Shape type'
      TabOrder = 0
      object RB1: TRadioButton
        Left = 8
        Top = 17
        Width = 113
        Height = 17
        Caption = 'Line'
        TabOrder = 0
        OnClick = GBClick
      end
      object RB2: TRadioButton
        Left = 8
        Top = 62
        Width = 113
        Height = 17
        Caption = 'Quadrangle'
        TabOrder = 2
        OnClick = GBClick
      end
      object RB3: TRadioButton
        Left = 8
        Top = 84
        Width = 113
        Height = 17
        Caption = 'Ellipse'
        TabOrder = 3
        OnClick = GBClick
      end
      object RB4: TRadioButton
        Left = 8
        Top = 107
        Width = 125
        Height = 17
        Caption = 'Derivative of ellipse'
        TabOrder = 4
        OnClick = GBClick
      end
      object RB5: TRadioButton
        Left = 8
        Top = 39
        Width = 113
        Height = 17
        Caption = 'Curve'
        TabOrder = 1
        OnClick = GBClick
      end
      object RB6: TRadioButton
        Left = 8
        Top = 152
        Width = 129
        Height = 17
        Caption = 'Custom single shape'
        TabOrder = 6
        OnClick = GBClick
      end
      object RB7: TRadioButton
        Left = 8
        Top = 129
        Width = 129
        Height = 17
        Caption = 'Stars'
        TabOrder = 5
        OnClick = GBClick
      end
      object RB8: TRadioButton
        Left = 8
        Top = 174
        Width = 161
        Height = 17
        Caption = 'Character shape (non text)'
        TabOrder = 7
        OnClick = GBClick
      end
      object RB9: TRadioButton
        Left = 8
        Top = 197
        Width = 161
        Height = 17
        Caption = 'Multistyle in one shape'
        TabOrder = 8
        OnClick = GBClick
      end
    end
  end
  object Player: TFlashPlayerControl
    Left = 185
    Top = 0
    Width = 459
    Height = 418
    Align = alClient
    TabOrder = 1
    FrameNum = -1
    Playing = True
    Quality = 1
    ScaleMode = 0
    AlignMode = 0
    BackgroundColor = -1
    Loop = True
    WMode = 'Window'
    Menu = True
    Scale = 'ShowAll'
    DeviceFont = False
    EmbedMovie = False
    Quality2 = 'High'
    AllowScriptAccess = 'always'
  end
  object FontDialog: TFontDialog
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -133
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    Options = [fdTrueTypeOnly, fdEffects]
    Left = 32
    Top = 216
  end
end

						