FiveTech Software tech support forums

Posted: **Tue Jun 24, 2008 6:31 pm**

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

oBar := TExplorerBar():New()

Crear un Panel

Code: Select all

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

Crear un Link

Code: Select all

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

   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 ... ar-10.html

Posted: **Tue Jun 24, 2008 6:52 pm**

Andrés,

simplemente excelente aportación, he estado checando y es un control totalmente novedoso.

se comporta igual que la barra de windows XP.

saludos

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
oBar := TExplorerBar():New()
Crear un Panel
Code: Select all
oPanel := oBar:AddPanel( "Nuevo panel" )
Crear un Link
Code: Select all
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
 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 := "TExplorerBar() " +;
 " " +;
 "Clase para la creacion de barras de "+;
 "exploracion al estilo de Windows XP " +;
 " " +;
 "Autor " +;
 " " +;
 "Andres Reyes Hernandez "+;
 "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 ... ar-10.html

Posted: **Tue Jun 24, 2008 6:55 pm**

Andrés,

Excelente aportación. Muchas gracias!

Posted: **Tue Jun 24, 2008 8:39 pm**

Andrés,

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

Obrigado,

Rossine.

Posted: **Tue Jun 24, 2008 8:49 pm**

Rossine wrote:Andrés,

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

Obrigado,

Rossine.

Rossine,

Que compilador de C, Utiliza xBuilder ??

Saludos,

Posted: **Tue Jun 24, 2008 8:59 pm**

Andrés,

Acho que msvc (xHB comercial)

Gracias,

Rossine.

Posted: **Tue Jun 24, 2008 10:31 pm**

Andrés,

Puedes usar el VC98 de Microsoft, ó el PellesC.

Posted: **Wed Jun 25, 2008 12:15 am**

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,

Saludos

Posted: **Wed Jun 25, 2008 2:14 am**

Andrés,

Rossine,

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

Listo ya probada con (x)Builder

Perfeito

Muito obrigado por sua classe

Saludos,

Rossine.

Posted: **Wed Jun 25, 2008 8:39 am**

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

Posted: **Wed Jun 25, 2008 11:33 am**

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

Posted: **Wed Jun 25, 2008 12:05 pm**

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

Como nunca cambio de tema de windows xp, no pense en eso, investigo lo de los colores, y los bitmaps de los temas actuales, para la proxima version

Para poder utlizarlo con fwh 7.12 que tendria que hacer ?

Trata de Usarlo, con esa version y avisame si tienes algun problema al linkear, solo asi lo sabremos.

Saludos,

Posted: **Wed Jun 25, 2008 12:09 pm**

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

Yo Utilizo

FWH803 + XHARB 1.1 + BCC55

prodria decirme los errores completos que tiene al linkear para ver que funcion hace falta, para ver si podemos hacer algo.

Posted: **Wed Jun 25, 2008 2:48 pm**

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

Posted: **Wed Jun 25, 2008 3:11 pm**

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

Agrega estas linea en alguna parte de tu programa, y me dices que pasa

Code: Select all

FUNCTION __CLSACTIVE
    RETURN Nil

Saludos,

Andres

FiveTech Software tech support forums

[TExplorerBar() v1.0] Control Freeware xharbour/fivewin

[TExplorerBar() v1.0] Control Freeware xharbour/fivewin

Re: [TExplorerBar() v1.0] Control Freeware xharbour/fivewin