FiveTech Software tech support forums

... codigo que tienes para no modificarlo, modifica PDMENU.PRG asi ( lo que está en negrita ) oMenuP := LastMenu() if !empty( oMenuP ) if !lSystem if Valtype( l2007 ) != "L" DEFAULT l2007 := .F. endif if Valtype( l2010 ) != "L" DEFAULT l2010 := .F. endif if Valtype( l2015 ) != ...

... codigo que tienes para no modificarlo, modifica PDMENU.PRG asi ( lo que está en negrita ) oMenuP := LastMenu() if !empty( oMenuP ) if !lSystem if Valtype( l2007 ) != "L" DEFAULT l2007 := .F. endif if Valtype( l2010 ) != "L" DEFAULT l2010 := .F. endif if Valtype( l2015 ) != ...

... //----------------------------------------------------------------------------// FUNCTION DoBreak( oError ) local cInfo := oError:operation, n if ValType( oError:Args ) == "A" cInfo += " Args:" + CRLF for n = 1 to Len( oError:Args ) MsgInfo( oError:Args[ n ] ) cInfo += "[" ...

... l := .f. END aData[ n ] := Lower( Left( aData[ n ], 1 ) ) + ; SubStr( aData[ n ], 2 , 1 ) + ; Lower( SubStr( aData[ n ], 3 ) ) //if Valtype( v ) == "A" //FWLOG aData[ n ] //endif aData[ n ] := { n, aData[ n ], v, l } next n return aData

... or move the window or resize it and remove the mouse on a btnbmp it no longer shows the tooltip This is not normal there is a bug... if I make if ValType( cToolTip ) == "B" cToolTip = Eval( cToolTip,self ) endif it call the action on eval() ok but then it Open a window ( see METHOD ShowToolTip) ...

... nClrFore, nClrBack, nWidth local nDelayTime, nDelayType DEFAULT nCol := 7, nRow := ::nHeight() + 7, ; cToolTip := ::cToolTip if oToolTip == nil if ValType( cToolTip ) == "B" cToolTip = Eval( cToolTip ) // Modify this //cToolTip := Eval( cToolTip, Self ) endif .../... If you do not want ...

correct with

:bCellToolTip := { |oCol|If(valtype(oCol:Value)="L",oCol:cHeader + " " + oBrw:aRow[ 1 ] + CRLF + if(oCol:Value,"Occupato","Libero" ),) }

... libs ) . Changes for numeric gets . ( in test ) https://www.dropbox.com/s/oqwygwfuao1taux/librerias.zip?dl=0 use : local nNum := 0 // nNum -> valtype numeric @ 40, 90 GET oGet1 VAR nNum OF oDlg PICTURE "9999.99" TOOLTIP "a string with cross" SIZE 250, 25 Not use pictures ...

... using the expression @<funcName>(), or dynamically during execution with the help of the macro: &("@<funcName>()"). Valtype() returns S for such pointers." proc main()   local funcSym   funcSym := @str()   ? funcSym:name, "=>", funcSym:exec( ...

... "id" ):Value cDat2 := oSqlLoad:Fields( "Vessel Name" ):Value cDat3 := oSqlLoad:Fields( "Voyage CSA" ):Value IF (VALTYPE(cDat1)<>"U") .AND. (VALTYPE(cDat2)<>"U") .AND. (VALTYPE(cDat3)<>"U") AADD( aReturn, { cDat1, ...

... "id" ):Value cDat2 := oSqlLoad:Fields( "Vessel Name" ):Value cDat3 := oSqlLoad:Fields( "Voyage CSA" ):Value IF (VALTYPE(cDat1)<>"U") .AND. (VALTYPE(cDat2)<>"U") .AND. (VALTYPE(cDat3)<>"U") AADD( aReturn, { cDat1, ...

... using the expression @<funcName>(), or dynamically during execution with the help of the macro: &("@<funcName>()"). Valtype() returns S for such pointers." proc main()   local funcSym   funcSym := @str()   ? funcSym:name, ...

... creando esa funcion Function LenVar( cVar,ctype,nLen ) If cType="C" cVar:=cVar+Space(nlen-Len(cVar)) ElseIf cType="D" If Valtype( cVar)="C" cVar:=ctod("") Endif Endif Return cVar cVar es el campo de la consulta ctype el tipo de dato del campo nLen es ...

... redefine button oBtn[2] id 103 of odlf action(lSelecao := .f., oDlf:End()) cancel oDlf:lHelpicon := .f. activate dialog oDlf on init(IIf(ValType( nRow ) != 'N', WndCenter(oDlf:hWnd), oDlf:move(nRow,nCol))) return(dDate) /*************************************************************************************************************/ ...

... redefine button oBtn[2] id 103 of odlf action(lSelecao := .f., oDlf:End()) cancel oDlf:lHelpicon := .f. activate dialog oDlf on init(IIf(ValType( nRow ) != 'N', WndCenter(oDlf:hWnd), oDlf:move(nRow,nCol))) return(dDate) /*************************************************************************************************************/ ...