Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
Hi CCH,CCH4CLIPPER wrote:Hi
Are there any samples to show the usage of InputWindow() ?
Code: Select all
*-----------------------------------------------------------------------------*
Procedure InputWindow_Click
*-----------------------------------------------------------------------------*
Local Title , aLabels , aInitValues , aFormats , aResults
Title := 'InputWindow Test'
aLabels := { 'Field 1:' , 'Field 2:' ,'Field 3:' ,'Field 4:' ,'Field 5:' ,'Field 6:' }
aInitValues := { 'Init Text' , .t. ,2 , Date() , 12.34 ,'Init text' }
aFormats := { 20 , Nil ,{'Option 1','Option 2'}, Nil , '99.99' , 50 }
aResults := InputWindow ( Title , aLabels , aInitValues , aFormats )
If aResults [1] == Nil
MsgInfo ('Canceled','InputWindow')
Else
MsgInfo ( aResults [1] , aLabels [1] )
MsgInfo ( iif ( aResults [2] ,'.T.','.F.' ) , aLabels [2] )
MsgInfo ( Str ( aResults [3] ) , aLabels [3] )
MsgInfo ( DTOC ( aResults [4] ) , aLabels [4] )
MsgInfo ( Str ( aResults [5] ) , aLabels [5] )
MsgInfo ( aResults [6] , aLabels [6] )
EndIf
Return Nil
Yes, of course!CCH4CLIPPER wrote:...
BTW, off-topic does HMG Extended support Hb2.1 ?