Projet visual scripting
Publié : sam. 06/juil./2019 15:59
Voila je me lance un projet un peux fou, un visual scripting pour pb. La je travail sur le module de rendu des que je partagerais peut être si cela intéresse certaines personnes et en voici un petit aperçu.
Code : Tout sélectionner
; ***********************************************************************************************
; AUTHOR : microDevWeb
; PROJECT : PB BOARD
; TEST : main.pb
; VERSION : 1.0
; DESIGNED WITH : PB 5.71
; DATE : 2019/07/04
; ***********************************************************************************************
XIncludeFile "BOARD\PACKAGES\BOARD\BOARD.pbi"
XIncludeFile "BOARD\PACKAGES\BOX\BOX.pbi"
#FORM = 0
#CONTAINER = 0
Define flags = #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|
#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget
OpenWindow(#FORM,0,0,800,600,"Test",flags)
ContainerGadget(#CONTAINER,0,0,800,600,#PB_Container_BorderLess)
CloseGadgetList()
Global myBoard.BOARD::BOARD = BOARD::newBoard(#CONTAINER)
Global mt.BOX::MethodBox = BOX::newMethodBox("getName",50,50)
Global v1.BOX::VariableBox = BOX::newVariableBox("name",250,250)
Global v2.BOX::VariableBox = BOX::newVariableBox("name",250,150)
mt\addMeToBoard(myBoard)
v1\addMeToBoard(myBoard)
v2\addMeToBoard(myBoard)
myBoard\build()
Repeat
WaitWindowEvent()
Until Event() = #PB_Event_CloseWindow
