FiveTech Software tech support forums

... COLOR CLR_BLACK, CLR_GETS oGet1:bValid := {|| !Empty(cvar1) } oGet1:bLostFocus:= {|| oGet1:Assign(), ; (oChatClient:cServerIP := Alltrim(oGet1:varGet())) } oGet2:bValid := {|| !Empty(cvar2) } oGet2:bLostFocus:= {|| oGet2:Assign(), ; (oChatClient:cUserName := Alltrim(oGet2:VarGet())) } REDEFINE ...

... ) ) == "N", AScan( ::aItems, uItem ), uItem ) ) if ::bChange != nil .and. ( nNewAT != nOldAt .and. nNewAt != 0 ) Eval( ::bChange, Self, ::VarGet() ) endif if nKey == VK_RETURN return ::oWnd:GoNextCtrl( ::hWnd ) endif return 0 // Must be 0 - We don't want API default behavior.

... OF oDlg; WHEN !EMPTY( cVar ) ACTIVATE DIALOG oDlg; CENTER RETURN NIL Try this instead: REDEFINE BUTTON oBtn ID 102 OF oDlg WHEN !empty(oGet:oGet:varget()) Note that there is a double oGet (because there is a Clipper get object inside the FW get object). I think you need to use this to get the ...

quique wrote:Prueba con
aArray[ 1 ] := oCtrl1:varGet()
aArray[ 2 ] := oCtrl2:varGet()

o con
aArray[ 1 ] := oCtrl1:cCaption
aArray[ 2 ] := oCtrl2:cCaption

Gracias quique, pero eso no funciona, sorry

Un saludo
Pedro

Prueba con
aArray[ 1 ] := oCtrl1:varGet()
aArray[ 2 ] := oCtrl2:varGet()

o con
aArray[ 1 ] := oCtrl1:cCaption
aArray[ 2 ] := oCtrl2:cCaption

Frances,

You could try this:

if AScan( oDialog:aControls, { | o | Upper( o:ClassName() ) == "TGET" .and. o:oGet:changed .and. ( o:oGet:VarGet() != o:oGet:Original ) } ) != 0

MsgInfo( "Gets changed" )

endif

... Reset() METHOD SetFocus() METHOD Undo() METHOD UnTransform( cBuffer ) METHOD UpdateBuffer() INLINE if( ::hasfocus, ( ::buffer := ::PutMask( ::VarGet() ), ::Display() ), ), Self METHOD VarGet() METHOD VarPut(xValue, lReFormat) METHOD End() #ifdef HB_COMPAT_XPP MESSAGE _End METHOD End() #endif ...

... Called from: DATABASE.PRG => TDATABASE:IDATENCIO(0) Called from: mdi8.prg => (b)MCSPSFGMENORES(111) Called from: tget.prg => TCLIPGET:VARGET(845) Called from: tget.prg => (b)GET:GET(131) Called from: tget.prg => TCLIPGET:UPDATEBUFFER(0) Called from: TGET.PRG => TBTNGET:LOSTFOCUS(0) ...

oGet:value() just calls oGet:VarGet() so you can use either one. METHOD Value() INLINE ::VarGet() VarGet() may be easier to remember since SAYs, GETs, Comoboxes, and RadioMenus all have a VarGet() method. This is polymorphism (same names ...

... in a Office2007-ButtonBar --------------------------------------------------------- GET = oGet:Value(), oGet:Refresh() SAY = oSay:Varget(), oSay:Refresh() RADIO = oRadio:nOption, oRadio:Refresh() CHECKBOX = oCheck:Varget(), oCheck::Refresh() SEND new Values from Office2007-ButtonBar ...

... in a Office2007-ButtonBar --------------------------------------------------------- GET = oGet:Value(), oGet:Refresh() SAY = oSay:Varget(), oSay:Refresh() RADIO = oRadio:nOption, oRadio:Refresh() CHECKBOX = oCheck:Varget(), oCheck::Refresh() SEND new Values from Office2007-ButtonBar ...

... How to get the Child-Values when Switching to Office2007-Bar !!!! ------------------------------------------- cGET = oGet:Value() cSAY = oSay:Varget() nRADIO = oRadio:nOption lCHECK = oCheck:Varget() ------------------------------------ It works, but is there maybe another way, to handle this ...

... can not modify the orginal value, but can modify the Get variable through VarPut. The postedit method calls the bOnPostEdit with whatever is the varget() ( in other words eval( oget:bsetget) ) at that time. So if we modify the value in valid clause, PostEdit method calls bOnPostEdit block with ...

msginfo( oget:varget() ) shows the entered value of 6. Also at that moment I see 6 in the edit cell in the browse also ( we refreshed the get just before).

But after the valid function returns, the cell in xbrowse is repainted with orginal value.

Nageswararao,

Please add this line and try it again:

oGet:varput( nnew )
oGet:refresh()
MsgInfo( oGet:VarGet() )