Hi Marcos
STATIC FUNCTION PassWord()
Local oDialog
Local oLabelMessage
Local oLabelUser
Local oLineEditUser
Local oLabelPassword
Local oLineEditPassword
Local oButtonOk
Local r
oDialog := QDialog():New()
oDialog:setWindowTitle("Login")
oDialog:resize(210,130)
oLabelMessage := QLabel():New( oDialog)
oLabelMessage:setText("Enter your password...")
oLabelMessage:move(10,10)
oLabelUser := QLabel():New( oDialog )
oLabelUser:setText("User")
oLabelUser:move(10,30)
oLineEditUser := QLineEdit():New( oDialog )
oLineEditUser:setMaxLength(15)
oLineEditUser:move(60,30)
oLabelPassword := QLabel():New( oDialog )
oLabelPassword:setText("Password")
oLabelPassword:move(10,60)
oLineEditPassWord := QLineEdit():New( oDialog )
oLineEditPassWord:setEchoMode(2)
oLineEditPassWord:setMaxLength(15)
oLineEditPassword:move(60,60)
oButtonOk := QPushButton():New( oDialog )
oButtonOk:setText("OK")
oButtonOk:move(100,90)
Qt_Connect_Signal( oButtonOk, "clicked()",
{||IIF(oLineEditUser:text()=="user".and.oLineEditPassword:text()=="password",oDialog:done(1),oDialog:done(0))
})
r := oDialog:exec()
Return IIF(r==1,.t.,.f.)
QT_PTROF() is not required anymore for HBQT objects,
though it does not harm anyway.
Regards
Pritpal Bedi
--
View this message in context:
http://old.nabble.com/Window-Main-X-Window-Modal-X-HBQT-tp26818868p26848159.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
