FiveTech Software tech support forums

Hola, prueba con

ofld:SetOption( tu opción )


Saludos

El error está en la clase , en concreto en el Metodo SetOption cuando ::nOpción tiene valor 0. Con esto a mi me resuelve el problema , pero sería bueno mirarlo detenidamente : METHOD SetOption( nOption ) CLASS TFolder   local nOldOption  ...

... Lo siento no he sido capaz de trasladar tu ejemplo a mi programa, más que nada porque no encontraba nOldOption fuera de su ámbito en el method SetOption. La solución ha sido mucho más fácil de lo que pensaba, sólo que he tenido que tocar la clase Ribbon que era lo que no quería hacer, pero ...

... STDCALL dispatch PROPERTYGET BSTR CurrentObjectName() STDCALL dispatch FUNC VARIANT GetOption( [in] BSTR ) STDCALL dispatch FUNC void SetOption( [in] BSTR, [in] VARIANT ) STDCALL dispatch FUNC void Echo( [in] short, [defaultvalue] BSTR ) STDCALL dispatch FUNC void CloseCurrentDatabase() ...

Jose Luis,

Prueba a modificar el orden de estas llamadas:

oFldx:SetOption(2), oFldx:aDialogs[2]:aEvalwhen()

a:

oFldx:aDialogs[2]:aEvalwhen(), oFldx:SetOption(2)

Jose Luis, Has probado a hacer: oFldx:aDialogs[ 2 ]:SetFocus() ? Antonio, probe tu sugerencia y nada, el sistema si da el focus oFldx:SetOption(2) y con Fldx:aDialogs[2]:SetFocus(), el detalle sigue siendo el los GET, no entiendo porque no da el focus al GET que le digo segun la condicion ...

Armando, tu sugerencia ya la habia probado, es mas, fue lo primero que probe, luego por sugerencias de colegas lo cambie por setoption, el problema esta en la validacion de los WHEN en los GET, ya que el cambio de pestaña lo hace bien, per no le da el focus al control que le digo aunque ...

... ; SIZE 115, 50 OF oBar PIXEL BORDER ; // Width , Height LEFT ; PROMPT " &Original." ; FONT oFont1 ; ACTION ( oZSelect1:SetOption(9), ; nZoom := 1, cAction := "O", oImage:Refresh() ) oImage:Refresh calls the calculation. FUNCTION ADJ_ZOOM1(oImage, hDC, cAction, ...

... ON PAINT TAB PaintTab( Self, nOption ); ON CHANGE ( If( nOption == 8, If( MsgYesNo( "Do you want exit??" ), ; oWnd:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) ); ON PAINT TEXT( If( nOption == ::nOption .and. nOption == 2, CLR_BLUE, CLR_BLACK ) ); TOP OPTION 2 ALIGN ...

Gracias.....lo tenia hecho en un prg SetKey( VK_F2, { || ( oFld:SetOption(1) ,; oFld:aDialogs[1]:lFocused,; oForm:UpDate()) } ) Esta era la orden ... gracias Foro nuevamente . quedo a sus gratas ordenes para lo que les pueda ayudar.

... REDEFINE GET oObj[14] VAR vVar ID 115 OF oFld:aDialogs[ 1 ] UPDATE REDEFINE GET oObj[15] VAR vVar ID 114 OF oFld:aDialogs[ 1 ] UPDATE Endi oFld:SetOption( 1 ) oFld:EnableTab( 1 ) REDEFINE BTNBMP oBtn[07] ID 102 RESOURCE 5170 OF oDlg REDEFINE BTNBMP oBtn[08] ID 103 RESOURCE 5180 OF oDlg REDEFINE ...

Horizon wrote:Hi,

I have 5 tabs in TFolderEx. How can I automatically press 3. tabs 1. button by pressing F3 key.

Thanks.

I think , tat you can try something like that ( after pressing F3 or other key ) :

oFold:SetOption( needfullNumber )

Regards !

... operate normally without the folder when I change the variable value to false lBrowse. gets where they should be enabled and not enabled, refresh setoption already did before and do not refresh enables gets. with normal folder when Fando FiveWin change the variable value to enable gets if I click ...

Dear Dondrew

Try :

REDEFINE GET oPC_InvDate VAR dPC_InvDate ID 2101 of oFld:aDialogs[PCashFldr] update


when disable control ,do :

ofld:setoption[PCashFldr]
oPC_InvDate:Disable()
oFld:aDialogs[PCashFldr]:refresh()

or

ofld:setoption[PCashFldr]
oPC_InvDate:Disable()
oFld:Update()


Regards,

Kok

... de la función GetDiskFreeSpace(). * Mejora: La clase TRibbon ahora acepta una cadena de carácteres en la clausula "OPTION", método SetOption() y clausula "TO OPTION" (ADD GROUP) con el título de la pestaña para seleccionarlo.