Folder pestañas "modern"

[Xevi]

Hay algun Folder tipo pestañas de GMail, por ejemplo, más altas, grandes, con imágenes en las pestañas...

En Samples, he visto 3 ejemplos, pero son de la clásica FOLDER, y en wiki no he sabido encontrar nada al respecto.

Gracias.

[Ariel]

Xevi,
Fijate la clase FOLDEREX, hace todo lo que indicas y mas
Saludos.

[Xevi]

En la wiki no está la clase FOLDEREX
No veo Sample.
Veo en Source la Clase... habrá que empezar por ahí???

Algun ejemplillo sencillo ???

Gracias.

[Xevi]

No me pegueis por no buscar antes... lo se!!!
De un ejemplo que he visto, cambio 4 líneas del Sample foldre.prg...

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local oDlg, oFld

   DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ;
      FROM 5, 5 TO 35, 85 //20, 49

//   @ 0.5, 1 FOLDER oFld PROMPT "&xBase", "&And OOP", "&Power" ;
//      OF oDlg SIZE 160, 90
   @ 0.5, 1 FOLDEREX oFld;
              OF oDlg;
              PROMPT "Hoja de Ruta","Decretos","Ordenanzas","Comunicaciones","Despachos","Resoluciones" ;
              PAGES "abms","abms","abms","abms","abms","abms";
              ROUND 05 ;
              SEPARATOR 05 ;
              BOTTOM;
              TRANSPARENT
     
   @ 1, 1 BUTTON "&Hello" OF oFld:aDialogs[ 1 ] ;
     ACTION MsgInfo( "Hello world!" )

   @ 5.5, 11 BUTTON "Ok" OF oDlg ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

procedure AppSys // Xbase++ requirement

return
 

Ya tengo un ejemplo del que partir.


Aunque... sigo sin ver "documentada" la clase en la Wiki.