FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Folder Pregunta
Posts: 115
Joined: Sat Mar 07, 2009 09:36 PM
Folder Pregunta
Posted: Wed May 16, 2012 10:26 AM

Hola Foro nuevamente yo .... y perdon por ser molesto ja ja

 A VER TENGO UNA IDEA Y NO ME ACUERDO COMO SE HACIA

TENGO UN FOLDER CON CUATRO PESTAÑAS

Ejemplo

        @  56,  20 FOLDER oFld Items "F1",;
                                                    "F2",;
                                                    "F3",;
                                                    "F4";
                                   SIZE 598, 356 PIXEL;
                                  OF oForm COLOR 0, 14215660 FONT oFont1


         En el cual arranco de esta manera
         oFld:aEnable  := {.T.,.F.,.F.,.F.}

        o sea solo activada la primer pestaña

        luego defino la tecla F2

        SET KEY VK_F2 TO Opcion2(oDlg,oFld)


        y en la function Opcion2( oDlg, oFld ) hago lo siguiente y me da error


      oFld:aEnable  := {.F.,.T.,.F.,.F.}
      oFld:aVisible  := {.F.,.T.,.F.,.F.}

Si alguien por ahi en el baul de los recuerdos tiene algo desde ya muy agradecido.

la intencion es que cuando se pulse una tecla de funcion se pueda cambiar el panel del folder

Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Folder Pregunta
Posted: Wed May 16, 2012 01:01 PM
Has intentado con:

Code (fw): Select all Collapse
oFld:SetOption( 2 )

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Posts: 115
Joined: Sat Mar 07, 2009 09:36 PM
Re: Folder Pregunta
Posted: Wed May 16, 2012 02:13 PM

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.

Continue the discussion