object MainForm: TMainForm
  Left = 236
  Top = 202
  Caption = 'Brush Demo - www.ImageEn.com'
  ClientHeight = 711
  ClientWidth = 984
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel: TPanel
    Left = 0
    Top = 0
    Width = 984
    Height = 56
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 122
      Top = 11
      Width = 26
      Height = 13
      Caption = 'Zoom'
    end
    object ScrollBar1: TScrollBar
      Left = 156
      Top = 9
      Width = 166
      Height = 17
      Max = 8000
      Min = 1
      PageSize = 0
      Position = 100
      TabOrder = 0
      OnChange = ScrollBar1Change
    end
    object CheckBox1: TCheckBox
      Left = 120
      Top = 30
      Width = 48
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Grid'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox1Click
    end
    object Button1: TButton
      Left = 8
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Open'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object ImageEnView1: TImageEnView
    Left = 0
    Top = 56
    Width = 794
    Height = 655
    Background = clBtnFace
    LegacyBitmap = True
    EnableInteractionHints = True
    Align = alClient
    TabOrder = 1
    OnMouseDown = ImageEnView1MouseDown
    OnMouseMove = ImageEnView1MouseMove
  end
  object PageControl1: TPageControl
    Left = 794
    Top = 56
    Width = 190
    Height = 655
    ActivePage = BrushTab
    Align = alRight
    TabOrder = 2
    OnChange = PageControl1Change
    object BrushTab: TTabSheet
      Caption = 'Brush'
      object RectangleButton: TSpeedButton
        Left = 12
        Top = 16
        Width = 65
        Height = 25
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Rectangle'
        OnClick = CreateBrush
      end
      object CircleButton: TSpeedButton
        Left = 12
        Top = 40
        Width = 65
        Height = 25
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Circle'
        OnClick = CreateBrush
      end
      object PointsButton: TSpeedButton
        Left = 12
        Top = 64
        Width = 65
        Height = 25
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Points'
        OnClick = CreateBrush
      end
      object Label2: TLabel
        Left = 12
        Top = 108
        Width = 23
        Height = 13
        Caption = 'Size:'
      end
      object Label3: TLabel
        Left = 12
        Top = 144
        Width = 29
        Height = 13
        Caption = 'Color:'
      end
      object lblBrushTrans: TLabel
        Left = 12
        Top = 179
        Width = 70
        Height = 13
        Caption = 'Transparency:'
      end
      object Label5: TLabel
        Left = 14
        Top = 243
        Width = 52
        Height = 13
        Caption = 'Operation:'
      end
      object BrushColor: TShape
        Left = 49
        Top = 138
        Width = 44
        Height = 25
        Brush.Color = clRed
        OnMouseDown = BrushColorMouseDown
      end
      object BrushSize: TEdit
        Left = 41
        Top = 104
        Width = 41
        Height = 21
        TabOrder = 0
        Text = '50'
        OnChange = CreateBrush
      end
      object edtBrushTrans: TEdit
        Left = 89
        Top = 175
        Width = 42
        Height = 21
        TabOrder = 1
        Text = '255'
        OnChange = CreateBrush
      end
      object chkAntialias: TCheckBox
        Left = 12
        Top = 210
        Width = 66
        Height = 17
        Caption = 'Anti-alias'
        TabOrder = 3
        OnClick = CreateBrush
      end
      object Operation: TComboBox
        Left = 68
        Top = 239
        Width = 111
        Height = 21
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 2
        OnChange = CreateBrush
        Items.Strings = (
          'Normal'
          'Add'
          'Sub'
          'Div'
          'Mul'
          'OR'
          'AND'
          'XOR'
          'MAX'
          'MIN'
          'Average'
          'Screen'
          'Negation'
          'Exclusion'
          'Overlay'
          'HardLight'
          'SoftLight'
          'XFader'
          'ColorEdge'
          'ColorBurn'
          'InverseColorDodge'
          'InverseColorBurn'
          'SoftDodge'
          'SoftBurn'
          'Reflect'
          'Glow'
          'Freeze'
          'Eat'
          'Subtractive'
          'Interpolation'
          'Stamp'
          'Red'
          'Green'
          'Blue'
          'Hue'
          'Saturation'
          'Color'
          'Luminosity')
      end
      object UpDown1: TUpDown
        Left = 82
        Top = 104
        Width = 16
        Height = 21
        Associate = BrushSize
        Min = 1
        Max = 1000
        Position = 50
        TabOrder = 4
      end
      object updBrushTrans: TUpDown
        Left = 131
        Top = 175
        Width = 16
        Height = 21
        Associate = edtBrushTrans
        Min = 1
        Max = 255
        Position = 255
        TabOrder = 5
      end
    end
    object PaintTab: TTabSheet
      Caption = 'Paint'
      object PaintPoint: TSpeedButton
        Left = 12
        Top = 16
        Width = 65
        Height = 25
        GroupIndex = 1
        Caption = 'Point'
      end
      object PaintLine: TSpeedButton
        Left = 12
        Top = 40
        Width = 65
        Height = 25
        GroupIndex = 1
        Caption = 'Line'
      end
      object Label6: TLabel
        Left = 12
        Top = 120
        Width = 29
        Height = 13
        Caption = 'Color:'
      end
      object PaintEllipse: TSpeedButton
        Left = 12
        Top = 64
        Width = 65
        Height = 25
        GroupIndex = 1
        Caption = 'Ellipse'
      end
      object PaintColor: TShape
        Left = 47
        Top = 114
        Width = 44
        Height = 25
        Brush.Color = clRed
        OnMouseDown = PaintColorMouseDown
      end
      object lbllblPaintTrans: TLabel
        Left = 12
        Top = 159
        Width = 70
        Height = 13
        Caption = 'Transparency:'
      end
      object edtPaintTrans: TEdit
        Left = 88
        Top = 155
        Width = 42
        Height = 21
        TabOrder = 0
        Text = '255'
      end
      object updPaintTrans: TUpDown
        Left = 130
        Top = 155
        Width = 16
        Height = 21
        Associate = edtPaintTrans
        Min = 1
        Max = 255
        Position = 255
        TabOrder = 1
      end
    end
  end
  object ColorDialog1: TColorDialog
    Left = 138
    Top = 139
  end
end