It's the standard code that your editor outputs:
sync on
VUpdateGUI
Form1 = VCreateWindow(vWINDOW_FORM,1,0)
VSetWindowRectangle Form1,73,51,271,221
VSetWindowText Form1,"MyForm"
VSetWindowTextColor Form1,0xFF000000
VSetWindowColor Form1,0xC86496FF
VSetWindowBorderStyle Form1,vBORDER_OUT
VSetWindowBorderLight Form1,0xFF96C8FF
VSetWindowBorderDark Form1,0xFF0000C8
VSetWindowTextAlign Form1,vALIGN_LEFT
VSetFormDragFlags Form1,vDRAG_FLAG_VISIBLE or vDRAG_FLAG_ENABLED
VSetFormDragColor Form1,0xFF0000FF
Button1 = VCreateWindow(vWINDOW_BUTTON,3,0)
VSetWindowRectangle Button1,457,76,247,163
VSetWindowText Button1,"MyButton"
VSetWindowTextColor Button1,0xFF000000
VSetWindowColor Button1,0xC86496FF
VSetWindowBorderStyle Button1,vBORDER_POPOUT
VSetWindowBorderLight Button1,0xFFFFFFFF
VSetWindowBorderDark Button1,0xFF000000
VSetWindowTextAlign Button1,vALIGN_CENTER
VSetButtonPressedBorderStyle Button1,vBORDER_POPIN
VSetButtonPressedBorderLight Button1,0xFFFFFFFF
VSetButtonPressedBorderDark Button1,0xFF000000
VSetButtonHoverBorderStyle Button1,vBORDER_POPOUT
VSetButtonHoverBorderLight Button1,0xFFFFC896
VSetButtonHoverBorderDark Button1,0xFF643200
VSetButtonPressedColor Button1,0xFF6496FF
VSetButtonHoverColor Button1,0xFF96C8FF
Panel1 = VCreateWindow(vWINDOW_PANEL,5,0)
VSetWindowRectangle Panel1,116,318,274,211
VSetWindowText Panel1,"MyPanel"
VSetWindowTextColor Panel1,0xFF000000
VSetWindowColor Panel1,0xC86496FF
VSetWindowBorderStyle Panel1,vBORDER_SINGLE
VSetWindowBorderLight Panel1,0xFF96C8FF
VSetWindowBorderDark Panel1,0xFF0000C8
VSetWindowTextAlign Panel1,vALIGN_LEFT
Textbox1 = VCreateWindow(vWINDOW_TEXTBOX,7,0)
VSetWindowRectangle Textbox1,467,273,272,212
VSetWindowText Textbox1,""
VSetWindowTextColor Textbox1,0xFF000000
VSetWindowColor Textbox1,0xC86496FF
VSetWindowBorderStyle Textbox1,vBORDER_SINGLE
VSetWindowBorderLight Textbox1,0xFF96C8FF
VSetWindowBorderDark Textbox1,0xFF0000C8
VSetWindowTextAlign Textbox1,vALIGN_LEFT
VSetTextboxSelectionStart Textbox1,0
VSetTextboxSelectionEnd Textbox1,9
VSetTextboxActiveSelectionColor Textbox1,0xFF646464
VSetTextboxInactiveSelectionColor Textbox1,0x64646464
VSetTextboxInactiveTextColor Textbox1,0xFF191919
VSetTextboxCursorColor Textbox1,0xFF000000
Label1 = VCreateWindow(vWINDOW_LABEL,9,0)
VSetWindowRectangle Label1,493,576,63,22
VSetWindowText Label1,"MyLabel"
VSetWindowTextColor Label1,0xFF000000
VSetWindowColor Label1,0x0
VSetWindowBorderStyle Label1,vBORDER_NONE
VSetWindowBorderLight Label1,0xFF96C8FF
VSetWindowBorderDark Label1,0xFF0000C8
VSetWindowTextAlign Label1,vALIGN_LEFT
Slider1 = VCreateWindow(vWINDOW_SLIDER,11,0)
VSetWindowRectangle Slider1,233,621,159,42
VSetWindowText Slider1,"MySlider"
VSetWindowTextColor Slider1,0xFF000000
VSetWindowColor Slider1,0x0
VSetWindowBorderStyle Slider1,vBORDER_NONE
VSetWindowBorderLight Slider1,0xFF96C8FF
VSetWindowBorderDark Slider1,0xFF0000C8
VSetWindowTextAlign Slider1,vALIGN_CENTER
VSetSliderVertical Slider1,0
VSetSliderLineColor Slider1,0xFF000000
VSetSliderLines Slider1,10
VSetSliderMaximum Slider1,100
VSetSliderMinimum Slider1,0
VSetSliderPointed Slider1,1
VSetSliderValue Slider1,50
VSetSliderSlideColor Slider1,0xFF000000
VSetSliderSliderColor Slider1,0xFF96C8FF
VSetSliderSnap Slider1,1
VSetSliderSwitch Slider1,0
VSetSliderTextBottom Slider1,0
Tab1 = VCreateWindow(vWINDOW_TAB,13,0)
VSetWindowRectangle Tab1,549,655,225,95
VSetWindowText Tab1,"MyTabWindow"
VSetWindowTextColor Tab1,0xFF000000
VSetWindowColor Tab1,0xC86496FF
VSetWindowBorderStyle Tab1,vBORDER_SINGLE
VSetWindowBorderLight Tab1,0xFF96C8FF
VSetWindowBorderDark Tab1,0xFF0000C8
VSetWindowTextAlign Tab1,vALIGN_LEFT
VSetTabMargin Tab1,5
VSetTabHeight Tab1,16
VSetTabColor Tab1,0xC86496FF
VSetTabHoverColor Tab1,0xFF96C8FF
VSetTabSelectedColor Tab1,0xFF6496FF
VSetTabBorderStyle Tab1,vBORDER_SINGLE
VSetTabBorderLight Tab1,0xFF000000
VSetTabBorderDark Tab1,0xFF000000
VSetTabHoverBorderStyle Tab1,vBORDER_SINGLE
VSetTabHoverBorderLight Tab1,0xFFFFC864
VSetTabHoverBorderDark Tab1,0xFF000000
VSetTabSelectedBorderStyle Tab1,vBORDER_NONE
VSetTabSelectedBorderLight Tab1,0xFF000000
VSetTabSelectedBorderDark Tab1,0xFF000000
VSetTabSelectedIndex Tab1,-1
Tabpage1 = VCreateWindow(vWINDOW_TABPAGE,15,0)
VSetWindowRectangle Tabpage1,619,535,177,87
VSetWindowText Tabpage1,"MyTabPage"
VSetWindowTextColor Tabpage1,0xFF000000
VSetWindowColor Tabpage1,0xC86496FF
VSetWindowBorderStyle Tabpage1,vBORDER_SINGLE
VSetWindowBorderLight Tabpage1,0xFF96C8FF
VSetWindowBorderDark Tabpage1,0xFF0000C8
VSetWindowTextAlign Tabpage1,vALIGN_LEFT
do
rem << CODE >>
VUpdateGUI
sync
cls 0
loop
end
remstart
____ViewGUI_USER_CONSTANTS____
Include this in your ViewGUI projects
to make your code more readable!
remend
rem WINDOW TYPES
#constant vWINDOW_FORM 1
#constant vWINDOW_BUTTON 2
#constant vWINDOW_PANEL 3
#constant vWINDOW_TEXTBOX 4
#constant vWINDOW_LABEL 5
#constant vWINDOW_SLIDER 6
#constant vWINDOW_TAB 7
#constant vWINDOW_TABPAGE 8
#constant vWINDOW_CHECKBOX 9
#constant vWINDOW_MENUBAR 10
#constant vWINDOW_SCROLLBAR 11
#constant vWINDOW_FRAME 12
#constant vWINDOW_OPTION 13
rem BORDER STYLES
#constant vBORDER_NONE 0
#constant vBORDER_SINGLE 1
#constant vBORDER_POPIN 2
#constant vBORDER_POPOUT 3
#constant vBORDER_DOUBLE 4
#constant vBORDER_IN 5
#constant vBORDER_OUT 6
#constant vBORDER_SMOOTH 7
#constant vBORDER_CUSTOM 8
rem TEXT ALIGN
#constant vALIGN_LEFT 0
#constant vALIGN_CENTER 1
#constant vALIGN_RIGHT 2
rem MEDIA TYPES
#constant vMEDIA_TYPE_CUSTOM 0
#constant vMEDIA_TYPE_IMAGE 1
#constant vMEDIA_TYPE_SPRITE 2
#constant vMEDIA_TYPE_BITMAP 3
rem DRAG FLAGS
#constant vDRAG_FLAG_VISIBLE 1
#constant vDRAG_FLAG_ENABLED 2
rem CHECK STATES
#constant vCHECKSTATE_UNCHECKED 0
#constant vCHECKSTATE_CHECKED 1
#constant vCHECKSTATE_PARTIAL 2
rem BOOL
`#constant FALSE 0
`#constant TRUE 1
rem DLL INCLUDES (Ignore these, but they must be here)
d3d_init
a$ = fast left$("",0)
a = scancode()
a$ = entry$()
a = max(0,0)
cls 0
a = set alpha(0,0) `Only needed for sliders or frames
set current bitmap 0 `Only needed for panels with bitmaps, or frames
I'm probably going to reinstall DBPro tonight and see if that fixes it.
