FiveTech Software tech support forums

... so it can work properly. Also, FiveWin.ch has been modified so now all controls created from source code save their variable names into the DATA cVarName. In example, if you do: @ ..., ... GET oGet1 VAR ... oGet1:cVarName will be automatically assigned with "oGet1".

... [ n ]:cToolTip ,; IIF ( oDlg:aControls [ n ]:ClassName () = "TIMAGE",; oDlg:aControls [ n ]:cBMPFILE ,; oDlg:aControls [ n ]:cVarName ) ,; oDlg:aControls [ n ]:Cargo ,; oDlg:aControls [ n ]:SetText ,; oDlg:aControls [ n ]:cCaption ; HEADERS ; "Indice" ,; "ClassName" ...

Hi,

I can show variables name in TGet as described at first message. using oGet:oGet:Name. But I could not get other controls.

What does the cVarName for?

Thanks,

Hi,

There is a cVarName in TGet. But I could not show it. I use unchanged fwh classes and fivewin.ch.

How Can I show variable name of TGet, TCombobox, Tcheckbox (all input controls)?

Thanks,

... fwh folder I can only find the following FILE c:\fwh\source\classes\tClipGet only contains the following function GetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor ) return TClipGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )

... cMsg, lUpdate, bWhen, nWidth, nHeight,;               bValid, lDesign, l3D, lPixel, [color=#FF0000]cVarName[/color] ) CONSTRUCTORMETHOD New( nRow, nCol, acItems, bSetGet, oWnd, aHelpIds, bChange,;          ...

... si funcionaría. Cambiando de tema, está al caer la versión 9.03? Como estaré unos meses sin actualizarme, quiero ver si puedo meterle mano a 'cVarName' de un golpe y enviarte los PRG y los CH. Un saludo Carlos G.

... added <"uVar"> after them. The same applies for supplied params to Method New() and Redefine() 2. We have named the new param as cVarName 3. We don't default initialize it to Space( 4 ). We see no reason for it, as we were using nil before with no problems. We appreciate your ...

... CLASS TSBrowse FROM TControl CLASSDATA lRegistered AS LOGICAL CLASSDATA aProperties AS ARRAY ; INIT { "aColumns", "cVarName", "nTop", "nLeft", "nWidth", "nHeight" } CLASSDATA lVScroll, lHScroll DATA aActions // actions to be executed on header's click DATA aColors ...

... #ifdef HB_COMPAT_C53 DATA Control DATA Message DATA Caption DATA nLastExitState DATA CapRow DATA CapCol #endif METHOD New( nRow, nCol, bVarBlock, cVarName, cPicture, cColorSpec ) METHOD Assign() #ifdef HB_COMPAT_XPP MESSAGE _Assign METHOD Assign() #endif ACCESS ColorSpec INLINE ::cColorSpec ASSIGN ...

... hay un objeto ::oInspector = oIDE:oInspector y la propiedad ::lDesign := .t. y despues FUNCTION ADD(oControl) ::oInspector:oCombo:Add( oControl:cVarName + " as " + ; oControl:ClassName() ) RETURN y para poner las lineas punteadas RectDotted( ::hWnd, ::nBoxTop,; ::nBoxLeft, ::nBoxBottom, ::nBoxRight ...

Devi assegnarla tu alla variabile oGet:cVarName. Questa assegnazione non viene fatta automaticamente.

EMG

... Display() VIRTUAL ENDCLASS //---------------------------------------------------------------------------// function GetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor ) return TClipGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor ) //---------------------------------------------------------------------------// ...

... oGet:cTooltip:="Texto Normal" oGet:NIDFOLDER:=0 // alinead a la izq oGet:NPAGINA:=0 // color negro //oGet:cVarName = ::GetVarName( oGet, "oGet" ) //oGet:l3D = .t. ENDIF //oWndr:Refresh() //::RestoreStatus( oGet ) return nil // Edita las propiedades ctooltip ...

... := Alltrim(cApp)+".rpt" oReportID:Refresh() ENDIF ..... Or you can write general function as for example AssignVal() FUNCTION AssignVal( &cVarName, oObject ) and call it for various arguments as below AssignVal( &mReportID, oReportID ) AssignVal( &mFileProof, oFileProof ) and so on.