drop-dot-form.pbf

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Enumeration FormWindow
  #wnd
EndEnumeration

Enumeration FormGadget
  #Add
  #Move
  #Fill
  #AddClickArea
  #Delete
  #Random
  #Hide
  #Clear
  #Save
  #Open
  #GADGET_Color
  #IMAGE_Color
  #editor2canvas
  #stopLine
  #canva
  #editor
  #editor2proc
  #Squares2btns
EndEnumeration


Procedure Openwnd(x = #PB_Ignore, y = #PB_Ignore, width = 730, height = 360)
  OpenWindow(#wnd, x, y, width, height, name$, #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CreateStatusBar(0, WindowID(#wnd))
  AddStatusBarField(300)
  ButtonGadget(#Add, 0, 0, 100, 30, "Add Line")
  ButtonGadget(#Move, 0, 60, 100, 30, "Move Dot")
  ButtonGadget(#Fill, 0, 120, 100, 30, "Fill")
  ButtonGadget(#AddClickArea, 0, 270, 100, 30, "AddClickArea")
  ButtonGadget(#Delete, 0, 90, 100, 30, "Delete Dot")
  ButtonGadget(#Random, 0, 180, 100, 30, "Random")
  CheckBoxGadget(#Hide, 10, 150, 90, 30, "Hide Dots")
  ButtonGadget(#Clear, 0, 210, 100, 30, "Clear")
  ButtonGadget(#Save, 100, 300, 100, 30, "Save")
  ButtonGadget(#Open, 200, 300, 100, 30, "Open")
  ButtonImageGadget(#GADGET_Color, 0, 240, 100, 30, #IMAGE_Color)
  ButtonGadget(#editor2canvas, 400, 300, 120, 30, "Editor → Canvas")
  ButtonGadget(#stopLine, 0, 30, 100, 30, "Stop Line")
  CanvasGadget(#canva, 100, 0, 300, 300)
  EditorGadget(#editor, 400, 0, 120, 300)
  EditorGadget(#editor2proc, 520, 0, 210, 337)
  CheckBoxGadget(#Squares2btns, 10, 300, 90, 30, "Squares 2 Btns")
EndProcedure

Procedure wnd_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure