FiveTech Software tech support forums

Dear Detlef,

Please modify this line in tget.prg this way:

FW_SayText( ::hDC, If( Empty( Eval( ::bSetGet ) ), "", Transform( Eval( ::bSetGet ), ::cPicture ) ), aRect, "R", ::oFont, ::nClrText )

now it works as you need

... i understand that a Sample is need to reproduce Problem, but as Newbie i "ask" for a (simple) Sample --- i found out that 3rd Parameter bSetGet is used when "on change" Event is fired Sample i saw look like this local cItemo:bSetGet := {|u| If( PCount()==0, ...

... entre nMin y nMax caracteres. Útil para obtener variables de texto VarChar en bases de datos SQL. - Ahora es posible usar un bloque de código bSetGet como variable. Esto ayuda al programador a mejorar las capacidades del Get. Por ejemplo: bSetGet := { |x| If( x == nil, nVal * 100, nVal := ...

... returns a text with length between nMin and nMax characters. Useful in getting VarChar text in Sql databases. - It is now possible to use a bSetGet codeblock as variable. This helps the programmer to enhance the capabilities of Get. Eg: bSetGet := { |x| If( x == nil, nVal * 100, nVal := ...

... y tu Texto enriquecido. De aqui en adelante solo muestra tu texto. DEFINE DIALOG oDlg RESOURCE "Test" oRich = TRichEdit():Redefine( 100, bSETGET( cTxt ), oDlg ) oRich:lHighLight = .T. Esta claro que es el contenido de la DBF. Esta DBF tiene 2 campos: Folio N 10 Cod_det Char 85 Disculpa ...

Thanks, what are the difference between oGet:varget() and eval( oGet:bSetGet) ?

The second bug is definitive!
if :lAutosave := .T. for this column, the bEditValue is evaluated twice if i leave the column with ENTER but when leaving with mouse sometime runtime-error nLastkey == NIL.

... value "0101" and edit the column the resulting len of the x is 10, not 4! oBrw:aCols[4]:bEditValid := {|x|msginfo("'"+Eval( x:bSetGet)+"'"+CRLF+"Len: "+alltrim(str(len(Eval( x:bSetGet))))),.T.} It seems, that the variable always are added with spaces to ...

... n ] ;         SIZE 120,28 PIXEL OF oDlg      nRow  += 30   next  But this does not work. We get a runtime error. Reason: For every Get, its bSetGet codeblock is assigned with { |u| If( PCount() == 0, aValues[ n ], aValues[ n ] := u ) }. During runtime this codeblock is evaluated with the ...

... abEval, cStreet, cNum, cCity, cCountry, cTemp local cHtml := MemoRead( "google\google.html" ) cStreet := GoogleOk( AllTrim( Eval(aGet[1]:bSetGet) ) ) cNum := GoogleOk( AllTrim( Str( Eval(aGet[2]:bSetGet) ) ) ) cStreet := GoogleOk( cStreet + if( !Empty(cStreet), " "+cNum, "" ...

... pero sin resultados positivos. METHOD LostFocus() CLASS TDBCombo local nAt := ::SendMsg( CB_GETCURSEL ) if nAt != CB_ERR ::nAt = nAt + 1 Eval( ::bSetGet, ::aItems[ ::nAt ] ) else Eval( ::bSetGet, GetWindowText( ::hWnd ) ) endif //aqui se evalua el blostfocus if ! Empty( ::bLostFocus ) return ...

Usando AScan() buscamos el primer control que sea distinto:

AScan( oDlg:aControls, { | oCtrl, n | oCtrl:bSetGet != nil .and. Eval( oCtrl:bSetGet ) != aInitValues[ n ] } ) != 0

un valor .T. significa que han habido cambios

... iniciales: local aInitValues := {} y antes de llamar a ACTIVATE DIALOG, hacemos: AEval( oDlg:aControls, { | oCtrl | AAdd( aInitValues, If( oCtrl:bSetGet != nil, Eval( oCtrl:bSetGet ), nil ) ) } ) Para comprobar si han habido cambios hacemos: AEval( oDlg:aControls, { | oCtrl, n | If( oCtrl:bSetGet ...

... PICT, PICTURE> <cPicture> ]; [ ON EDIT CHANGE <uEChange> ] ; => ; [ <oCbx> := ] TComboBox():ReDefine( <nId>, bSETGET(<cVar>),; ArrTranspose(<aItems>)[2], <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],; <nClrText>, ...

... <bvld,...> ] ; => ; MsgGet( <ttl>, {<prmt>}, ; ArrTranspose( \{ \{ <"v1"> [,<"vN">] \}, ; \{ bSETGET( <v1> ) [, bSETGET( <vN> ) ] \} , nil, ; {<pic>}, {<bvld>} \} ) ) Now let us see how simole it is to get user input ...

From looking at the code for TCombo it looks like bSetGet will work. See the Change() method.

James