Looking good there Venge, Im fed up here, im altering some shader items in my menus, but my menus are a lot of code to setup, all this does is SOME of the Menus and Toolbars
CreateToolbarWin: ` Create MenuBar ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mMenuBar As Integer : mMenubar = CreateMenu(DBWin)
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mFile As Integer : mFile = CreateMenuSub(mMenubar,"&File" ,"" )
Global mNew As Integer : mNew = CreateMenuItem(mFile ,"&New" ,"" )
Global mOpen As Integer : mOpen = CreateMenuItem(mFile ,"&Open" ,"" )
Global mSave As Integer : mSave = CreateMenuItem(mFile ,"&Save" ,"" )
Global mSaveAs As Integer : mSaveAs = CreateMenuItem(mFile ,"Save &As" ,"" ) : AddMenuSplitter mFile
Global mExportDBCode As Integer : mExportDBCode = CreateMenuItem(mFile ,"Export DarkBasic Code","" ) : AddMenuSplitter mFile
Global mExit As Integer : mExit = CreateMenuItem(mFile ,"E&xit" ,"" )
Global mEdit As Integer : mEdit = CreateMenuSub(mMenubar,"&Edit" ,"" )
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mView As Integer : mView = CreateMenuSub(mMenubar,"&View" ,"" )
Global mShowStatusbar As Integer : mShowStatusbar = CreateMenuItem(mView ,"Show Statusbar" ,"" )
Global mShowToolbar As Integer : mShowToolbar = CreateMenuItem(mView ,"Show Toolbar" ,"" )
Global mShowTabs As Integer : mShowTabs = CreateMenuItem(mView ,"Show Tabs" ,"" ) : AddMenuSplitter mView
Global mShowProjectManager As Integer : mShowProjectManager = CreateMenuItem(mView ,"Show Project Manager" ,"" )
Global mShowProperties As Integer : mShowProperties = CreateMenuItem(mView ,"Show Properties" ,"" )
Global mShowNotes As Integer : mShowNotes = CreateMenuItem(mView ,"Show Project Notes" ,"" )
Global mShowCamWin As Integer : mShowCamWin = CreateMenuItem(mView ,"Show Camera Controls" ,"" ) : AddMenuSplitter mView
Global mSystemProperties As Integer : mSystemProperties = CreateMenuItem(mView ,"Change System Theme" ,AppPath$+"Images\Theme.bmp")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mTools As Integer : mTools = CreateMenuSub(mMenubar,"&Tools" ,"" )
Dim mToolDim(10) As Integer : Set Dir AppPath$+"Tools\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mToolDim()
mToolDim(Array Count(mToolDim())) = CreateMenuItem(mTools,Checklist String$(Value),"")
Next Value : Empty Checklist
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mWindow As Integer : mWindow = CreateMenuSub(mMenubar,"&Window" ,"" )
Global mWindowAlignL As Integer : mWindowAlignL = CreateMenuItem(mWindow,"Align &Left" ,"" )
Global mWindowAlignR As Integer : mWindowAlignR = CreateMenuItem(mWindow,"Align &Right" ,"" )
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mHelp As Integer : mHelp = CreateMenuSub(mMenubar,"&Help" ,"" )
Global mHelpReport As Integer : mHelpReport = CreateMenuItem(mHelp ,"Report A Problem" ,"" )
Global mHelpAbout As Integer : mHelpAbout = CreateMenuItem(mHelp ,"About" ,"" )
` Main Toolbar ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ToolbarItemCount = -1
Global Toolbar As Integer : Toolbar = CreateToolbar(DBWin) : AddStandardToolbarButtons toolbar
Global ToolbarNewProject As Integer : ToolbarNewProject = ToolbarItemCount+1 : AddToolbarButton Toolbar,TOOLBAR_NEW ,0,"New Project" : Inc ToolbarItemCount,1
Global ToolbarOpenProject As Integer : ToolbarOpenProject = ToolbarItemCount+1 : AddToolbarButton toolbar,TOOLBAR_OPEN,0,"Open Project" : Inc ToolbarItemCount,1
Global ToolbarSaveProject As Integer : ToolbarSaveProject = ToolbarItemCount+1 : AddToolbarButton toolbar,TOOLBAR_SAVE,0,"Save Project" : Inc ToolbarItemCount,1 : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarDarkBasic As Integer : ToolbarDarkBasic = AddToolbarBtn(Toolbar,AppPath$+"Images/DarkBasic.bmp" ,1,"View Game Code" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarPhysicsOnOff As Integer : ToolbarPhysicsOnOff = AddToolbarBtn(Toolbar,AppPath$+"Images/Physics.bmp" ,1,"Enable\Disable Physics" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarShadows As Integer : ToolbarShadows = AddToolbarBtn(Toolbar,AppPath$+"Images/Shadow.bmp" ,1,"Enable\Disable Shadows" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarCamFPS As Integer : ToolbarCamFPS = AddToolbarBtn(Toolbar,AppPath$+"Images/Cam FPS.bmp" ,1,"Set Camera to FPS Position")
Global ToolbarCamRPG As Integer : ToolbarCamRPG = AddToolbarBtn(Toolbar,AppPath$+"Images/Cam RPG.bmp" ,1,"Set Camera to RPG Position") : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarAVI As Integer : ToolbarAVI = AddToolbarBtn(Toolbar,AppPath$+"Images/AVI.bmp" ,0,"Media Capture Controls" ) : AddToolbarSplitter Toolbar : Inc ToolbarItemCount,1
Global ToolbarHelpBtn As Integer : ToolbarHelpBtn = ToolbarItemCount+1 : AddToolbarButton Toolbar,TOOLBAR_HELP,0,"Help" : Inc ToolbarItemCount,1
Global mAVI As Integer : mAVI = CreatePopupMenu()
Global mAVIStartStop As Integer : mAVIStartStop = CreateMenuItem(mAVI,"Start Recording AVI" ,"")
Global mAVIOpen As Integer : mAVIOpen = CreateMenuItem(mAVI,"Open My Recorded Videos","") : AddMenuSplitter mAVI
Global mScreenshot As Integer : mScreenshot = CreateMenuItem(mAVI,"Take Screenshot" ,"")
Global mScreenshotOpen As Integer : mScreenshotOpen = CreateMenuItem(mAVI,"Open My Screenshots" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global Tabs As Integer : Tabs = CreateTabs(0,GadgetClientHeight(Toolbar),9000,45,DBWin) : SetPanelBorderStyle Tabs,BORDER_NONE
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Default Objects" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AddStandardToolbarButtons toolbar : ToolbarItemCount = -1
Global ToolbarObjects As Integer : ToolbarObjects = CreateToolbar(Panel) : AttachGadget Tabs,0,Panel : AddStandardToolbarButtons ToolbarObjects
Global ToolbarObjectLoad As Integer : ToolbarObjectLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarObjects,TOOLBAR_OPEN,0,"Import Object" : Inc ToolbarItemCount,1 : AddToolbarSplitter ToolbarObjects : Inc ToolbarItemCount,1
Global ToolbarObjectFPSC As Integer : ToolbarObjectFPSC = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/FPSC.bmp" ,0,"Import Last Created FPSC Level")
Global ToolbarObjectEntity As Integer : ToolbarObjectEntity = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Entity.bmp" ,0,"Import FPSC Entity" ) : AddToolbarSplitter ToolbarObjects : Inc ToolbarItemCount,1
Global ToolbarObjectBox As Integer : ToolbarObjectBox = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Box.bmp" ,0,"Create Object Box" )
Global ToolbarObjectSphere As Integer : ToolbarObjectSphere = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Sphere.bmp" ,0,"Create Object Sphere" )
Global ToolbarObjectCylinder As Integer : ToolbarObjectCylinder = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Cylinder.bmp",0,"Create Object Cylinder")
Global ToolbarObjectCone As Integer : ToolbarObjectCone = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Cone.bmp" ,0,"Create Object Cone" ) : AddToolbarSplitter ToolbarObjects : Inc ToolbarItemCount,1
Global ToolbarObjectPlain As Integer : ToolbarObjectPlain = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Plain.bmp" ,0,"Create Object Plain" )
Global ToolbarObjectTriangle As Integer : ToolbarObjectTriangle = AddToolbarBtn(ToolbarObjects,AppPath$+"Images/Triangle.bmp",0,"Create Object Triangle")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Terrain" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,1,Panel : ToolbarItemCount = -1
Global ToolbarTerrain As Integer : ToolbarTerrain = CreateToolbar(Panel) : AddStandardToolbarButtons ToolbarTerrain
Global ToolbarTerrainLoad As Integer : ToolbarTerrainLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarTerrain,TOOLBAR_OPEN ,0,"Create Terain" : Inc ToolbarItemCount,1
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"BSP World" : Panel = createPanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,2,Panel : ToolbarItemCount = -1
Global ToolbarBSP As Integer : ToolbarBSP = CreateToolbar(Panel) : AddStandardToolbarButtons ToolbarBSP
Global ToolbarBSPLoad As Integer : ToolbarBSPLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarBSP,TOOLBAR_OPEN ,0,"Import a BSP World File" : Inc ToolbarItemCount,1
Global ToolbarBSPDelete As Integer : ToolbarBSPDelete = ToolbarItemCount+1 : AddToolbarButton ToolbarBSP,TOOLBAR_DELETE,0,"Delete the a BSP" : Inc ToolbarItemCount,1
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Lights" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,3,Panel : ToolbarItemCount = -1
Global ToolbarLight As Integer : ToolbarLight = CreateToolbar(Panel)
Global ToolbarLightAdd As Integer : ToolbarLightAdd = AddToolbarBtn(ToolbarLight,AppPath$+"Images/Empty.bmp",0,"Add a Light Source")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
AddTab Tabs,"Sky" : Panel = CreatePanel(0,18,9000,30,Tabs) : SetPanelBorderStyle Panel,BORDER_NONE : AttachGadget Tabs,4,Panel : ToolbarItemCount = -1
Global ToolbarSky As Integer : ToolbarSky = CreateToolbar(Panel) : AddStandardToolbarButtons ToolbarSky
Global ToolbarSkyLoad As Integer : ToolbarSkyLoad = ToolbarItemCount+1 : AddToolbarButton ToolbarSky,TOOLBAR_OPEN,0,"Change SkySphere" : Inc ToolbarItemCount,1
Global ToolbarSkyDelete As Integer : ToolbarSkyDelete = ToolbarItemCount+1 : AddToolbarButton ToolbarSky,TOOLBAR_DELETE,0,"Delete SkySphere" : Inc ToolbarItemCount,1
` Create Statusbar ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global Statusbar As Integer : Statusbar = CreateStatusBar(DBWin)
Global StatusPanel_ActiveTool As Integer : StatusPanel_ActiveTool = 1 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_ActiveTool ,"Active Tool"
Global StatusPanel_ItemsSelected As Integer : StatusPanel_ItemsSelected = 2 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_ItemsSelected,"0 Items Selected"
Global StatusPanel_PolyCount As Integer : StatusPanel_PolyCount = 3 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_PolyCount ,"On Screen Poly Count = 0"
Global StatusPanel_CameraView As Integer : StatusPanel_CameraView = 4 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_CameraView ,"Camera View = FPS"
Global StatusPanel_FPS As Integer : StatusPanel_FPS = 5 : AddStatusPanel Statusbar,200 : SetStatusText Statusbar,StatusPanel_FPS ,"FPS = 0"
` Create Right Click Menu's ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mSkySphere As Integer : mSkySphere = CreatePopupMenu()
Global mSkySphereChange As Integer : mSkySphereChange = CreateMenuItem(mSkySphere ,"Change SkySphere" ,"")
Global mSkySphereRemove As Integer : mSkySphereRemove = CreateMenuItem(mSkySphere ,"Remove SkySphere" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mSkySphere2 As Integer : mSkySphere2 = CreatePopupMenu()
Global mSkySphereAdd As Integer : mSkySphereAdd = CreateMenuItem(mSkySphere2,"Add SkySphere" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mObject As Integer : mObject = CreatePopupMenu()
Global mObjectPreview As Integer : mObjectPreview = CreateMenuItem(mObject ,"Preview Object" ,"") : AddMenuSplitter mObject
Global mObjectTile As Integer : mObjectTile = CreateMenuItem(mObject ,"Tile Object" ,"")
Global mObjectClone As Integer : mObjectClone = CreateMenuItem(mObject ,"Clone Object" ,"") : AddMenuSplitter mObject
Global mObjectPosition As Integer : mObjectPosition = CreateMenuItem(mObject ,"Position Object" ,"")
Global mObjectRotate As Integer : mObjectRotate = CreateMenuItem(mObject ,"Rotate Object" ,"")
Global mObjectResize As Integer : mObjectResize = CreateMenuItem(mObject ,"Resize Object" ,"") : AddMenuSplitter mObject
Global mObjectTexturing As Integer : mObjectTexturing = CreateMenuSub(mObject ,"Object Texture" ,"")
Global mObjectTexture As Integer : mObjectTexture = CreateMenuItem(mObjectTexturing,"Select Object Texture" ,"")
Global mObjectRemoveTexture As Integer : mObjectRemoveTexture = CreateMenuItem(mObjectTexturing,"Remove Object Texture" ,"")
Global mObjectEditTexture As Integer : mObjectEditTexture = CreateMenuItem(mObjectTexturing,"Edit Object Texture" ,"")
Global mObjectColor As Integer : mObjectColor = CreateMenuItem(mObject ,"Color Object" ,"") : AddMenuSplitter mObject
Global mObjectShaders As Integer : mObjectShaders = CreateMenuSub(mObject ,"Shaders" ,"") : AddMenuSplitter mObject
Global mObjectSHologram As Integer : mObjectSHologram = CreateMenuItem(mObjectShaders ,"Hologram White" ,"")
Global mObjectSPhongHologram As Integer : mObjectSPhongHologram = CreateMenuItem(mObjectShaders ,"Hologram Blue" ,"")
Global mObjectSUFOGlass As Integer : mObjectSUFOGlass = CreateMenuItem(mObjectShaders ,"Crystal And Glass" ,"")
Global mObjectSCartoon As Integer : mObjectSCartoon = CreateMenuItem(mObjectShaders ,"Cartoon" ,"")
Global mObjectSMetal As Integer : mObjectSMetal = CreateMenuItem(mObjectShaders ,"Metal" ,"")
Global mObjectSSphereMapping As Integer : mObjectSSphereMapping = CreateMenuItem(mObjectShaders ,"Sphere Mapping" ,"")
Global mObjectSReliefMapping As Integer : mObjectSRelief = CreateMenuSub( mObjectShaders ,"Relief Mapping" ,"")
Global mObjectSReliefMappingOpen As Integer : mObjectSReliefOpen = CreateMenuItem(mObjectSRelief ,"Open Relief Mapping Image" ,"") : AddMenuSplitter mObjectSRelief
Dim mShaderReliefDim(0) As Integer : Set Dir AppPath$+"Resources\FX\Relief Mapping\Defaults\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mShaderReliefDim()
mShaderReliefDim(Array Count(mShaderReliefDim())) = CreateMenuItem(mObjectSRelief,Checklist String$(Value),"")
Next Value : Empty Checklist
Global mObjectSOffsetMapping As Integer : mObjectSOffsetMapping = CreateMenuItem(mObjectShaders ,"Rock Wall, (Offset Mapping)" ,"")
Global mObjectSFallingCover As Integer : mObjectSFallingCover = CreateMenuSub( mObjectShaders ,"Falling Cover" ,"")
Global mObjectSFallingCoverOpen As Integer : mObjectSFallingCoverOpen = CreateMenuItem(mObjectSFallingCover,"Open Falling Cover Texture" ,"") : AddMenuSplitter mObjectSFallingCover
Dim mShaderFallingCoverDim(0) As Integer : Set Dir AppPath$+"Resources\FX\Falling Cover\Defaults\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mShaderFallingCoverDim()
mShaderFallingCoverDim(Array Count(mShaderFallingCoverDim())) = CreateMenuItem(mObjectSFallingCover,Fast Left$(Checklist String$(Value),Len(Checklist String$(Value))-4),"")
Next Value : Empty Checklist
Global mObjectSFur As Integer : mObjectSFur = CreateMenuSub( mObjectShaders ,"Fur" ,"")
Global mObjectSReliefMappingOpen As Integer : mObjectSReliefOpen = CreateMenuItem(mObjectSFur ,"Open Fur Mask Image" ,"") : AddMenuSplitter mObjectSFur
Dim mShaderFurDim(0) As Integer : Set Dir AppPath$+"Resources\FX\Fur\Defaults\" : Perform Checklist For Files
For Value = 3 to Checklist Quantity() : Add To Stack mShaderFurDim()
mShaderFurDim(Array Count(mShaderFurDim())) = CreateMenuItem(mObjectSFur,Fast Left$(Checklist String$(Value),Len(Checklist String$(Value))-4),"")
Next Value : Empty Checklist
Global mObjectSReflection As Integer : mObjectSReflection = CreateMenuItem(mObjectShaders ,"Reflection" ,"")
Global mObjectCull As Integer : mObjectCull = CreateMenuItem(mObject ,"Cull Object" ,"")
Global mObjectGhost As Integer : mObjectGhost = CreateMenuItem(mObject ,"Ghost Object" ,"")
Global mObjectReflective As Integer : mObjectReflective = CreateMenuItem(mObject ,"Reflective" ,"")
Global mObjectWireFrame As Integer : mObjectWireFrame = CreateMenuItem(mObject ,"WireFrame" ,"")
Global mObjectBounds As Integer : mObjectBounds = CreateMenuItem(mObject ,"Bounds" ,"") : AddMenuSplitter mObject
Global mObjectAnim As Integer : mObjectAnim = CreateMenuSub(mObject ,"Animation" ,"") : AddMenuSplitter mObject
Global mObjectAnimPlay As Integer : mObjectAnimPlay = CreateMenuItem(mObjectAnim ,"Play" ,"")
Global mObjectAnimPause As Integer : mObjectAnimPause = CreateMenuItem(mObjectAnim ,"Pause" ,"")
Global mObjectAnimStop As Integer : mObjectAnimStop = CreateMenuItem(mObjectAnim ,"Stop" ,"") : AddMenuSplitter mObjectAnim
Global mObjectAnimNext As Integer : mObjectAnimNext = CreateMenuItem(mObjectAnim ,"Next Frame" ,"")
Global mObjectAnimPrevious As Integer : mObjectAnimPrevious = CreateMenuItem(mObjectAnim ,"Previous Frame" ,"")
Global mObjectSave As Integer : mObjectSave = CreateMenuSub(mObject ,"Export Object" ,"")
Global mObjectSaveDBO As Integer : mObjectSaveDBO = CreateMenuItem(mObjectSave ,"Export DarkBasic Object (dbo)","")
Global mObjectSaveX As Integer : mObjectSaveX = CreateMenuItem(mObjectSave ,"Export DirectX Object (x)" ,"")
Global mObjectFPSCExport As Integer : mObjectFPSCExport = CreateMenuItem(mObjectSave ,"Export FPSC Entity" ,"") : AddMenuSplitter mObject
Global mObjectDelete As Integer : mObjectDelete = CreateMenuItem(mObject ,"Delete Object" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Global mLight As Integer : mLight = CreatePopupMenu()
Global mLightClone As Integer : mLightClone = CreateMenuItem(mLight ,"Clone Light" ,"") : AddMenuSplitter mLight
Global mLightPosition As Integer : mLightPosition = CreateMenuItem(mLight ,"Position Light" ,"")
Global mLightRotate As Integer : mLightRotate = CreateMenuItem(mLight ,"Rotate Light" ,"")
Global mLightColor As Integer : mLightColor = CreateMenuItem(mLight ,"Color Light" ,"") : AddMenuSplitter mLight
Global mLightDelete As Integer : mLightDelete = CreateMenuItem(mLight ,"Delete Light" ,"")
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Return
` ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Editor is over 4500 lines of code
Everyone Be Cool, You, Be Cool.