FiveTech Software tech support forums

... cPicture, oFont,; lCentered, lRight, lBottom, lBorder, lPixels, nClrText, nClrBack,; nWidth, nHeight, cScroll, nSpeed, lWrap, lBlink,; lDesign, lUpdate, lShaded, lBox, lRaised ) CONSTRUCTOR METHOD ReDefine( nId, bText, oWnd, cPicture, lCentered, lRight, lBottom,; nClrText, nClrBack, cScroll, ...

... AS LOGICAL // bypass paint if false DATA lPostEdit // to detect postediting DATA lUndo AS LOGICAL INIT .F. // used by RButtonDown method DATA lUpdated AS LOGICAL INIT .F. // replaces lEditCol return value DATA lUpperSeek AS LOGICAL INIT .T. // controls if char expresions are seek in uppercase ...

... 8 parameters before of the nId METHOD ReDefine(nTipo,cCampo,cExquie,cRutina,cRutf4,cExaminar,cCacebera,cCaja,nId, bAction, oWnd, nHelpId, cMsg,; lUpdate, bWhen, bValid, cPrompt, lCancel ) CONSTRUCTOR Then within method transfer 8 parameters to variable of instance as makes it the class original ...

... option, I believe that FiveLinux.ch is not correctly translating the @ <row>, <col> GROUP command because it is not including a [ <lUpdate: UPDATE> ] to pass as <.lUpdate.> into TGroup():New() so the <.lPixel.> value is passed in the wrong position. This seems to ...

Doug, > The problem appears to be that the object constructor of the TScrollbar class doesn't initialise ::lUpdate Thats what I thought when I saw this in the error.log file: Argument error: conditional Args: [ 1] = U nil ... Procedure Type Value ...

Hi Antonio The problem appears to be that the object constructor of the TScrollbar class doesn't initialise ::lUpdate. I added the following line to TScrollbar:New() ::lUpdate := .F. and rebuilt the library and the problem disappeared. ::lUpdate is inherited ...

... } ) oBrw6:aCols[ 1 ]:nWidth := 100 oBrw6:aCols[ 3 ]:nDataStrAlign := AL_RIGHT oBrw6:aCols[ 4 ]:nDataStrAlign := AL_RIGHT oBrw6:nColSel := 5 oBrw6:lUpdate := .t. oBrw6:Cargo := oBrw5 oBrw6:bChange := { || oDlg:Update() } oBrw6:CreateFromResource( 115 ) .... ..... //----------------------------------------------------------------------------// ...

... } ) oBrw6:aCols[ 1 ]:nWidth := 100 oBrw6:aCols[ 3 ]:nDataStrAlign := AL_RIGHT oBrw6:aCols[ 4 ]:nDataStrAlign := AL_RIGHT oBrw6:nColSel := 5 oBrw6:lUpdate := .t. oBrw6:Cargo := oBrw5 oBrw6:bChange := { || oDlg:Update() } oBrw6:CreateFromResource( 115 ) .... ..... //----------------------------------------------------------------------------// ...

... METHOD New( nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor , lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,; lSpinner, bUp , bDown , bMin , bMax , aItems ) CONSTRUCTOR ...

... nHeigth, bLine, aHeaders, ; aColSizes, oWnd, cField, uVal1, uVal2, bChange,; bLDblClick, bRClick, oFont, oCursor, nClrFore,; nForeBack, cMsg, lUpdate, cAlias, lPixel, bWhen,; lDesign, bValid, bLClick, aActions, aSkipCol ) CONSTRUCTOR METHOD ReDefine( nId, bLine, oDlg, aHeaders, aColSizes, ...

... como: "METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,; lCentered, lRight, lBorder, lPixels, nClrText, nClrBack,; nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised, lAutoWidth ) CLASS TSay .../... if lAutoWidth ::nRight = ::nLeft + GetTextWidth( 0, ::cCaption, ::oFont:hFont ) - 1 ...

... aGets[nContador]:SetColor( J02CLRTEXTO,J02CLRFONDO ) aGets[nContador]:Disable() Else aGets[nContador]:lReadOnly := .T. aGets[nContador]:lUpdate := .T. EndIf Endfor Return Nil 3ª Esta se llama cuando se desea modificar/editar los campos. FUNCTION RONo( AMPAarra, aGets ) Local nContador ...

... AS OBJECT METHOD New( nRow, nCol, bSetGet, aItems, nWidth, nHeight, oWnd, nHelpId, ; bChange, bValid, nClrText, nClrBack, lPixel, oFont, ; cMsg, lUpdate, bWhen, lDesign, acBitmaps, bDrawItem, ; cAlias, cFldItem, cFldList, aList, oDbRS ) CONSTRUCTOR METHOD ReDefine( nId, bSetGet, aItems, oWnd, ...

... ::oWnd = oWnd ::nStyle = nOR( WS_CHILD, WS_VISIBLE, BS_GROUPBOX,; If( lDesign, nOr( WS_TABSTOP, WS_CLIPSIBLINGS ), 0 ) ) ::nId = ::GetNewId() ::lUpdate = .f. ::lDrag = lDesign ::SetColor( nClrText, nClrPane ) if lTransparent #ifndef __XPP__ ::SetBrush( TBrush():New( "NULL" ) ) #else ::SetBrush( ...

... DATA cPicture METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,; nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,; cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,; lReadOnly, lPassword, lNoBorder, nHelpId,; lSpinner, bUp, bDown, bMin, bMax ) CONSTRUCTOR METHOD Assign() ...