FiveTech Support Forums

andresreyes_mzt wrote:ExplorerBar() permite la creacion de barras de exploracion similares a las utilizadas en el explorador de archivos de Windows XP, clase creada y compilada con (x)Harbour y probada con Fivewin 8.03.

ScreenShot



Crear una Barra es tan facil como agregar la siguiente linea.

Code: Select all Collapse

oBar := TExplorerBar():New()

Crear un Panel

Code: Select all Collapse

oPanel := oBar:AddPanel( "Nuevo panel" )

Crear un Link

Code: Select all Collapse

oPanel:AddLink( "Mi Link", { MiAccion() },"Mi Bitmap" )

Una de las caracteristicas de este control es que se puede navegar por los paneles y los links utilizando el teclado, tambien se pueden agregar controles dentro de cualquier panel y navegar en ellos sin ningun problema

Ejemplo:

Code: Select all Collapse

   oBar := TExplorerBar():New()
   
   oPanel := oBar:AddPanel("Tareas de Imágenes" )
      oPanel:lSpecial := .T.
      oPanel:AddLink("Ver como una presentación", bClick ,"presentacion")
      oPanel:AddLink("Pedir copias fotográficas en línea",bClick,"copiamundo")
      oPanel:AddLink("Imprimir imágenes",bClick,"impriimagen")
      oPanel:AddLink("Copiar todos los elementos a un CD",bClick,"copiacd")

   oPanel := oBar:AddPanel("Tareas de archivo y carpeta" )
      oPanel:AddLink("Crear nueva carpeta",bClick,"nuevofolder")
      oPanel:AddLink("Publicar esta carpeta en web",bClick,"publicar")
      oPanel:AddLink("Compartir esta carpeta",bClick,"compartir")
   
   oPanel := oBar:AddPanel("Otros sitios" )
      oPanel:AddLink("Imagenes compartidas",bClick,"folderimg")
      oPanel:AddLink("Mi PC",bClick,"mipc")
      oPanel:AddLink("Mis sitios de red",bClick,"sitiosred")
   
   oPanel := oBar:AddPanel("Detalles" )
   oPanel:cHtmlText :=  "<b>TExplorerBar()</b><br>" +;
                        "<br size=5>" +;
                        "Clase para la creacion de barras de "+;
                        "exploracion al estilo de Windows XP<br>" +;
                        "<br>" +;
                        "<b>Autor</b><br>" +;
                        "<br size=5>" +;
                        "Andres Reyes Hernandez<br>"+;
                        "visita: http://codigo-base.blogspot.com"

Por el momento no proveo el codigo fuente solo una libreria compilada con (x)harbour, el control lo pueden utilizar en sus programas sin ninguna restriccion.

Descarga:

http://codigo-base.blogspot.com/2008/06/texplorerbar-10.html

Andrés,

Excelente aportación. Muchas gracias!

Andrés,

Seria possível gerar a lib para xharbour (xbuilder) ?

Obrigado,

Rossine.

Rossine wrote:Andrés,

Seria possível gerar a lib para xharbour (xbuilder) ?

Obrigado,

Rossine.

Andrés,

Acho que msvc (xHB comercial)

Gracias,

Rossine.

Andrés,

Puedes usar el VC98 de Microsoft, ó el PellesC.

Rossine wrote:Andrés,

Seria possível gerar a lib para xharbour (xbuilder) ?

Obrigado,

Rossine.

Rossine,

http://boxstr.com/files/2482681_3inb7/C ... 20COFF.zip

Listo ya probada con (x)Builder

Muy bueno el control, solo un detalle cuando cambias de tema en windows no te lo toma.

Para poder utlizarlo con fwh 7.12 que tendria que hacer ?

un saludo

Andrés,

Parabéns pelo seu trabalho .

Utilizo o FWH802 + XHARB 1.1 + BCC55, e me acontece ERRO:
um UNRESOLVED EXTERNAL.

Poderia me dizer o que devo fazer para utilizar esta fantastica ferramenta?

SGS

Muy bueno el control, solo un detalle cuando cambias de tema en windows no te lo toma.

Para poder utlizarlo con fwh 7.12 que tendria que hacer ?

SGS wrote:Andrés,

Parabéns pelo seu trabalho .

Utilizo o FWH802 + XHARB 1.1 + BCC55, e me acontece ERRO:
um UNRESOLVED EXTERNAL.

Poderia me dizer o que devo fazer para utilizar esta fantastica ferramenta?

SGS

Andres,

Me ocorre este erro:

[1]:iLink32.Exe -Gn -aa -Tpe -s @sgr.bcl
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN___CLSACTIVE' referenced from C:\DOCUMENTS AND SETTINGS\REINALDO DA S JR\DESKTOP\TEXPLORERBAR\LIB\CODIGOBASE.LIB|texplorerbar
Duplicate resource: Type 24 (user-defined), ID 1; File C:\NEW\TRUNK\NEW\FIVEWIN\SGS.RES resource kept; file C:\NEW\TRUNK\NEW\FIVEWIN\SGS2.RES resource discarded.

Muito obrigado

SGS wrote:
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN___CLSACTIVE'

FUNCTION __CLSACTIVE
    RETURN Nil