I have been trying to resize windows to make a simple business program. Everytime I try to use any other window command other than "SET WINDOW TITLE", it ignores all of the Blue GUI panels,gadgets,labels,etc and just gives me a black window. The only way I get it to work is to not create a window and just use the DBPro default window.
NOTE(You'll need your own Blue GUI include/start blue code)
`Variables to hold gadget handles
GLOBAL Passwordpanel
GLOBAL UserTxtBox
GLOBAL PassTxtBox
GLOBAL UserLabel
GLOBAL PassLabel
GLOBAL EnterButton
GLOBAL ExitButton
GLOBAL PasswordStore AS STRING
PasswordStore = "Katie"
`Background Panel
SET WINDOW TITLE "Enter Password"
Passwordpanel=CREATEPANEL(0,0,700,500,0)
`create text entry/descriptive labels
UserLabel=CREATELABEL(100,200,100,20,"Enter User Name",Passwordpanel)
PassLabel=CREATELABEL(100,250,100,20,"Enter Password",Passwordpanel)
`create text boxes for entry
UserTxtBox=CREATEEDIT(250,200,250,20,0,Passwordpanel)
PassTxtBox=CREATEEDIT(250,250,250,20,0,Passwordpanel)
`create access button/exit button
EnterButton=CREATEBUTTON(275,300,75,25,"Enter",0,Passwordpanel)
ExitButton =CREATEBUTTON(400,300,75,25,"Exit",0,Passwordpanel)
DO
GETEVENT
IF EVENTTYPE()= Mouse_Click
IF eventSource()=EnterButton
IF GETGADGETTEXT(PassTxtBox) = PasswordStore
MESSAGE "password matches"
`MainProgram()
EXIT
ENDIF
MESSAGE "Invalid password"
ENDIF
ENDIF
ENDIF
IF EVENTTYPE()= Mouse_Click
IF EVENTSOURCE()=ExitButton
END
ENDIF
ENDIF
LOOP
This works fine. But when I try to remove the min/max buttons or resize the window it gives me just a black window instead of what I want. What can I do?
LIFE: "That thing that happens to us when we are too young to die"
~V.J.C. 2003
