form.pbf

; Form Designer for Purebasic - 5.31
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.

;
; 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.
;

Global Dots, Squares, Proced

Enumeration FormWindow
  #wnd
EndEnumeration

Enumeration FormGadget
  #Add
  #Move
  #Fill
  #AddClickArea
  #Squares2btns
  #DelDot
  #Random
  #Hide
  #Clear
  #Save
  #Open
  #GADGET_Color
  #editor2canvas
  #stopLine
  #canva
  #editor
  #editor2proc
  #editorSquares
  #squares2canvas
  #squares
  #Procedure2copy
EndEnumeration


Procedure Openwnd(x = #PB_Ignore, y = #PB_Ignore, width = 910, height = 360)
  OpenWindow(#wnd, x, y, width, height, name$, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_ScreenCentered)
  CreateStatusBar(0, WindowID(#wnd))
  AddStatusBarField(910)
  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(#Squares2btns, 0, 300, 100, 30, "Squares2btns")
  ButtonGadget(#DelDot, 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, 0)
  ButtonGadget(#editor2canvas, 400, 300, 120, 30, "Dots → Canvas")
  ButtonGadget(#stopLine, 0, 30, 100, 30, "Stop Line")
  CanvasGadget(#canva, 100, 0, 300, 300)
  EditorGadget(#editor, 400, 30, 150, 270)
  EditorGadget(#editor2proc, 700, 30, 210, 270)
  EditorGadget(#editorSquares, 550, 30, 150, 270)
  Dots = TextGadget(#PB_Any, 440, 0, 50, 25, "Dots")
  Squares = TextGadget(#PB_Any, 590, 0, 60, 25, "Squares")
  ButtonGadget(#squares2canvas, 550, 300, 120, 30, "Squares → Canvas")
  ButtonGadget(#squares, 300, 300, 100, 30, "4squares")
  Proced = TextGadget(#PB_Any, 750, 0, 100, 25, "Procedure2copy")
  ButtonGadget(#Procedure2copy, 700, 300, 120, 30, "Generate Procedure")
EndProcedure