unit1.dfm

带有多种基本图形算法的delphi程序

object Form1: TForm1
  Left = 228
  Top = 172
  Width = 705
  Height = 515
  Caption = 'Form1'
  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 = 497
    Height = 481
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BevelWidth = 2
    TabOrder = 0
    object Image1: TImage
      Left = 4
      Top = 4
      Width = 489
      Height = 473
      Align = alClient
    end
  end
  object Panel2: TPanel
    Left = 497
    Top = 0
    Width = 200
    Height = 481
    Align = alClient
    BevelInner = bvLowered
    Color = clCream
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 8
      Top = 72
      Width = 57
      Height = 22
      Caption = #22522#26412#22270#24418'1'
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 8
      Top = 104
      Width = 57
      Height = 22
      Caption = #22522#26412#22270#24418'2'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 8
      Top = 136
      Width = 57
      Height = 22
      Caption = #22522#26412#22270#24418'3'
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 112
      Top = 32
      Width = 57
      Height = 22
      Caption = #25972#20307#25928#26524
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton4Click
    end
    object SpeedButton6: TSpeedButton
      Left = 112
      Top = 176
      Width = 57
      Height = 22
      Caption = #38543#26426#33457#24067
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 8
      Top = 216
      Width = 57
      Height = 22
      Caption = #36864#20986
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #21326#25991#34892#26999
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton7Click
    end
    object Image2: TImage
      Left = 8
      Top = 240
      Width = 177
      Height = 217
      ParentShowHint = False
      Picture.Data = {
        0A544A504547496D616765E70D0200FFD8FFE000104A46494600010201006000
        600000FFED111650686F746F73686F7020332E30003842494D03ED0000000000
        10005FFFD200020002005FFFD2000200023842494D040D000000000004000000
        783842494D03F300000000000800000000000000003842494D040A0000000000
        0100003842494D271000000000000A000100000000000000023842494D03F500
        0000000048002F66660001006C66660006000000000001002F6666000100A199
        9A0006000000000001003200000001005A000000060000000000010035000000
        01002D000000060000000000013842494D03F80000000000700000FFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF03E800003842494D04080000000000100000000100000240000002
        40000000003842494D0414000000000004000000023842494D040C000000000F
        850000000100000070000000540000015000006E4000000F6900180001FFD8FF
        E000104A46494600010201004800480000FFFE002646696C6520777269747465
        6E2062792041646F62652050686F746F73686F70A820352E32FFEE000E41646F
        626500648000000001FFDB0084000C08080809080C09090C110B0A0B11150F0C
        0C0F1518131315131318110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C
        0C0C0C0C0C0C0C0C0C0C0C0C0C0C010D0B0B0D0E0D100E0E10140E0E0E14140E
        0E0E0E14110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C
        0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFFC0001108005400700301220002110103
        1101FFDD00040007FFC4013F0000010501010101010100000000000000030001
        020405060708090A0B0100010501010101010100000000000000010002030405
        060708090A0B1000010401030204020507060805030C33010002110304211231
        054151611322718132061491A1B14223241552C16233347282D14307259253F0
        E1F163733516A2B283264493546445C2A3743617D255E265F2B384C3D375E3F3
        462794A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F637475767
        778797A7B7C7D7E7F71100020201020404030405060707060535010002110321
        3112044151617122130532819114A1B14223C152D1F0332462E1728292435315
        637334F1250616A2B283072635C2D2449354A317644555367465E2F2B384C3D3
        75E3F34694A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F62737
        475767778797A7B7C7FFDA000C03010002110311003F00E9ACC56D6EB06EB4FA
        46C13F67B04FA6C6DDFF004E76FF00AD7E94BEC2DDDB77DBF4B6FF0047B3FD17
        DA7F87A7FEB5FA758BEC3CBDDACCCB8F7FA53AFF00AFFE79986651A9F7B7D435
        3086BECDC601223F7BF95EEFDCFF0083FF0003AE4480F9EB4AFD1F9BA7E8B9A2
        BF77C7F4BE549562B6C75603AD6FA86B03F57B34F5186EFCDDBFCDFA7B3FD6B4
        9B88D7358775A378A4FF0047B34F58968FFB6B67FAFE8D037D9FBEE1FDA22238
        EECFA3FEBB3FC02DF60FCF76911EE3A47D1FF37FE87FC1FF0080352FDE3D3F77
        FEF5171EDF9A666335E01DD6890C3FCC59F9F61C78FECEDF5127E2B5809DD698
        0F3FD1ECFCCB063FFD2FE710058E9DADB1DBBB3438CE874F68737F3BFD7FD0B0
        BC3A76DA5D1A187931F9D07FB5FEBFE84F0CEFE63BF68EDFE2AAE3D87E2D9762
        35AD7BB75A7D3171FE62CD7D12D67FE09B92B715B59B06EB4FA66C07F41609F4
        D82EFF00C1376D40DF67EFBBBFE71EFF003FE4FF00AFF8245EFE77BBE6E3DFFC
        DFDD6FFAFF00362A5FBC7AFEEFFDEAAE3FBBF9B64E0B776DDF6CEED9FD1ECFF4
        5F69FF00D44A35E2B6C756DDD68F50D627D0B34F518EBBFE86DD9FEBEFAEEBF6
        0975A5A27425E46B11C93FBBB53FA8F6910F7022081B883A7D1EFF009BED4B86
        75F31DBB477FF15371BF97AF729DB88D7061DD68160A4FF47B34F5CB99FF0081
        C7FAFF00856662B5E2775A2430C7D9EC3F4EC763C6BFBBFCE7FAD9EA043DE3F3
        DDA447B8F6FA3FE6C241F60E1EEF938F6D4777787FAFF845C32FDEEBFD5FFBD4
        5C7F77F34CFC66B413BAD301E7FA3D9F9967D9C8FED6FF0053FD6CF51CE23407
        9DF69D82E3FD1ECD7D1219FF0082EFFF005FD27A8375792CA9973B78AAC90C79
        71831A9FCEFE4FFD73F97FE161BECEEF71FED1EFCF8FD2FF005FF874048ED3BD
        4FEEFD9F2A741BC7A0FDE7FFD0DF690D70739BB9AD20B9B3B6403AB37FE67D0F
        F5FF0005B1663E4D83159D3F1FD3C1C87B1F7B1E581BE99FE7DB6D4EDF6B9EFA
        9ACF43D172C61FEBF87FAFFAFE8DCB9FECF7BBF47FCDFB8FB679F4F5FD1FF67F
        F556B64C6644104697F37AA3FE2FEF39D0988DDDEB5B687ED4B9A6BFB5DA2AA8
        50C638B456234D9EDDDEDF6FBB67E6FF00EA9862B9C3A85353B11D915B9A5FA8
        76D3009670D76FFE6FFD7FC18CF049F893DFE33FEBFF00A4745A7AD55D629A99