FiveTech Software tech support forums

... this solution for displaying the border in the presence of vertical scrolling if ::lDrawBorder // ::Box( 0, 0, ::nHeight - 1, ::nWidth - 1, IfNil( ::nClrBorder, ::hColPen ) ) ::Box( 0, 0, ::nHeight - 1, ::BrwWidth(), IfNil( ::nClrBorder, ::hColPen ) ) endif https://i.postimg.cc/vHytyBsS/ok.png ...

Gracias por su tiempo Mr. Rao Esto solucionó el error en tiempo de ejecucion return IfNil( cContents, "" ) local cDefault := MEMOREAD( "c:\fwh\bitmaps\sea.bmp" ) AEval( aCols, { |a,i| a[ 4 ] := WebPageContents( a[ 4 ] ), ; If( Empty( a[ 4 ] ), ...

... tardes, Paquito Este es el código de cada una de las líneas con errores preview.prg linea305 Error E0022 Invalid lvalue: "Numeric" SIZE IfNil( nBtnW, 26 ), IfNil( nBtnH, If( LargeFonts(), 30, 26 ) ) linea515 Error E0030 Syntax error: "Syntax error at ´CURSOR´ DEFINE CURSOR ::oCursor ...

... why ? for now I resolve with oBrowse:bRClicked := {|nRow,nCol| ShellExecute( IfNil( oDlg:hWnd, GetWndDefault() ), "open",cFolderFiles+oBrowse:aArrayData[oBrowse:narrayat][2])} But I wish open the pdf in a dialog

... BTNBMP ::oBtnElip OF ::oBrw NOBORDER SIZE 0,0 CENTER FLAT ::oBtnElip:bClrGrad := nil endif ::oBtnElip:lGDIP := ::oBrw:lGDIP ::oBtnElip:cToolTip := IfNil( ::cBtnToolTip, "", ::cBtnToolTip ) <---- :D Sr. Antonio, se possível adicionar a classe XBROWSE.PRG

... ::bStrData ) end 6. method edit() class txbrwcolumn if ::obrw:nrowsel==-1 uvalue:=::cf1 elseif ::obrw:nrowsel==0 uvalue:=::cf2 else uValue := IfNil( ::Value, ::BlankValue() ) end if ::obrw:lgetbar if ::obrw:nrowsel==-1 ::bOnPostEdit:={|o,v,n| if(n != VK_ESCAPE ,::cf1:=v,)} ::nEdittype:={||if(::beditblock<>nil,EDIT_GET_BUTTON,1)} ...

... cResName1, cResName2, cBmpFile1, cBmpFile2,;                    cResName3, cBmpFile3, cResName4, cBmpFile4 ) CLASS TBtnBmp   ::SetImages( IfNil( cResName1, cBmpFile1 ), IfNil( cResName2, cBmpFile2 ), ;                IfNil( cResName3, cBmpFile3 ), IfNil( cResName4, ...

... ::bClrHeader )[ 2 ] ) endif if ::nRecTxtColor == nil ::nRecTxtColor := nRGB( 0, 0, 0 ) endif ... ... added to all selector text / font-defines : IfNil( ::oRecSelFont, ::oFont , ::nRecTxtColor ) ) best regards Uwe :?:

... := {|| ( ::cAlias )->( DbGoTop() ) },; ::bGoBottom := {|| ( ::cAlias )->( DbGoBottom() ) },; ::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },; ::bBof := {|| ( ::cAlias )->( Bof() ) },; ::bEof := {|| ( ::cAlias )->( Eof() ) },; ::bBookMark := {| n | iif( n == nil ...

... is changed on the PC i use this function GetListSeparator() in xBrowse class cFormula:= "SUBTOTAL(" + ; LTrim( Str( FW_DeCode( IfNil( oCol:nFooterType, 0 ), AGGR_SUM, 9, AGGR_MAX, 4, AGGR_MIN, 5, ; AGGR_COUNT, 3, AGGR_AVG, 1, AGGR_STDEV, 7, AGGR_STDEVP, 8, 9 ) ) ) + ; // "," ...

... All this without adding or changing keys being filtered. So in xbrowse what is your bskip ? ::bSkip := {| n | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },; adordd should be treated as any dbf rdd.

Lucas, oRecordSet:Update( nField - 1, IfNil( xValue, AdoNull() ) ) Im going to try it. The date errors only happens (MySql) when you edit a empty date and save the same empty date. Thats why we didnt have found it before although the app makes ...

... ; SIZE 120 ; PICTURE "99999" ; EDITABLE ; TOTAL 0 ; FOOTER { |oCol,nNew,nOld| "Test: " + CRLF + TRANSFORM( oCol:nTotal += ( IfNil( nNew, 0 ) - IfNil( nOld, 0 ) ), "99999999" ) } oBrw:nFooterLines := 2 BTW take care (if you use ADD oCol) xbrowse.ch have BUG in xbrowse.ch, ...

... "9999999999", "99999" } ; Produce Syntax error sugested option FOOTER { |o,nNew,nOld| TRANSFORM( oCol:nTotal += ( IfNil( nNew, 0 ) - IfNil( nOld, 0 ) ), "999999" ) Make wrong totals Test this sample #include "FiveWin.Ch"#include ...

...        WINDOW.PRG     2843  2854 ICON                    WINDOW.PRG     1165  1167 ICONIZE()              (function  in ?)    WINDOW.PRG      657 IFNIL()                (function  in ?)    WINDOW.PRG     4000  4001 INIT                    WINDOW.PRG      437   440   444   456   462   465   475 ...