Nueva Clase: TFolderEx

[Daniel Garcia-Gil]

William


no es un metodo, existe un avariable bPopup para mostar un menu popup por cada tabs, tu eligiras las opciones a mostrar, es solo un ejemplo, yo he elejido Show / Enable, pero podras armarlo com quieras

[wmormar]

Entendido y anotado

[Carles]

Daniel -> Espectacular

[AIDA]

Hola

Tengo una pregunta a la mejor suena boba pero quisera saber si se puede cambiar el color del fondo de los folders o siempre seran de color blanco


Saluditos

[fgondi]

Daniel,

Muy, pero que muy buena clase

[cuatecatl82]

Hola Daniel:

Antes que nada felicidades por esforzarte en esta aportaciòn para FW, seguro le dara mucha importancia ya que muchos usamos los tabs para tener muchos controles u opciones a mostrar, me gusta que son totalmente configurables, me nace una pregunta y es que si fuera posible que no solamente sean tabs horizontales, si no tambien verticales..? Se podrá desde recursos o desde puro código..?

Un Saludo..

[Daniel Garcia-Gil]

me nace una pregunta y es que si fuera posible que no solamente sean tabs horizontales, si no tambien verticales..?
Un Saludo..

Desde el foro de ingles me hicieron la misma pregunta y empece a trabajar en diferehtes disposiciones por ahora esta listo solo TOP y BOTTOM

Descargar Ejemplo
Para mejores resultados, ejecutar desde la carpeta sample de fivewin

TOP


BOTTOM

Se podrá desde recursos o desde puro código..?

Ya habia reportado que se puede hacer uso desde recursos
viewtopic.php?p=103049#p103049

[Daniel Garcia-Gil]

Saludos...

Los Tabs verticales estan funcionando en el lado izquierdo
Ahora a trabajar para el lado derecho

[Willi Quintana]

ALUCINANTE!!!
Salu2

[Daniel Garcia-Gil]

Estan funcionando los Tab verticales al lado derecho

[Daniel Garcia-Gil]

Nuevo ejemplo para probar la ubicacion de los tabs

Descarga AQUI

Code: Select all  Expand view

#include "FiveWin.ch"

function main()
   local oWnd, i, oBrush2
   local oFld
                     
   DEFINE BRUSH oBrush2 FILE "..\bitmaps\backgrnd\metal.bmp"                      
   
   DEFINE WINDOW oWnd TITLE "TFolderex - Testing -"
     
   @ 3, 3 FOLDEREX oFld PIXEL ADJUST;
          PROMPT  "&Social", "&OS", "&Games", "&Movies", "&Email", "Mo&nths", "Se&tting", "E&xit";
          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 2, 2, 2

   @   5, 140 BUTTONBMP PROMPT "" BITMAP "..\bitmaps\bartop.bmp"   OF oFld:aDialogs[ 2 ] PIXEL;
       ACTION ( oFld:SetLayOut( 1 ) )
         
   @ 105, 140 BUTTONBMP PROMPT "" BITMAP "..\bitmaps\barDown.bmp"  OF oFld:aDialogs[ 2 ] PIXEL;
       ACTION ( oFld:SetLayOut( 3 ) )    
       
   @  55,  80 BUTTONBMP PROMPT "" BITMAP "..\bitmaps\barleft.bmp"  OF oFld:aDialogs[ 2 ] PIXEL;
       ACTION ( oFld:SetLayOut( 2 ) )    
   
   @  55, 200 BUTTONBMP PROMPT "" BITMAP "..\bitmaps\barright.bmp" OF oFld:aDialogs[ 2 ] PIXEL;
       ACTION ( oFld:SetLayOut( 4 ) )    

       
   oFld:aDialogs[ 2 ]:SetBrush( oBrush2 )          

   ACTIVATE WINDOW oWnd;
            ON INIT oFld:Resize()
   
RETURN NIL

FUNCTION PaintTab( o, nOption )
   LOCAL hBrush, hBmp, nLastRow


   IF nOption == o:nOver .OR. nOption == o:nOption
      o:SetAlphaLevel( nOption, 255 )
   ELSE
      o:SetAlphaLevel( nOption, 50 )
   ENDIF
   
   IF nOption == o:nOption .and. nOption == 2
      hBmp = ReadBitmap( 0, "..\bitmaps\backgrnd\metal.bmp" )
      hBrush = CreatePatternBrush( hBmp )
      DeleteObject( hBmp )
      IF o:nLayOut == 2
         nLastRow = o:aPos[ o:aLines[ o:aOrder[ 1 ] ][ 1 ] ][ 1 ] + o:nFolderHeight
         SetBrushOrgEx( o:hDC, nLastRow + 2, 1 )  
      ELSE
         SetBrushOrgEx( o:hDC, 2, 2 )
      ENDIF
      RETURN hBrush
   ENDIF  
   
RETURN o:SetFldColors( o, nOption )      

 

[Raymundo Islas M.]

Daniel,

Simplemente ESPECTACULAR !!!

Para los que usamos mucho los folders ( a veces demasiado ) este tipo de clase/control es alucinante !!

CONGRATS

Si mis ojitos no me mienten, una fila de pestañas siempre es mas grande, es normal ?


Saludos

[Daniel Garcia-Gil]

Soportada accion en los bitmpas (simulando botones)
Click derecho despliega un menu popup

Descargar AQUI

[AIDA]

Huyyyyyy super super bonito todo

Super Folders con TV y radio FM


Saluditos

[JoseCarlos]

Ola

Alguem saberia me dizer a partir de qual versão a classe funciona ?