unit6_21.dfm

一款简简单单的绘图软件 简单的不能再简单了 供那些初学者用来看一看 长长见识用吧

object Form1: TForm1
  Left = 258
  Top = 121
  Width = 562
  Height = 458
  Caption = #21033#29992'TCanvas'#32452#20214#26469#32472#22270#30340#33539#20363#31243#24207
  Color = clBtnHighlight
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poDefault
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 554
    Height = 41
    Align = alTop
    TabOrder = 0
    object LineButton: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Down = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003333333333333333300300003333333333333333003300003333
        3333333333300333000033333333333333003333000033333333333330033333
        0000333333333333003333330000333333333330033333330000333333333300
        3333333300003333333330033333333300003333333300333333333300003333
        3330033333333333000033333300333333333333000033333003333333333333
        0000333300333333333333330000333003333333333333330000330033333333
        3333333300003003333333333333333300003033333333333333333300003333
        33333333333333330000}
      OnClick = LineButtonClick
    end
    object RectangleButton: TSpeedButton
      Left = 40
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033333333333333330300003033
        3333333333333303000030333333333333333303000030333333333333333303
        0000303333333333333333030000303333333333333333030000303333333333
        3333330300003033333333333333330300003033333333333333330300003033
        3333333333333303000030333333333333333303000030333333333333333303
        0000303333333333333333030000303333333333333333030000303333333333
        3333330300003033333333333333330300003000000000000000000300003333
        33333333333333330000}
      OnClick = RectangleButtonClick
    end
    object EllipseButton: TSpeedButton
      Left = 72
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        3333330000003333003333330033330000003330333333333303330000003303
        3333333333303300000030333333333333330300000030333333333333330300
        0000033333333333333330000000033333333333333330000000033333333333
        3333300000000333333333333333300000000333333333333333300000000333
        3333333333333000000030333333333333330300000030333333333333330300
        0000330333333333333033000000333033333333330333000000333300333333
        003333000000333333000000333333000000}
      OnClick = EllipseButtonClick
    end
    object RoundRectButton: TSpeedButton
      Left = 104
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
        0033330000003300333333333300330000003033333333333333030000003033
        3333333333330300000003333333333333333000000003333333333333333000
        0000033333333333333330000000033333333333333330000000033333333333
        3333300000000333333333333333300000000333333333333333300000000333
        3333333333333000000003333333333333333000000003333333333333333000
        0000303333333333333303000000303333333333333303000000330033333333
        330033000000333300000000003333000000}
      OnClick = RoundRectButtonClick
    end
    object PenButton: TSpeedButton
      Left = 176
      Top = 8
      Width = 25
      Height = 25
      AllowAllUp = True
      GroupIndex = 2
      Glyph.Data = {
        66010000424D6601000000000000760000002800000015000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333339003333333333333333003334003333333333333330F00334003333
        33333333330F0003300033333333333330F00033300033333333333300000333
        3C00333333333330F0003333380033333333330F0003333330003333333330F0
        003333333700333333330F0003333333370033333330F000333333333F003333
        330F0003333333333700333330F00033333333333F0033330F00033333333333
        37003330F0003333333333333700333000033333333333333000330F00333333
        3333333337003300333333333333333337003033333333333333333337003333
        33333333333333333700}
      OnClick = PenButtonClick
    end
    object BrushButton: TSpeedButton
      Left = 208
      Top = 8
      Width = 25
      Height = 25
      AllowAllUp = True
      GroupIndex = 3
      Glyph.Data = {
        66010000424D6601000000000000760000002800000013000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333F000030030000003333333337000033333330F0003333333B00003333
        33330F000333333000003333333330F00033333700003333333330F000333330
        00003333333300F00003333A0000333333300FF0000333370000333333300F00
        00033337000033333300FF000000333E00003333330FF0000000333700003333
        330FF00000003337000033333300F0000000333F000033333330000000033337
        0000333333330FFF003333370000333333330FFF0033333F0000333333330FFF
        0033333E0000333333330FFF0033333700003333333330000333333F00003333
        33333333333333300000}
      OnClick = BrushButtonClick
    end
  end
  object PenBar: TPanel
    Left = 0
    Top = 41
    Width = 554
    Height = 41
    Align = alTop
    TabOrder = 1
    Visible = False
    object SolidPen: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Down = True
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333700333333333333333333333000300000000000000000003F003333
        33333333333333333000333333333333333333333000}
      OnClick = SetPenStyle
    end
    object DashPen: TSpeedButton
      Left = 33
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333700333333333333333333333000300000300000030000033F003333
        33333333333333333000333333333333333333333000}
      OnClick = SetPenStyle
    end
    object DotPen: TSpeedButton
      Left = 58
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333003333333333333333333333003030303030303030303033003333
        33333333333333333300333333333333333333333300}
      OnClick = SetPenStyle
    end
    object DashDotPen: TSpeedButton
      Left = 83
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333330003333333333333333333330003000003030000030300030003333
        33333333333333333F00333333333333333333333700}
      OnClick = SetPenStyle
    end
    object DashDotDotPen: TSpeedButton
      Left = 108
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333003333333333333333333333003000003030300000303033003333
        33333333333333333300333333333333333333333300}
      OnClick = SetPenStyle
    end
    object ClearPen: TSpeedButton
      Left = 133
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 4
      Glyph.Data = {
        B2000000424DB200000000000000760000002800000015000000050000000100
        0400000000003C00000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333003333333333333333333333003FFFFFFFFFFFFFFFFFFF33003333
        33333333333333333300333333333333333333333300}
      OnClick = SetPenStyle
    end
    object PenColor: TSpeedButton
      Left = 174
      Top = 8
      Width = 25
      Height = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBFFAAAFFCCCFFFF0000}
      OnClick = PenColorClick
    end
    object PenWidth: TUpDown
      Left = 309
      Top = 12
      Width = 16
      Height = 21
      Associate = PenSize
      ArrowKeys = False
      Position = 1
      TabOrder = 0
    end
    object PenSize: TEdit
      Left = 280
      Top = 12
      Width = 29
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 1
      Text = '1'
      OnChange = PenSizeChange
    end
    object Memo2: TMemo
      Left = 216
      Top = 16
      Width = 33
      Height = 17
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = clInfoText
      Ctl3D = False
      ImeMode = imAlpha
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Lines.Strings = (
        '')
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 2
    end
  end
  object BrushBar: TPanel
    Left = 0