ScreenShot
Crear una Barra es tan facil como agregar la siguiente linea.
- Code: Select all Expand view
oBar := TExplorerBar():New()
Crear un Panel
- Code: Select all Expand view
oPanel := oBar:AddPanel( "Nuevo panel" )
Crear un Link
- Code: Select all Expand view
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 Expand view
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
