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/Bcc32 y probada con Fivewin 8.03.
Crear una Barra es tan facil como agregar la siguiente linea.
oBar := TExplorerBar():New()
Crear un Panel
oPanel := oBar:AddPanel( "Nuevo panel" )
Crear un Link
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 ...
Descargar Ejemplo y Libreria en Formato OMF (Borland)
TExplorerBar.zip
Descargar Libreria en Formato COFF (Pellesc,MSVC)
CodigoBase COFF.zip
Nota:
Si la clase te satisface y deseas donar un dolar, para seguir mejorandola y crear otros controles y programas que te sirvan puedes hacer click aqui ...
Donaciones Paypal
La verdad es que el control tiene una pinta de puta madre. Sería posible obtener una version compilada con Harbour?
ResponderEliminarHola Carlos,
ResponderEliminarNormalmente no uso el compilador de harbour, dejame revisar si pronto puedo adaptarlo, probablemente para la proxima version funcione tambien con harbour, trabajo en ello,
Saludos,
Andres Reyes Hernandez
Andres: Hace un Tiempo estuve mirando esto y la forma de acceder, por lo que he visto es HTML, como lograste que tu lib "interprete" html y se comunique con el control? mi interes radica en tratar de meter html en mis app sin hace uso del activex.
ResponderEliminarGracias
Atte.
CDG
Galinelli Cristian Daniel
cgalinelli@hotmail.com
Cristian Daniel:
ResponderEliminar"inteprete" de hecho es la palabra correcta, es algun muy facil de hacer en el caso de etiquetas sencillas como <b></b> <i></i> <u> </u> <br>, que son las que llevo implementadas, me has dado una buena idea para un tema de mi blog, y ahi explicar, paso a paso como le hice. Creo que seria lo mas facil.
Lo felicito por el control
ResponderEliminarMe Gustaria saber si estas libreria se pueden utilizar por ejemplo con Minigui o oohg
Gracias
rp,
ResponderEliminartengo entendido que la TExplorerBar() es para uso con FWH, pero podria adaptarse a oohg, sería cuestión de que Andrés corrobore esta posibilidad.
saludos
Hola disculpa mi ignorancia este control servira para visual Basic 2005?
ResponderEliminarCarlos,
ResponderEliminarDesgraciadamente es solo para xharbour
#include "FiveWin.ch"
ResponderEliminarFunction main
Local oDlg,obar,oPanel
define Dialog oDlg
oBar := TExplorerBar():New(oDlg)
oPanel := oBar:AddPanel("Tareas de Imágenes" )
oPanel:lSpecial := .T.
oPanel:AddLink("Ver como una presentación", bClick ,"presentacion")
activate dialog oDlg
return nil
WHY IT NOT RUN ?
it not run and make this error
Application
===========
Path and name: C:\work\LIB_32\explorerbar\testdlg.Exe (32 bits)
Size: 1,693,696 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 12/31/08, 18:06:23
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = N 0
Stack Calls
===========
Called from: Source\ttaskpanel.prg => TTASKPANEL:NEW(120)
Called from: Source\texplorerbar.prg => TEXPLORERBAR:ADDPANEL(118)
Called from: testdlg.prg => MAIN(8)
SILVIO
#include "FiveWin.ch"
ResponderEliminarFunction main
Local oDlg,obar,oPanel
define Dialog oDlg
activate dialog oDlg ;
on init OnDialogInit( oDlg )
return nil
PROCEDURE OnDialogInit( oDlg )
oBar := TExplorerBar():New(oDlg)
oPanel := oBar:AddPanel("Tareas de Imágenes" )
oPanel:lSpecial := .T.
oPanel:AddLink("Ver como una presentación", ,"presentacion")
return nil
This should work, Silvio
HOLA HOLA. Estimado te felicito por tu trabajo, una pregunta, no tiene efecto de movimiento?
ResponderEliminarMaestro.
ResponderEliminarSe podra compilar con xharbour + fwh906?
Agradeceria tus comentarios
Saludos
Excelente trabajo, magnifico. Aunque es una lastima que no funcione para la version 6.12 de FWH, al compilar llama a unas funciones externas que supongo que seran de las versiones posteriores a la 6.12.
ResponderEliminarHay posibilidad de adaptarla andres?
Paco garcia, tiene una clase igual creada hace tiempo tambien magnifica, aunque esa es de pago, y la tuya libre.
Genial trabajo andres.
Un saludo
Javi
Ya no me funciona con FW 10.1 :(
ResponderEliminarAida..
YA MURIO ESTE BLOG???
ResponderEliminar