FiveTech Software tech support forums

Hola,

oFolder:SetOption( nOption )

Siau.

Andrés,

> 4 Al arrancar la aplicación ¿como mando el foco al Grid?.

oBrowse:SetFocus()

> 5 Se puede deshabilitar/habilitar pestañas de un fold???

oFolder:aEnable = { .T., .F. }

Esto deshabilitaría la segunda pestaña.

Frank-Peter,

oFolder:SetOption( 2 )

Antonio Linares wrote:Miguel Angel,

Habría que modificar oFolder:nFdHeight y asignarle el alto de las dos filas de pestañas.

Antonio, perfecto !!!
Gracias y disculpa las molestias, eso me pasa por no revisar la clase.

Un abrazo. El Loco =>))

Miguel Angel,

Habría que modificar oFolder:nFdHeight y asignarle el alto de las dos filas de pestañas.

En el VALID del GET prueba a hacer oFolder:SetOption( 1 ) en caso de que no se cumpla la condición:

... GET ... VALID If( ! <Condicion>, ( oFolder:SetOption( 1 ), .f. ), .t. )

... El folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña. Ejemplo: ON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(), oGet2:SetFocus() ) Esto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en ...

El folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña.

Ejemplo:

ON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(), oGet2:SetFocus() )

Esto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en el objeto oGet2.

El folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña.

Ejemplo:

ON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(), oGet2:SetFocus() )

Esto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en el objeto oGet2.

Joaquín,

En el recurso usa el estilo TCS_BOTTOM en el control SysTabControl32 y luego desde el ON INIT del diálogo envíale el mensaje SendMessage( oFolder:hWnd, CCM_SETVERSION, COMCTL32_VERSION, 0 )

Los valores de esos defines los encuentras en folder.prg.

Ari,

Creio que fazendo oFolder:SetColor(CLR_BLACK, CLR_YELLOW) ele mude a cor. Caso não dê certo, coloque este comando no ON INIT da sua dialog, por exemplo:

activate oDlg on init oFolder:SetColor(CLR_BLACK, CLR_YELLOW)

[ ]'s
Maurilio

He codificado, según el ejemplo. local oWnd, oReBar, oToolBar, oPanel, oBtn1, oFolder, oToolBar2 local oImageList DEFINE WINDOW oWnd TITLE "Testing rebars and toolbars" ; MENU BuildMenu() oReBar = TReBar():New( oWnd ) oPanel := TPanel():New( 0, 0, 75, 300, oReBar ...

Fernando,

oFolder:SetOption( nOption )

... oDlg OF Self STYLE WS_CHILD ; FROM 0, 0 TO oThis:nHeight - oThis:nFdHeight - 5, oThis:nWidth - 6 ; PIXEL NAME cResName ... oFolder:AddItem( "&Teste", "test" ) // siendo test un diálogo en recurso

Eduardo,

You may use <oFolder>:SetOption( <nOption> )