HMGforum.com

esgici wrote: Sorry for inaccurate information

esgici wrote:Hi Dave

bpd2000 wrote: Where to find more about HB_Default()

Thank to your interest and nice words

Sadly not found (at least I don't know) any documentation about HB_Default()

FUNCTION myfun( xqwe )
hb_Default( @xqwe, .T. )
...
xqwe will be .T. if the param is a different type.

if param = 123 -> xqwe = .T.
if param = "string" -> xqwe = .T.
if param = NIL -> xqwe = .T.
if param = .F. -> xqwe = .F.

#xcommand DEFAULT <xVar1> TO <xVal1> [, <xVarN> TO <xValN> ] => ;
hb_default( @<xVar1>, <xVal1> ) [; hb_default( @<xVarN>, <xValN> ) ]

#xcommand DEFAULT <xVar1> := <xVal1> [, <xVarN> := <xValN> ] => ;
hb_default( @<xVar1>, <xVal1> ) [; hb_default( @<xVarN>, <xValN> ) ]

Carlos Britos wrote:hb_Default() convert any to value to the value type of the second parameter ...

esgici wrote:Problem is in border of image.

Unrecoverable error 9003: Too many recursive error handler calls

esgici wrote:By the way, I have a problem; please look at TestBorder.prg line 54-55;

will be appreciated your advice.

PROCEDURE DrawWideBorder( ;
                     cWindowName,;
					 cControlName,;
					 aColor,;
					 nSpace,; 
					 nStep )
					 
	LOCAL nWidness, cColor
	
	HB_DEFAULT( @nSpace, 10 )
	HB_DEFAULT( @nStep, 1 )
	
	FOR nWidness := 1 TO nSpace STEP nStep
   
      cColor := "{"+hb_ntos(aColor[ 1 ])+","+hb_ntos(aColor[ 2 ])+","+hb_ntos(aColor[ 3 ])+"}"  
       
      DRAW BORDER WINDOW cWindowName CONTROL cControlName UPCOLOR &cColor DOWNCOLOR &cColor SPACE nWidness
       
	   aColor[ 1 ]  -= 10
	   aColor[ 2 ]  -= 10
	   aColor[ 3 ]  += 10
    NEXT nWidness 

RETURN  // DrawWideBorder()

srvet_claudio wrote: The DrawLine command runs a codeblock and the problem is when passing the array parameter to the codeblock.

esgici wrote: I'll try