Implementando una Clase TExplorerBar propia de FWH

[Antonio Linares]

Aún estamos trabajando en ella pero ya podeis ver su progreso

[Patricio Avalos Aguirre]

Excelente!!!

[Ruben Fernandez]

Impresionante Maestro.

saludos

Ruben Fernandez

[AIDA]

Huyyyy super genial y se le podra cambiar los colores

tu siempre con grandes y gratas sorpresas


Saluditos

[JavierVital]

muy bien Antonio.
Se podra que funcione con versiones anteriores.?

Saludos.

[joseluisysturiz]

cada dia, simplemente...MEJOR..!

[Antonio Linares]

Todos sus valores son parametrizables luego se le puede cambiar todo: colores, tipos de letras, posiciones, etc.

Y el código fuente es bastante simple por lo que debe funcionar con versiones anteriores de FWH tambien

[Antonio Linares]

Mostrando los bitmaps (configurables) en los paneles y color "hover" (configurable) al estar el ratón sobre un panel:

[Antonio Linares]

Mostrando los bitmaps de los items



Código fuente del ejemplo (compatible con la Clase de Andres Reyes):

Code: Select all

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
      
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
      
   oPanel2 = oExBar:AddPanel( "Two" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "fourthBMP" )

   oPanel3 = oExBar:AddPanel( "Three" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "firstBMP" )
   oPanel4:AddLink( "Second item", bClick, "secondBMP" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
 

[Antonio Linares]

Usando un bitmap para cada panel

Code: Select all

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
   local bClick := { | o | MsgInfo( o:GetText() ) }
      
   DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
   
   oWnd:SetSize( 350, 600 )

   oExBar = TExplorerBar():New()

   oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
   oPanel1:lSpecial = .T.
   oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
   oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
      
   oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" )
   oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
   oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
   oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
   oPanel2:AddLink( "Fourth item", bClick, "fourthBMP" )

   oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
   
   oPanel4 = oExBar:AddPanel( "Four" )
   oPanel4:AddLink( "First item", bClick, "firstBMP" )
   oPanel4:AddLink( "Second item", bClick, "secondBMP" )

   oWnd:oClient = oExBar

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//
 

[Ruben Fernandez]

Espectacular Antono...

Que se pueda usar desde recursos por favor...
Gracias y saludos

Ruben Fernandez

[Raymundo Islas M.]

Antonio,


+1 para que se pueda usar desde recursos !!



Saludos

[AIDA]

Que bonito se ve

Super genial

[AIDA]

Me muero de curiosidad de saber como esta quedando


saluditos

[Antonio Linares]

Aida,

Ya le falta muy poquito para estar terminada