Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 7:08 amAún estamos trabajando en ella pero ya podeis ver su progreso 
FiveTech Software tech support forums
www.FiveTechSoft.com
https://fivetechsupport.com/forums/
Implementando una Clase TExplorerBar propia de FWH
https://fivetechsupport.com/forums/viewtopic.php?f=6&t=18957
Page 1 of 4
Posted: Tue Jun 01, 2010 7:08 amRe: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 1:02 pmExcelente!!!
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 6:25 pmImpresionante Maestro.
saludos
Ruben Fernandez
saludos
Ruben Fernandez
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 8:49 pmHuyyyy super genial y se le podra cambiar los colores 
tu siempre con grandes y gratas sorpresas
Saluditos
tu siempre con grandes y gratas sorpresas
Saluditos
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Tue Jun 01, 2010 10:25 pmmuy bien Antonio.
Se podra que funcione con versiones anteriores.?
Saludos.
Se podra que funcione con versiones anteriores.?
Saludos.
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 2:29 amcada dia, simplemente...MEJOR..!
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 3:47 amTodos 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
Y el código fuente es bastante simple por lo que debe funcionar con versiones anteriores de FWH tambien
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 4:24 amMostrando los bitmaps (configurables) en los paneles y color "hover" (configurable) al estar el ratón sobre un panel:
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 6:48 amMostrando los bitmaps de los items
Código fuente del ejemplo (compatible con la Clase de Andres Reyes):
Código fuente del ejemplo (compatible con la Clase de Andres Reyes):
- Code: Select all Expand view
#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
//----------------------------------------------------------------------------//
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 9:08 amUsando un bitmap para cada panel
- Code: Select all Expand view
#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
//----------------------------------------------------------------------------//
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 12:49 pmEspectacular Antono...
Que se pueda usar desde recursos por favor...
Gracias y saludos
Ruben Fernandez
Que se pueda usar desde recursos por favor...
Gracias y saludos
Ruben Fernandez
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 2:19 pmAntonio,
+1 para que se pueda usar desde recursos !!
Saludos
+1 para que se pueda usar desde recursos !!
Saludos
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Wed Jun 02, 2010 3:30 pmQue bonito se ve
Super genial
Super genial
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Sun Jun 06, 2010 11:48 pmMe muero de curiosidad de saber como esta quedando
saluditos
saluditos
Re: Implementando una Clase TExplorerBar propia de FWH
Posted: Mon Jun 07, 2010 12:13 amAida,
Ya le falta muy poquito para estar terminada
Ya le falta muy poquito para estar terminada