PC World Komputer 1997 February/PCWK0297.iso/envelop/envelop.5/Tools/Arsenal/apps/doodler/doodler.eto

Text File | 1996-07-08 | 34.7 KB | 1,157 lines

Type ColorScrollBar From ScrollBar

  ' METHODS for object: ColorScrollBar
  Sub Change()
    Parent.updateColor()
  End Sub

  Sub Scroll()
    Parent.updateColor()
  End Sub

End Type

Type ColorPicker From Form
  Dim Color As New Control
  Dim Label1 As New Label
  Dim Label2 As New Label
  Dim Label3 As New Label
  Dim pen As New Pen
  Dim PenWidth As New ScrollBar
  Dim SBRed As New ColorScrollBar
  Dim SBGreen As New ColorScrollBar
  Dim SBBlue As New ColorScrollBar
  Dim brush As New Brush
  Event PenChanged(pen as Pen)
  Event BrushChanged(brush as Brush)

  ' METHODS for object: ColorPicker
  Sub Load()
    PenWidth.Value = PenWidth.Max - 5
    SBRed.Value = 255
    updateColor()
  End Sub

  Sub PenWidth_Change()
    pen.Width = PenWidth.Max - PenWidth.Value + 1
    SendEvent PenChanged(pen)
  End Sub

  Sub PenWidth_Scroll()
    pen.Width = PenWidth.Max - PenWidth.Value + 1
    SendEvent PenChanged(pen)
  End Sub

  Sub updateColor()
    Color.BackColor = RGB(SBRed.Value, SBGreen.Value, SBBlue.Value)
    pen.Color = Color.BackColor
    brush.FillColor = Color.BackColor
    SendEvent PenChanged(pen)
    SendEvent BrushChanged(brush)
  End Sub

End Type

Type BitmapButton From Image
  Dim bitmap As New Bitmap

  ' METHODS for object: BitmapButton
  Sub MouseDown(a,b as integer, x,y as single)
    BevelOuter = "Inset"
    Refresh()
  End Sub

  Sub MouseUp(a,b as integer, x,y as single)
    BevelOuter = "Raised"
    Refresh()
    SendEvent Click()
  End Sub

  Sub Reset()
    If (BevelOuter <> "Raised") Then
      BevelOuter = "Raised"
      Refresh()
    End If
  End Sub

  Sub Setup()
    Picture = bitmap
  End Sub

End Type

Type ColorButton From BitmapButton

  ' METHODS for object: ColorButton
  Sub Click()
    Parent.pen.Color = BackColor
    Parent.brush.FillColor = BackColor
    SendEvent Parent.PenChanged(Parent.pen)
    SendEvent Parent.BrushChanged(Parent.brush)

    Parent.Controls.Reset()
    BevelOuter = "Inset"
    Refresh()
  End Sub

End Type

Type FillButton From BitmapButton
  Dim myStyle As Long

  ' METHODS for object: FillButton
  Sub Click()
    Parent.brush.FillStyle = myStyle
    SendEvent Parent.BrushChanged(Parent.brush)
  End Sub

End Type

Type PenWidthGauge From Gauge

  ' METHODS for object: PenWidthGauge
  Sub MouseMove(a,b as integer, x,y as single)
    If (a <> 1) Then Exit Sub

    Parent.pen.Width = int(((Height - y) / Height) * 10)
    If Parent.pen.Width > 4 Then
      Value = (Parent.pen.Width + 1) * 9 - 2
    Else
      Value = (Parent.pen.Width + 1) * 9
    End If

    ' Print Parent.pen.Width, Value
    SendEvent Parent.PenChanged(Parent.pen)
  End Sub

End Type

Type PenPicker From Form
  Dim PenWidth As New PenWidthGauge
  Dim pen As New Pen
  Dim brush As New Brush
  Dim ColorButton1 As New ColorButton
  Dim ColorButton2 As New ColorButton
  Dim ColorButton3 As New ColorButton
  Dim ColorButton4 As New ColorButton
  Dim ColorButton5 As New ColorButton
  Dim ColorButton6 As New ColorButton
  Dim ColorButton7 As New ColorButton
  Dim ColorButton8 As New ColorButton
  Dim ColorButton9 As New ColorButton
  Dim FillButton1 As New FillButton
  Dim FillButton2 As New FillButton
  Dim FillButton3 As New FillButton
  Dim FillButton4 As New FillButton
  Dim FillButton5 As New FillButton
  Dim FillButton6 As New FillButton
  Dim FillButton7 As New FillButton
  Dim FillButton8 As New FillButton
  Event PenChanged(pen as Pen)
  Event BrushChanged(brush as Brush)

  ' METHODS for object: PenPicker
  Sub Load()
    pen.Width = 5
    PenWidth.Value = 45
    SendEvent PenChanged(pen)
    ColorButton1.Click()
    FillButton1.Click()
  End Sub

  Sub OBFilled_Click()
    If OBFilled.Value = 1 Then
      brush.FillStyle = "Solid"
    Else
      brush.FillStyle = "Transparent"
    End If
    SendEvent BrushChanged(brush)
  End Sub

End Type

Type DoodlerPalette From ObjectBox
  Dim CompShapePicker As New ControlTools.Gadget
  Dim CompColorPicker As New ControlTools.Gadget
  Dim CompPenPicker As New ControlTools.Gadget
  Dim CompDrawingCanvas As New ControlTools.Gadget

  ' METHODS for object: DoodlerPalette
  Sub DragAndDrop(source As XferData, x As Single, y As Single, state As OleDropState, effect As OleDropEffect)
    ' Drag and drop is not implemented for the Doodler Palette.
    effect = 0
  End Sub

End Type

Type ShapeButton From BitmapButton
  Dim myobj As GdiObject

  ' METHODS for object: ShapeButton
  Sub Click()
    SendEvent Parent.ShapeChanged(myobj)
    Parent.Controls.Reset()
    BevelOuter = "Inset"
    Refresh()
  End Sub

End Type

Type BackFillButton From BitmapButton

  ' METHODS for object: BackFillButton
  Sub Click()
    SendEvent Parent.FillBack()
  End Sub

End Type

Type ShapePicker From Form
  Dim ShapeButton1 As New ShapeButton
  Dim ShapeButton2 As New ShapeButton
  Dim ShapeButton3 As New ShapeButton
  Dim ShapeButton4 As New ShapeButton
  Dim BitmapButton1 As New BackFillButton
  Dim ShapeButton5 As New ShapeButton
  Dim ShapeButton6 As New ShapeButton
  Event FillBack()
  Event ShapeChanged(shape as GdiObject)

  ' METHODS for object: ShapePicker
  Sub EnsureShapes()
    dim s as new GdiShape

    s.Shape = "Oval"
    If (Not ShapeButton1.myobj) Then ShapeButton1.myobj = CopyObject(s, "")
    s.Shape = "Rectangle"
    If (Not ShapeButton2.myobj) Then ShapeButton2.myobj = CopyObject(s, "")
    If (Not ShapeButton3.myobj) Then ShapeButton3.myobj = CopyObject(GdiPolyline, "")
    If (Not ShapeButton4.myobj) Then ShapeButton4.myobj = CopyObject(GdiLine, "")
    s.Shape = "Rounded Rectangle"
    If (Not ShapeButton5.myobj) Then ShapeButton5.myobj = CopyObject(s, "")
    If (Not ShapeButton6.myobj) Then ShapeButton6.myobj = CopyObject(GdiLine, "")

    ' Are you looking for these???
    ' Event FillBack()
    ' Event ShapeChanged(brush as Brush)

  End Sub

  Sub Load()
    EnsureShapes()
    ShapeButton3.Click()
  End Sub

End Type

Type DrawingCanvas From Form
  Dim Drawing As New PictureBox
  Dim DrawingLayer As New MarkupLayer
  Dim pen As New Pen
  Dim brush As New Brush
  Dim CurShape As GdiObject

  ' METHODS for object: DrawingCanvas
  Sub CopyBrush(b as Brush)
    brush.FillColor = b.FillColor
    brush.FillStyle = b.FillStyle
  End Sub

  Sub CopyPen(p as Pen)
    pen.Color = p.Color
    pen.Width = p.Width
    pen.Style = p.Style
  End Sub

  Sub Drawing_MouseDown(a,b as integer, x,y as single)
    If (CurShape = Nothing) Then Exit Sub
    CurShape.SetPen(pen)
    If (TypeOf CurShape Is GdiShape) Then CurShape.SetBrush(brush)

    DrawingLayer.TrackObject(CurShape, x, y)
  End Sub

  Sub FillBackground()
    Drawing.BackColor = pen.Color
  End Sub

  Sub Resize()
    Drawing.Left = 0 : DrawingLayer.Left = 0
    Drawing.Top = 0 : DrawingLayer.Top = 0
    Drawing.Width = Width
    DrawingLayer.Width = Width
    Drawing.Height = Height
    DrawingLayer.Height = Height
  End Sub

End Type

Type DoodlerMasterForm From SampleMasterForm
  Dim DrawingCanvas1 As New DrawingCanvas
  Dim PenPicker1 As New PenPicker
  Dim ShapePicker1 As New ShapePicker

  ' METHODS for object: DoodlerMasterForm
  Sub ColorPicker1_BrushChanged(b as Brush)
    DrawingCanvas1.CopyBrush(b)
  End Sub

  Sub ColorPicker1_PenChanged(p as Pen)
    DrawingCanvas1.CopyPen(p)
  End Sub

  Function FindForm(o as Form) As Form
    dim i as integer
    i = 0
    While (i < Controls.Count)
      If (TypeOf Controls(i) Is o) Then FindForm = Controls(i)
      i = i + 1
    Wend
  End Function

  Sub PenPicker1_BrushChanged(b as Brush)
    DrawingCanvas1.CopyBrush(b)
  End Sub

  Sub PenPicker1_PenChanged(p as Pen)
    DrawingCanvas1.CopyPen(p)
  End Sub

  Sub ResetApplication_Click()
    ' Reset to the black canvas
    DrawingCanvas1.Drawing.BackColor = 0
  End Sub

  Sub Resize()
    Dim cp as Form
    Static Border as integer
    Border = 60

    cp = FindForm(ColorPicker)
    If (cp = Nothing) Then cp = FindForm(PenPicker)

    If (Controls.Count < 3) Then Exit Sub
    ShapePicker1.Left = 0 : ShapePicker1.Top = 0
    DrawingCanvas1.Top = Border
    ShapePicker1.Height = ScaleHeight
    ShapePicker1.Width = 1020
    cp.Left = ShapePicker1.Width
    cp.Top = ScaleHeight - cp.Height
    cp.Width = ScaleWidth - cp.Left
    DrawingCanvas1.Left = ShapePicker1.Width
    DrawingCanvas1.Width = ScaleWidth - DrawingCanvas1.Left - Border
    DrawingCanvas1.Height = ScaleHeight - cp.Height - 2 * Border
    Refresh()
  End Sub

  Sub ShapePicker1_FillBack()
    DrawingCanvas1.FillBackground()
  End Sub

  Sub ShapePicker1_ShapeChanged(shp as GdiObject)
    DrawingCanvas1.CurShape = shp
  End Sub

End Type

Begin Code
' Reconstruction commands for object: ColorScrollBar
'
  With ColorScrollBar
    .ForeColor := 0
    .Move(0, 0, 0, 0)
    .SmallChange := 32
    .LargeChange := 64
    .Min := 1
    .Max := 255
    .Orientation := "Horizontal"
    .Move(0, 0, 0, 0)
  End With  'ColorScrollBar
' Reconstruction commands for object: ColorPicker
'
  With ColorPicker
    .Caption := "Color Picker"
    .ForeColor := 0
    .Move(7980, 2115, 5190, 1605)
    With .Color
      .Caption := "Color"
      .BackColor := 255
      .ForeColor := 0
      .ZOrder := 1
      .Move(675, 150, 750, 750)
    End With  'ColorPicker.Color
    With .Label1
      .Caption := "Red:"
      .ForeColor := 255
      .ZOrder := 1
      .Move(1650, 75, 675, 300)
    End With  'ColorPicker.Label1
    With .Label2
      .Caption := "Green:"
      .ForeColor := 32768
      .ZOrder := 1
      .Move(1650, 450, 675, 300)
    End With  'ColorPicker.Label2
    With .Label3
      .Caption := "Blue:"
      .ForeColor := 16711680
      .ZOrder := 1
      .Move(1650, 825, 675, 300)
    End With  'ColorPicker.Label3
    With .pen
      .Color := 255
      .Width := 6
    End With  'ColorPicker.pen
    With .PenWidth
      .Caption := "PenWidth"
      .ForeColor := 0
      .ZOrder := 1
      .Move(75, 75, 300, 1050)
      .SmallChange := 1
      .LargeChange := 2
      .Min := 1
      .Max := 20
    End With  'ColorPicker.PenWidth
    With .SBRed
      .Caption := "SBRed"
      .BackColor := 255
      .ForeColor := 104448
      .ZOrder := 1
      .Move(2400, 75, 2400, 300)
      .Move(2400, 75, 2400, 300)
    End With  'ColorPicker.SBRed
    With .SBGreen
      .Caption := "SBGreen"
      .BackColor := 65280
      .ForeColor := 808661249
      .ZOrder := 1
      .Move(2400, 450, 2400, 300)
      .Move(2400, 450, 2400, 300)
    End With  'ColorPicker.SBGreen
    With .SBBlue
      .Caption := "SBBlue"
      .BackColor := 16711680
      .ForeColor := 16872193
      .ZOrder := 1
      .Move(2400, 825, 2400, 300)
      .Move(2400, 825, 2400, 300)
    End With  'ColorPicker.SBBlue
    With .brush
      .FillColor := 255
    End With  'ColorPicker.brush
  End With  'ColorPicker
' Reconstruction commands for object: BitmapButton
'
  With BitmapButton
    .ForeColor := 33554432
    .Move(0, 0, 0, 0)
    .BevelOuter := "Raised"
    With .bitmap
      .LoadType := "MemoryBased"
    End With  'BitmapButton.bitmap
  End With  'BitmapButton
' Reconstruction commands for object: ColorButton
'
  With ColorButton
    .ForeColor := 0
    .Move(0, 0, 0, 0)
    .BevelOuter := "Inset"
    With .bitmap
    End With  'ColorButton.bitmap
  End With  'ColorButton
' Reconstruction commands for object: FillButton
'
  With FillButton
    .ForeColor := 0
    .Move(0, 0, 0, 0)
    .BevelOuter := "Inset"
    .myStyle := 0
    With .bitmap
    End With  'FillButton.bitmap
  End With  'FillButton
' Reconstruction commands for object: PenWidthGauge
'
  With PenWidthGauge
    .Move(0, 0, 0, 0)
  End With  'PenWidthGauge
' Reconstruction commands for object: PenPicker
'
  With PenPicker
    .Caption := "Pen Selector"
    .ForeColor := 2560
    .Move(4770, 4425, 9045, 1770)
    With .PenWidth
      .Caption := "PenWidth"
      .ForeColor := 1951407105
      .ZOrder := 10
      .Move(75, 0, 450, 1335)
      .Min := 1
      .Value := 45
      .Orientation := "Vertical"
      .LEDStep := 10
      .BarColor := 0
      .Move(75, 0, 450, 1335)
    End With  'PenPicker.PenWidth
    With .pen
      .Color := 255
      .Width := 5
    End With  'PenPicker.pen
    With .brush
      .FillColor := 255
    End With  'PenPicker.brush
    With .ColorButton1
      .Caption := "ColorButton1"
      .BackColor := 255
      .ForeColor := 73203970
      .ZOrder := 1
      .Move(750, 75, 450, 600)
      .Picture := PenPicker.ColorButton1.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton1.bitmap
    End With  'PenPicker.ColorButton1
    With .ColorButton2
      .Caption := "ColorButton2"
      .BackColor := 16711680
      .ForeColor := 1941049345
      .ZOrder := 2
      .Move(1950, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton2.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton2.bitmap
    End With  'PenPicker.ColorButton2
    With .ColorButton3
      .Caption := "ColorButton3"
      .BackColor := 65280
      .ForeColor := 1950
      .ZOrder := 3
      .Move(1350, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton3.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton3.bitmap
    End With  'PenPicker.ColorButton3
    With .ColorButton4
      .Caption := "ColorButton4"
      .BackColor := 65535
      .ForeColor := 1928592385
      .ZOrder := 4
      .Move(3150, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton4.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton4.bitmap
    End With  'PenPicker.ColorButton4
    With .ColorButton5
      .Caption := "ColorButton5"
      .BackColor := 16711935
      .ForeColor := 2550
      .ZOrder := 5
      .Move(2550, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton5.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton5.bitmap
    End With  'PenPicker.ColorButton5
    With .ColorButton6
      .Caption := "ColorButton6"
      .BackColor := 16776960
      .ForeColor := 16851596
      .ZOrder := 6
      .Move(3750, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton6.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton6.bitmap
    End With  'PenPicker.ColorButton6
    With .ColorButton7
      .Caption := "ColorButton7"
      .BackColor := 16777215
      .ForeColor := 1964756993
      .ZOrder := 7
      .Move(4350, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton7.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton7.bitmap
    End With  'PenPicker.ColorButton7
    With .ColorButton8
      .Caption := "ColorButton8"
      .BackColor := 0
      .ForeColor := 73203970
      .ZOrder := 8
      .Move(4950, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton8.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton8.bitmap
    End With  'PenPicker.ColorButton8
    With .ColorButton9
      .Caption := "ColorButton9"
      .BackColor := 12632256
      .ForeColor := 1963624449
      .ZOrder := 9
      .Move(5550, 75, 450, 600)
      .BevelOuter := "Raised"
      .Picture := PenPicker.ColorButton9.bitmap
      With .bitmap
      End With  'PenPicker.ColorButton9.bitmap
    End With  'PenPicker.ColorButton9
    With .FillButton1
      .Caption := "FillButton1"
      .ForeColor := 1953967105
      .ZOrder := 11
      .Move(750, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton1.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 0
      End With  'PenPicker.FillButton1.bitmap
    End With  'PenPicker.FillButton1
    With .FillButton2
      .Caption := "FillButton2"
      .ForeColor := -16491263
      .ZOrder := 12
      .Move(1350, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton2.bitmap
      .myStyle := 1
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 1804
      End With  'PenPicker.FillButton2.bitmap
    End With  'PenPicker.FillButton2
    With .FillButton3
      .Caption := "FillButton3"
      .ForeColor := -16491263
      .ZOrder := 13
      .Move(1950, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton3.bitmap
      .myStyle := 2
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 3608
      End With  'PenPicker.FillButton3.bitmap
    End With  'PenPicker.FillButton3
    With .FillButton4
      .Caption := "FillButton4"
      .ForeColor := -16491263
      .ZOrder := 14
      .Move(2550, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton4.bitmap
      .myStyle := 3
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 5612
      End With  'PenPicker.FillButton4.bitmap
    End With  'PenPicker.FillButton4
    With .FillButton5
      .Caption := "FillButton5"
      .ForeColor := -16491263
      .ZOrder := 15
      .Move(3150, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton5.bitmap
      .myStyle := 5
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 7264
      End With  'PenPicker.FillButton5.bitmap
    End With  'PenPicker.FillButton5
    With .FillButton6
      .Caption := "FillButton6"
      .ForeColor := -16491263
      .ZOrder := 16
      .Move(3750, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton6.bitmap
      .myStyle := 4
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 8916
      End With  'PenPicker.FillButton6.bitmap
    End With  'PenPicker.FillButton6
    With .FillButton7
      .Caption := "FillButton7"
      .ForeColor := -16491263
      .ZOrder := 17
      .Move(4350, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton7.bitmap
      .myStyle := 6
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 10664
      End With  'PenPicker.FillButton7.bitmap
    End With  'PenPicker.FillButton7
    With .FillButton8
      .Caption := "FillButton8"
      .ForeColor := -16491263
      .ZOrder := 18
      .Move(4950, 825, 450, 450)
      .BevelOuter := "Raised"
      .Picture := PenPicker.FillButton8.bitmap
      .myStyle := 7
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 12440
      End With  'PenPicker.FillButton8.bitmap
    End With  'PenPicker.FillButton8
  End With  'PenPicker
' Reconstruction commands for object: DoodlerPalette
'
  With DoodlerPalette
    .Caption := "Doodler Palette"
    .Move(8250, 105, 2115, 2265)
    With .CompShapePicker
      .Position := 1
      .GadgetObject := "ShapePicker"
      .gadgetObject_ := "ShapePicker"
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 14092
      End With  'DoodlerPalette.CompShapePicker.bitmap
    End With  'DoodlerPalette.CompShapePicker
    With .CompColorPicker
      .Position := 2
      .State := "Down"
      .GadgetObject := "ColorPicker"
      .gadgetObject_ := "ColorPicker"
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 19264
      End With  'DoodlerPalette.CompColorPicker.bitmap
    End With  'DoodlerPalette.CompColorPicker
    With .CompPenPicker
      .Position := 3
      .GadgetObject := "PenPicker"
      .gadgetObject_ := "PenPicker"
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 24436
      End With  'DoodlerPalette.CompPenPicker.bitmap
    End With  'DoodlerPalette.CompPenPicker
    With .CompDrawingCanvas
      .Position := 4
      .GadgetObject := "DrawingCanvas"
      .gadgetObject_ := "DrawingCanvas"
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 29608
      End With  'DoodlerPalette.CompDrawingCanvas.bitmap
    End With  'DoodlerPalette.CompDrawingCanvas
  End With  'DoodlerPalette
' Reconstruction commands for object: ShapeButton
'
  With ShapeButton
    .ForeColor := 0
    .Move(0, 0, 0, 0)
    .BevelOuter := "Inset"
    .myobj := Nothing
    With .bitmap
    End With  'ShapeButton.bitmap
  End With  'ShapeButton
' Reconstruction commands for object: BackFillButton
'
  With BackFillButton
    .ForeColor := -1
    .Move(0, 0, 0, 0)
    .BevelOuter := "Inset"
    With .bitmap
    End With  'BackFillButton.bitmap
  End With  'BackFillButton
' Reconstruction commands for object: ShapePicker
'
  With ShapePicker
    .Caption := "Shape Selector"
    .ForeColor := 263743
    .Move(4185, 1410, 1530, 6960)
    With .ShapeButton1
      .Caption := "ShapeButton1"
      .ForeColor := 16872718
      .ZOrder := 1
      .Move(150, 150, 750, 750)
      .BevelOuter := "Raised"
      .Picture := ShapePicker.ShapeButton1.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 34780
      End With  'ShapePicker.ShapeButton1.bitmap
    End With  'ShapePicker.ShapeButton1
    With .ShapeButton2
      .Caption := "ShapeButton2"
      .ForeColor := 17408
      .ZOrder := 2
      .Move(150, 1050, 750, 750)
      .BevelOuter := "Raised"
      .Picture := ShapePicker.ShapeButton2.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 37416
      End With  'ShapePicker.ShapeButton2.bitmap
    End With  'ShapePicker.ShapeButton2
    With .ShapeButton3
      .Caption := "ShapeButton3"
      .ForeColor := 165898
      .ZOrder := 3
      .Move(150, 1950, 750, 750)
      .Picture := ShapePicker.ShapeButton3.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 40012
      End With  'ShapePicker.ShapeButton3.bitmap
    End With  'ShapePicker.ShapeButton3
    With .ShapeButton4
      .Caption := "ShapeButton4"
      .ForeColor := 659005440
      .ZOrder := 4
      .Move(150, 2850, 750, 750)
      .BevelOuter := "Raised"
      .Picture := ShapePicker.ShapeButton4.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 42688
      End With  'ShapePicker.ShapeButton4.bitmap
    End With  'ShapePicker.ShapeButton4
    With .BitmapButton1
      .Caption := "BitmapButton1"
      .ForeColor := 73203970
      .ZOrder := 5
      .Move(150, 5550, 750, 750)
      .BevelOuter := "Raised"
      .Picture := ShapePicker.BitmapButton1.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 45364
      End With  'ShapePicker.BitmapButton1.bitmap
    End With  'ShapePicker.BitmapButton1
    With .ShapeButton5
      .Caption := "ShapeButton5"
      .ForeColor := 7368034
      .ZOrder := 6
      .Move(165, 3750, 750, 750)
      .BevelOuter := "Raised"
      .Picture := ShapePicker.ShapeButton5.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 48244
      End With  'ShapePicker.ShapeButton5.bitmap
    End With  'ShapePicker.ShapeButton5
    With .ShapeButton6
      .Caption := "ShapeButton6"
      .ForeColor := 73203970
      .ZOrder := 7
      .Move(150, 4650, 750, 750)
      .BevelOuter := "Raised"
      .Picture := ShapePicker.ShapeButton6.bitmap
      With .bitmap
        .FileName := "doodler.ero"
        .ResId := 51868
      End With  'ShapePicker.ShapeButton6.bitmap
    End With  'ShapePicker.ShapeButton6
  End With  'ShapePicker
' Reconstruction commands for object: DrawingCanvas
'
  With DrawingCanvas
    .Caption := "Doodler"
    .ForeColor := 6540
    .DragMode := "No Drag"
    .Move(8190, 2955, 3990, 4545)
    .CurShape := Nothing
    With .Drawing
      .Caption := "Drawing"
      .DragMode := "No Drag"
      .ZOrder := 1
      .Move(0, 0, 3990, 4545)
    End With  'DrawingCanvas.Drawing
    With .DrawingLayer
      .Caption := "DrawingLayer"
      .DragMode := "No Drag"
      .ZOrder := 1
      .Move(0, 0, 3990, 4545)
    End With  'DrawingCanvas.DrawingLayer
    With .pen
    End With  'DrawingCanvas.pen
    With .brush
    End With  'DrawingCanvas.brush
  End With  'DrawingCanvas
' Reconstruction commands for object: DoodlerMasterForm
'
  With DoodlerMasterForm
    .Caption := "Doodler"
    .ForeColor := 0
    .Move(1560, 2520, 11430, 7695)
    .SampleDir := "C:\ENVELOP\arsenal\apps\doodler\"
    .SampleName := "doodler"
    With .DrawingCanvas1
      .ForeColor := 71303167
      .ZOrder := 3
      .Move(1020, 60, 10230, 5385)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := DoodlerMasterForm
      .Visible := True
      .CurShape := Nothing
      With .Drawing
        .BackColor := 0
        .Move(0, 0, 10230, 5385)
        .BevelOuter := "Inset"
        .BevelWidth := 3
      End With  'DoodlerMasterForm.DrawingCanvas1.Drawing
      With .DrawingLayer
        .MousePointer := "Arrow"
        .ZOrder := 2
        .Move(0, 0, 10230, 5385)
      End With  'DoodlerMasterForm.DrawingCanvas1.DrawingLayer
      With .pen
        .Color := 255
        .Width := 5
      End With  'DoodlerMasterForm.DrawingCanvas1.pen
      With .brush
        .FillColor := 255
        .FillStyle := "Transparent"
      End With  'DoodlerMasterForm.DrawingCanvas1.brush
    End With  'DoodlerMasterForm.DrawingCanvas1
    With .PenPicker1
      .Caption := ""
      .ForeColor := 829645174
      .ZOrder := 1
      .Move(1020, 5505, 10290, 1500)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := DoodlerMasterForm
      .Visible := True
      With .PenWidth
        .ForeColor := 829645174
        .ZOrder := 1
        .Move(75, 0, 450, 1335)
        .Move(75, 0, 450, 1335)
      End With  'DoodlerMasterForm.PenPicker1.PenWidth
      With .pen
      End With  'DoodlerMasterForm.PenPicker1.pen
      With .brush
        .FillStyle := "Transparent"
      End With  'DoodlerMasterForm.PenPicker1.brush
      With .ColorButton1
        .ForeColor := 1769431410
        .ZOrder := 2
        .Move(750, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton1.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton1.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton1
      With .ColorButton2
        .ForeColor := 1986945347
        .ZOrder := 3
        .Move(1950, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton2.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton2.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton2
      With .ColorButton3
        .ForeColor := 1986945347
        .ZOrder := 4
        .Move(1350, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton3.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton3.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton3
      With .ColorButton4
        .ForeColor := 538970673
        .ZOrder := 5
        .Move(3150, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton4.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton4.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton4
      With .ColorButton5
        .ForeColor := 538976288
        .ZOrder := 6
        .Move(2550, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton5.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton5.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton5
      With .ColorButton6
        .ForeColor := 538970673
        .ZOrder := 7
        .Move(3750, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton6.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton6.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton6
      With .ColorButton7
        .ForeColor := 84898048
        .ZOrder := 8
        .Move(4350, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton7.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton7.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton7
      With .ColorButton8
        .ForeColor := 538970673
        .ZOrder := 9
        .Move(4950, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton8.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton8.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton8
      With .ColorButton9
        .ForeColor := 2002874948
        .ZOrder := 10
        .Move(5550, 75, 450, 600)
        .Picture := DoodlerMasterForm.PenPicker1.ColorButton9.bitmap
        With .bitmap
        End With  'DoodlerMasterForm.PenPicker1.ColorButton9.bitmap
      End With  'DoodlerMasterForm.PenPicker1.ColorButton9
      With .FillButton1
        .ForeColor := 543515759
        .Move(750, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton1.bitmap
        With .bitmap
          .ResId := 54544
        End With  'DoodlerMasterForm.PenPicker1.FillButton1.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton1
      With .FillButton2
        .ForeColor := 2035097632
        .Move(1350, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton2.bitmap
        With .bitmap
          .ResId := 56348
        End With  'DoodlerMasterForm.PenPicker1.FillButton2.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton2
      With .FillButton3
        .ForeColor := 1634878510
        .Move(1950, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton3.bitmap
        With .bitmap
          .ResId := 58152
        End With  'DoodlerMasterForm.PenPicker1.FillButton3.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton3
      With .FillButton4
        .ForeColor := 1294887028
        .Move(2550, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton4.bitmap
        With .bitmap
          .ResId := 60156
        End With  'DoodlerMasterForm.PenPicker1.FillButton4.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton4
      With .FillButton5
        .ForeColor := 538970673
        .Move(3150, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton5.bitmap
        With .bitmap
          .ResId := 61808
        End With  'DoodlerMasterForm.PenPicker1.FillButton5.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton5
      With .FillButton6
        .ForeColor := 1986945347
        .Move(3750, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton6.bitmap
        With .bitmap
          .ResId := 63460
        End With  'DoodlerMasterForm.PenPicker1.FillButton6.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton6
      With .FillButton7
        .ForeColor := 538970673
        .Move(4350, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton7.bitmap
        With .bitmap
          .ResId := 65208
        End With  'DoodlerMasterForm.PenPicker1.FillButton7.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton7
      With .FillButton8
        .ForeColor := 1766878821
        .Move(4950, 825, 450, 450)
        .Picture := DoodlerMasterForm.PenPicker1.FillButton8.bitmap
        With .bitmap
          .ResId := 66984
        End With  'DoodlerMasterForm.PenPicker1.FillButton8.bitmap
      End With  'DoodlerMasterForm.PenPicker1.FillButton8
    End With  'DoodlerMasterForm.PenPicker1
    With .ShapePicker1
      .Caption := ""
      .ForeColor := 829645174
      .ZOrder := 2
      .Move(0, 0, 1020, 7005)
      .BorderStyle := "None"
      .MaxButton := False
      .ControlBox := False
      .Parent := DoodlerMasterForm
      .Visible := True
      With .ShapeButton1
        .ForeColor := 1148800288
        .Move(150, 150, 750, 750)
        .Picture := DoodlerMasterForm.ShapePicker1.ShapeButton1.bitmap
        .myobj := Nothing
        With .bitmap
          .ResId := 68636
        End With  'DoodlerMasterForm.ShapePicker1.ShapeButton1.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.ShapeButton1
      With .ShapeButton2
        .ForeColor := 538976288
        .Move(150, 1050, 750, 750)
        .BevelOuter := "Inset"
        .Picture := DoodlerMasterForm.ShapePicker1.ShapeButton2.bitmap
        .myobj := Nothing
        With .bitmap
          .ResId := 71272
        End With  'DoodlerMasterForm.ShapePicker1.ShapeButton2.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.ShapeButton2
      With .ShapeButton3
        .ForeColor := 774992737
        .Move(150, 1950, 750, 750)
        .BevelOuter := "Raised"
        .Picture := DoodlerMasterForm.ShapePicker1.ShapeButton3.bitmap
        .myobj := Nothing
        With .bitmap
          .ResId := 73868
        End With  'DoodlerMasterForm.ShapePicker1.ShapeButton3.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.ShapeButton3
      With .ShapeButton4
        .ForeColor := 538976288
        .Move(150, 2850, 750, 750)
        .Picture := DoodlerMasterForm.ShapePicker1.ShapeButton4.bitmap
        .myobj := Nothing
        With .bitmap
          .ResId := 76544
        End With  'DoodlerMasterForm.ShapePicker1.ShapeButton4.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.ShapeButton4
      With .BitmapButton1
        .ForeColor := 256
        .Move(150, 5550, 750, 750)
        .Picture := DoodlerMasterForm.ShapePicker1.BitmapButton1.bitmap
        With .bitmap
          .ResId := 79220
        End With  'DoodlerMasterForm.ShapePicker1.BitmapButton1.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.BitmapButton1
      With .ShapeButton5
        .ForeColor := 659005440
        .Move(165, 3750, 750, 750)
        .Picture := DoodlerMasterForm.ShapePicker1.ShapeButton5.bitmap
        .myobj := Nothing
        With .bitmap
          .ResId := 82100
        End With  'DoodlerMasterForm.ShapePicker1.ShapeButton5.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.ShapeButton5
      With .ShapeButton6
        .ForeColor := 1635151457
        .Move(150, 4650, 750, 750)
        .Picture := DoodlerMasterForm.ShapePicker1.ShapeButton6.bitmap
        .myobj := Nothing
        With .bitmap
          .ResId := 85724
        End With  'DoodlerMasterForm.ShapePicker1.ShapeButton6.bitmap
      End With  'DoodlerMasterForm.ShapePicker1.ShapeButton6
    End With  'DoodlerMasterForm.ShapePicker1
    With .helpfile
      .FileName := "C:\ENVELOP\arsenal\apps\doodler\doodler.hlp"
    End With  'DoodlerMasterForm.helpfile
  End With  'DoodlerMasterForm
End Code