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

Post Reply
User avatar
andresreyes_mzt
Posts: 70
Joined: Fri Jan 11, 2008 6:55 am
Location: Mexico
Contact:
Contact andresreyes_mzt

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

Post by andresreyes_mzt »

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

Image

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
{{{ ---- xharbour + Borland C --- }}}
Top
User avatar
wmormar
Posts: 1050
Joined: Fri Oct 07, 2005 10:41 pm
Location: México
Contact:
Contact wmormar

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

Post by wmormar »

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

Image

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
William, Morales
Saludos

méxico.sureste
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Andrés,

Excelente aportación. Muchas gracias! :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
Rossine
Posts: 343
Joined: Tue Oct 11, 2005 11:33 am

Post by Rossine »

Andrés,

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

Obrigado,

Rossine.
Top
User avatar
andresreyes_mzt
Posts: 70
Joined: Fri Jan 11, 2008 6:55 am
Location: Mexico
Contact:
Contact andresreyes_mzt

Post by andresreyes_mzt »

Rossine wrote:Andrés,

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

Obrigado,

Rossine.
Rossine,

Que compilador de C, Utiliza xBuilder ??

Saludos,
{{{ ---- xharbour + Borland C --- }}}
Top
Rossine
Posts: 343
Joined: Tue Oct 11, 2005 11:33 am

Post by Rossine »

Andrés,

Acho que msvc (xHB comercial)

Gracias,

Rossine.
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Andrés,

Puedes usar el VC98 de Microsoft, ó el PellesC.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
andresreyes_mzt
Posts: 70
Joined: Fri Jan 11, 2008 6:55 am
Location: Mexico
Contact:
Contact andresreyes_mzt

Post by andresreyes_mzt »

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
{{{ ---- xharbour + Borland C --- }}}
Top
Rossine
Posts: 343
Joined: Tue Oct 11, 2005 11:33 am

Post by Rossine »

Andrés,

Rossine,

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

Listo ya probada con (x)Builder
Perfeito :D

Muito obrigado por sua classe :D

Saludos,

Rossine.
Top
Frafive
Posts: 189
Joined: Wed Apr 05, 2006 9:48 pm

Post by Frafive »

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
Top
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:
Contact MGA

Post by MGA »

Andrés,

Parabéns pelo seu trabalho :D .

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
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
Top
User avatar
andresreyes_mzt
Posts: 70
Joined: Fri Jan 11, 2008 6:55 am
Location: Mexico
Contact:
Contact andresreyes_mzt

Post by andresreyes_mzt »

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,
{{{ ---- xharbour + Borland C --- }}}
Top
User avatar
andresreyes_mzt
Posts: 70
Joined: Fri Jan 11, 2008 6:55 am
Location: Mexico
Contact:
Contact andresreyes_mzt

Post by andresreyes_mzt »

SGS wrote:Andrés,

Parabéns pelo seu trabalho :D .

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.
{{{ ---- xharbour + Borland C --- }}}
Top
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:
Contact MGA

Post by MGA »

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
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
Top
User avatar
andresreyes_mzt
Posts: 70
Joined: Fri Jan 11, 2008 6:55 am
Location: Mexico
Contact:
Contact andresreyes_mzt

Post by andresreyes_mzt »

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
{{{ ---- xharbour + Borland C --- }}}
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”