No problemo !esgici wrote: Sorry for inaccurate information
I thought the was the message....
No I see the problem!
Serge
Moderator: Rathinagiri
No problemo !esgici wrote: Sorry for inaccurate information
Hi hb_Default() convert any to value to the value type of the second parameteresgici wrote:Hi Dave
Thank to your interest and nice wordsbpd2000 wrote: Where to find more about HB_Default()
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> ) ]
Thank to additional information.Carlos Britos wrote:hb_Default() convert any to value to the value type of the second parameter ...
Attempted using BosTaurus to draw line, andesgici wrote:Problem is in border of image.
Any ideaUnrecoverable error 9003: Too many recursive error handler calls
Hi Friend,esgici wrote:By the way, I have a problem; please look at TestBorder.prg line 54-55;
will be appreciated your advice.
Code: Select all
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()
Thank you very much Hidalgosrvet_claudio wrote: The DrawLine command runs a codeblock and the problem is when passing the array parameter to the codeblock.
Hats to the airesgici wrote: I'll try