FiveTech Software tech support forums

... nTotalNumberOfBytes, nTotalNumberOfFreeBytes } * Enhancement: Class TRibbon now accept a string in: "OPTION" caluse, Method SetOption and "TO OPTION" clause (ADD GROUP) with the Caption of tab to select it

Antonio and Rao Say and groups works correctly . Thanks. Now I have another anomaly with folder when I use oFld:setoption(2) the focus remain in in folder 1 I modify the foldxbrw.prg in samples adding : oBrw1:aCols[ 2 ]:bEditBlock := { || oFld:SetOption(2) } After click on the ...

... Error BASE/1002 No existe el alias: Cliente1 // Asi sí me funciona ACTIVATE DIALOG oDlg CENTER ON INIT (lNew:=.f.,oDlg:aEvalWhen(),oRad:SetOption(2),CliAlta(dCli,lAlt,oBrw), ; IIF((dCli)->(EOF()),EVAL(bCliVer),(oFol:SetOption(1),oFol:aEnable:={.t.,.f.,.f.,.f.,.f.},oBrw:SetFocus()))) ...

... AL xBROWSE PPAL. addnotas(nCodAlu, oDbfNOTAS, oBrwNOTAS, oDatos:lAPPEND) ,; // ADICIONO LAS MATERIAS A dbf NOTAS Y LUEGO CARGO EL array oFldALUM:SetOption(1) ,; jlalumno->( OrdSetFocus(2) ) ,; // COLOCA DE NUEVO INDICE A LOS NOMBRES-EN VALIDACION codigo NO SE REPITA LO PONGO EN EL 1 oBrwALUM:GOTOP(), ...

... DIALOG oWndFld NOWAIT ; ON INIT ( oWndFld:Move( 50, 580, NIL, NIL, .T. ), ; IIF( nOption2 = 2, GRADBRU2(), NIL ), ; // Dialog-Gradient oFld:SetOption( nTabpos ) ) ; ON PAINT F_BACKGRD(oFld) RETURN NIL I didn't use this code, only the sample code I showed above. I informed about a problem ...

... DIALOG oWndFld NOWAIT ; ON INIT ( oWndFld:Move( 50, 580, NIL, NIL, .T. ), ; IIF( nOption2 = 2, GRADBRU2(), NIL ), ; // Dialog-Gradient oFld:SetOption( nTabpos ) ) ; ON PAINT F_BACKGRD(oFld) RETURN NIL // ---  Folder - Backgrounds ( Color, Gradient, Brush and Image ) ---// FOLDER-vars in ...

... Called from: testselx.prg => LAUNCHDIALOG(47) Called from: testselx.prg => (b)MAIN(27) Called from: .\source\classes\TSELEX.PRG => TSELEX:SETOPTION(670) Called from: .\source\classes\TSELEX.PRG => TSELEX:LBUTTONDOWN(427) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483) ...

...               return nil         endif         if ::aEnable[ n ] .and. ::aVisible[ n ]            ::nLastOver := n            ::SetOption( n )         endif//         ::lOver := .t.      endif   endifreturn nil  Method SetOption() also checks now if the oBackStage is ...

... la fucnión DTtoEDT(). Gracias a Davide ! * Corrección: Se ha corregido un error en la clase ribbon, no se evaluaba el bloque de código bAction en SetOption. * Nuevo: Nueva clase TCalendar. Por favor revisa el ejemplo samples/testcal.prg. * Nuevo: Nueva clase TTitleText para usar en la clase TTITLE, ...

... edit. * Enhancement: Some changes in Class TSmtp function DTtoEDT(), thanks to Davide! * Fix: fixed bug in ribbon, bAction is not evaluated in SetOption * New: Class TCalendar. Please review samples/testcal.prg * New: Class TTitleText to use in class TTITLE, create an object with the properties ...

... New() BUSCA ESTA LINEA:   ::bPaintAcc     = {| hDC | ::PaintAccTabs( hDC ) } AGREGA DESPUES   ::bAction    = bAction METHOD SetOption() BUSCA ESTA LINEA:      ::Refresh() AGREGA DESPUES      if ! Empty( ::bAction )         Eval( ::bAction, nOption, nOldOption ...

Solved

oRbar:setoption(1)

... //msginfo(str(nOption1)) do case CASE nKey == VK_RIGHT //modify nOption1 := nOption1 + 1 IF nOption1 > Len( ::aDialogs ) nOption1 := 1 ENDIF ::SetOption( nOption1 ) CASE nKey == VK_LEFT //modify nOption1 := nOption1 - 1 IF nOption1 < 1 nOption1 := Len( ::aDialogs ) ENDIF ::SetOption( nOption1 ...

mgsoft,

oFolder:SetOption( 2 )

saludos

... Alfredo... REDEFINE BTNBMP oBtnFldALU[1] ID 500 OF oFldALUM:aDialogs[2] UPDATE; ACTION ( nSALVAR := 2, oBarALUM:aControls[3]:Enable(), oFldALUM:SetOption(3), oFldALUM:aDialogs[3]:UpDate() ) ...la de Francisco... REDEFINE BTNBMP oBtnFldALU[1] ID 500 OF oFldALUM:aDialogs[2] UPDATE; ACTION ( nSALVAR ...