FiveTech Software tech support forums

... NIL  https://i.postimg.cc/cHfP9v5f/2023-09-14-10-24-08.png If using the paramters <VARCHAR/lnLimitChars> and/or <PICTURE/cPict> the encoding is changed from UTF-8 to Unicode when editing!

... ] ; [ SIZE <nWidth>, <nHeight> ] ; [ <lPixel: PIXEL, PIXELS > ] ; [ FONT <oFont> ] ; [ <pict: PICT, PICTURE> <cPict> ] ; [ <pass: PASSWORD> ] ; [ ON CHANGE <uChange> ] ; [ ON UPDATE <uUpdate> ] ; [ ON SCROLL <uScroll> ] ; [ <lRO: ...

... on msgcalc() @ n + nlinea2,ncol6 BUTTON oBtPM PROMPT "±" OF oDlg ; SIZE 30,25 ; ACTION (CalcRes( cLastOpe, @nMemo, oGet, oRes, cPict,.t.,"±" ), ; cLastOpe := "±" ) FONT oFont on Calcres function I add elseif cnOpe == "±" nMemo := if(nval>0,-nval,Abs(nval) ...

... => CALCOLOMUTUO( 136 ) IF I ADD EXTEND CLASS TXBRWCOLUMN WITH DATA nFooterLines it run but on footer I not see anything this is source cPict is a static variable cPict:="999,999.99" Static  Function CreateBrw()EXTEND CLASS TXBRWCOLUMN WITH DATA cFooterPictureEXTEND ...

... for the fourth parameter GetNew currently (as my version of FW) class tget sends this null parameter, see the class tget (GetNew (20,20, bSetGet, cPict)) in the example that you mentioned would have to do so: GetNew (20,20, bSetGet, "Test1", cPict) this way you would oGet01: oGet: cVarName ...

... / 100 ) ) CASE Tipo == 3 Display := ( nMemo ) / ( 1 + ( PorCien / 100 ) ) ENDCASE nMemo := Display oGet:cText( Space(18)+Transform( nMemo , cPict )) oDlg:Update() // update the msgcalc dialog Endif Allarge(oDlg,1) // return to first size dialog return NIL

... ) == nil bData := oXCol:bEditValue else cPic := oXCol:cEditPicture endif This change solved the problem , but i don't understand why cpict is only assigned when bStrData (or bEditValue) is nil Frank

... calculated > FUNCTION MyMsgBox( lPosition, aRect , cMsg, aOptions, cTitle, xIcon, nDefault, aGradiate, ; bAction, oFont, cFileRes, oIcon, uVar, cPict, bValid,; lSpinner, lMeter, oMeter, lCancel) ... ... ACTIVATE DIALOG oDlg CENTERED ; ON INIT (DlgInit(oDlg, lPosition, aRect , oFont, cMsg, aOptions, ...

... oFont_default, ; // oFont , ; // cMsg .F., ; // LUpdate , ; // bWhen .F., ; // lDesign , ; // acBitmaps , ; // bDrawItem , ; // nStyle , ; // cPict ) // bEChange regards, saludos, gruß Frank (frose) FWH 12.02, xHarbour.com Okt. 2011 (9382), xCC, ADS 10.10.0.28, Windows 7 x64 Transitioning ...

... .T. to Add New Items to aItems, .F. Don't Add - Added by RAMESH BABU P DATA cAlias METHOD New( nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor , lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, ...

... DIALOG> <oDlg> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ VALID <ValidFunc> ] ; [ <pict: PICT, PICTURE> <cPict> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ FONT <oFont> ] ; [ CURSOR <oCursor> ] ; [ MESSAGE ...

... when typing // #include "fivewin.ch" CLASS TAutoGet FROM TGet DATA aItems AS ARRAY METHOD New( nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor , lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, ...

... !short: SAY */ #xcommand REDEFINE SAY [<oSay>] ; [ <label: PROMPT, VAR> <cText> ] ; [ PICTURE <cPict> ] ; [ ID <nId> ] ; [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ; [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ...

... esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien xVar := SPACE(20) y ahora ...

... esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar: oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255)) @xVar es el valor que tu quieres editar, puedes hacer por ejemplo xVar := 0 o bien xVar := SPACE(20) y ahora ...