InputWindow

[CCH4CLIPPER]

Hi

Are there any samples to show the usage of InputWindow() ?

TIA


CCH
http://cch4clipper.blogspot.com

[gfilatov]

Hi

Are there any samples to show the usage of InputWindow() ?

Hi CCH,

Sure.
Please take a look for the following procedure in MAINDEMO sample:

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

Hope that helps

[CCH4CLIPPER]

Hi gFilatov

TQVM for the prompt reply

BTW, off-topic does HMG Extended support Hb2.1 ?

Cheers !

CCH
http://cch4clipper.blogspot.com

[gfilatov]

...
BTW, off-topic does HMG Extended support Hb2.1 ?

Yes, of course!
The current build supports the Harbour 2.1.0rc1 and the next build will be supported the Harbour 2.1.0rc2