graphwin.dfm

Delphi7基础编程,本人的入门教材

        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF
        0000999BBBBFAAAA4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA
        4CCCFFFF0000999BBBBFAAAACCCCFFFF0000999BBBBFAAAA4CCCFFFF0000999B
        BBFFAAAFFCCCFFFF0000}
      OnClick = PenColorClick
    end
    object PenWidth: TUpDown
      Left = 309
      Top = 12
      Width = 9
      Height = 21
      Associate = PenSize
      ArrowKeys = False
      Position = 1
      TabOrder = 0
    end
    object PenSize: TEdit
      Left = 280
      Top = 12
      Width = 29
      Height = 21
      TabOrder = 1
      Text = '1'
      OnChange = PenSizeChange
    end
  end
  object BrushBar: TPanel
    Left = 0
    Top = 82
    Width = 427
    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
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 255
    Width = 427
    Height = 18
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 123
    Width = 427
    Height = 132
    Align = alClient
    TabOrder = 4
    object Image: TImage
      Left = 0
      Top = 0
      Width = 129
      Height = 129
      AutoSize = True
      OnMouseDown = FormMouseDown
      OnMouseMove = FormMouseMove
      OnMouseUp = FormMouseUp
    end
  end
  object ColorDialog1: TColorDialog
    Left = 337
    Top = 180
  end
end