unit6_21.dfm

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

    Top = 82
    Width = 554
    Height = 41
    Align = alTop
    TabOrder = 2
    Visible = False
    object SolidBrush: TSpeedButton
      Left = 8
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Down = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003000000000000000000300003000
        0000000000000003000030000000000000000003000030000000000000000003
        0000300000000000000000030000300000000000000000030000300000000000
        0000000300003000000000000000000300003000000000000000000300003000
        0000000000000003000030000000000000000003000030000000000000000003
        0000300000000000000000030000300000000000000000030000300000000000
        0000000300003000000000000000000300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object ClearBrush: 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 = SetBrushStyle
    end
    object HorizontalBrush: TSpeedButton
      Left = 72
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033333333333333330300003000
        0000000000000003000030333333333333333303000030333333333333333303
        0000300000000000000000030000303333333333333333030000303333333333
        3333330300003000000000000000000300003033333333333333330300003033
        3333333333333303000030000000000000000003000030333333333333333303
        0000303333333333333333030000300000000000000000030000303333333333
        3333330300003033333333333333330300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object VerticalBrush: TSpeedButton
      Left = 104
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033033033033033030300003033
        0330330330330303000030330330330330330303000030330330330330330303
        0000303303303303303303030000303303303303303303030000303303303303
        3033030300003033033033033033030300003033033033033033030300003033
        0330330330330303000030330330330330330303000030330330330330330303
        0000303303303303303303030000303303303303303303030000303303303303
        3033030300003033033033033033030300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object FDiagonalBrush: TSpeedButton
      Left = 136
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033303330333033300300003033
        0333033303330303000030303330333033303303000030033303330333033303
        0000303330333033303330030000303303330333033303030000303033303330
        3330330300003003330333033303330300003033303330333033300300003033
        0333033303330303000030303330333033303303000030033303330333033303
        0000303330333033303330030000303303330333033303030000303033303330
        3330330300003003330333033303330300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object BDiagonalBrush: TSpeedButton
      Left = 168
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003003330333033303330300003030
        3330333033303303000030330333033303330303000030333033303330333003
        0000300333033303330333030000303033303330333033030000303303330333
        0333030300003033303330333033300300003003330333033303330300003030
        3330333033303303000030330333033303330303000030333033303330333003
        0000300333033303330333030000303033303330333033030000303303330333
        0333030300003033303330333033300300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object CrossBrush: TSpeedButton
      Left = 200
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033033033033033030300003000
        0000000000000003000030330330330330330303000030330330330330330303
        0000300000000000000000030000303303303303303303030000303303303303
        3033030300003000000000000000000300003033033033033033030300003033
        0330330330330303000030000000000000000003000030330330330330330303
        0000303303303303303303030000300000000000000000030000303303303303
        3033030300003033033033033033030300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object DiagCrossBrush: TSpeedButton
      Left = 232
      Top = 8
      Width = 25
      Height = 25
      GroupIndex = 1
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333300003000000000000000000300003033303330333033300300003003
        0303030303030303000030303330333033303303000030030303030303030303
        0000303330333033303330030000300303030303030303030000303033303330
        3330330300003003030303030303030300003033303330333033300300003003
        0303030303030303000030303330333033303303000030030303030303030303
        0000303330333033303330030000300303030303030303030000303033303330
        3330330300003003030303030303030300003000000000000000000300003333
        33333333333333330000}
      OnClick = SetBrushStyle
    end
    object BrushColor: TSpeedButton
      Left = 279
      Top = 8
      Width = 25
      Height = 25
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBFFAAAFFCCCFFFF0000}
      OnClick = BrushColorClick
    end
    object Memo1: TMemo
      Left = 320
      Top = 16
      Width = 33
      Height = 17
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = clHighlightText
      Ctl3D = False
      ImeMode = imAlpha
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Lines.Strings = (
        '')
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 386
    Width = 554
    Height = 18
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 123
    Width = 554
    Height = 263
    Align = alClient
    Color = clBtnFace
    ParentColor = False
    TabOrder = 4
    object Image: TImage
      Left = 0
      Top = 0
      Width = 121
      Height = 137
      AutoSize = True
      OnMouseDown = FormMouseDown
      OnMouseMove = FormMouseMove
      OnMouseUp = FormMouseUp
    end
  end
  object ColorDialog1: TColorDialog
    Left = 377
    Top = 148
  end
  object MainMenu1: TMainMenu
    Left = 337
    Top = 148
    object File1: TMenuItem
      Caption = #25991#20214
      object New1: TMenuItem
        Caption = #26032#24314
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = #25171#24320
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = #20445#23384
        OnClick = Save1Click
      end
      object Saveas1: TMenuItem
        Caption = #21478#23384#20026
        OnClick = Saveas1Click
      end
      object Print1: TMenuItem
        Caption = #25171#21360
        OnClick = Print1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = #36864#20986
        OnClick = Exit1Click
      end
    end
    object Edit1: TMenuItem
      Caption = #32534#36753
      object Cut1: TMenuItem
        Caption = #21098#20999
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = #22797#21046
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = #31896#36148
        ShortCut = 16470
        OnClick = Paste1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'bmp'
    Filter = 'Bitmap files (*.bmp)|*.bmp|All files|*.*'
    Left = 337
    Top = 188
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'bmp'
    Filter = 'Bitmap files (*.bmp)|*.bmp|All files|*.*'
    Left = 377
    Top = 188
  end
end