Eres un genio 
Saluditos 
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Implementando una Clase TExplorerBar propia de FWH
Hola Antonio
Estoy de reposo pero entro a ver que novedades
Saluditos
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
La documentación en marcha gracias a la ayuda de Anser, miembro del equipo FiveTech 
http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_texplorerbar
http://wiki.fivetechsoft.com/doku.php?id=fivewin_class_texplorerbar
hi, this class is finished? is part of fwh105? thanks
Norberto,
Yes, it is almost finished.
It will be published as part of FWH 10.6 in just a few days 
ANTONIO, HOW CAN TALK WITH YOU PRIVATED? MSN?
Norberto,
You can send me an email to alinares@fivetechsoft.com
Hola:
Yo le añadiría la posibilidad de cambiar colores. Por ejemplo:
@ 10, 10 VMENU oVMenu SIZE 120, 345 OF oDlg ;
COLOR CLR_BLUE, GetSysColor(16) ;
COLORBORDE RGB( 0, 0, 0 ) ;
FILLED UNDERLINE ;
COLORSELECT 0 ;
HEIGHT ITEM 25 ;
BORDER
También la posibilidad de la altura.
Igualmente, el título debería admitir la altura y colores:
DEFINE TITLE OF oVMenu ;
CAPTION "Opciones" ;
HEIGHT 26 ;
COLOR GetSysColor(3), GetSysColor(4), GetSysColor(9);
VERTICALGRADIENT;
IMGBTN "VMENU_UP","VMENU_DOWN" ;
OPENCLOSE RADIOBTN 15
Y añadir separador entre las opciones.
Dejo una información adicional:
http://rapidshare.com/files/398158984/doc.zip.html
Un saludo
Saludos,
Eduardo
Eduardo
Creo que si se podra cambiar de colores 
Saluditos
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
La curiosidad de saber como va el TExplorerBar me tiene mordiendo las uñitas
Saluditos
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Atropellada pero aqui ando :P
I love Fivewin
séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Aida,
ya le falta poco para estar terminada
Y en unos dias la publicaremos en FWH 10.6
Antonio,
esta clase también trabaja para el diálogo?
FWH .. BC582.. xharbour
Mda,
Si
Usando la Clase TExplorerBar desde recursos
explbar2.prg
explbar2.rc
explbar2.prg
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oExBar
DEFINE DIALOG oDlg RESOURCE "Test"
oExBar = TExplorerBar():Redefine( 100 )
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ExplBarInit( oExBar )
return nil
//----------------------------------------------------------------------------//
function ExplBarInit( oExBar )
local oPanel1, oPanel2, oPanel3, oPanel4
local bClick := { | o | MsgInfo( o:GetText() ) }
oPanel1 = oExBar:AddPanel( "One", "people" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "First item", bClick, "additem" )
oPanel1:AddLink( "Second item", bClick, "copy" )
oPanel2 = oExBar:AddPanel( "Two", "case" )
oPanel2:AddLink( "First item", bClick, "adddbf" )
oPanel2:AddLink( "Second item", bClick, "delete" )
oPanel2:AddLink( "Third item", bClick, "envelope" )
oPanel2:AddLink( "Fourth item", bClick, "envelope" )
oPanel3 = oExBar:AddPanel( "Three", "graphics" )
oPanel3:AddLink( "First item", bClick, "adddbf" )
oPanel4 = oExBar:AddPanel( "Four" )
oPanel4:AddLink( "First item", bClick, "copy" )
oPanel4:AddLink( "Second item", bClick, "additem" )
return nil
//----------------------------------------------------------------------------//explbar2.rc
#include <windows.h>
#ifdef __FLAT__
1 24 "WinXP/WindowsXP.Manifest"
#endif
#ifdef __64__
1 24 "WinXP/WindowsXP.Manifest64"
#endif
Test DIALOG 17, 36, 400, 350
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "FWH Class TExplorerBar"
FONT 8, "MS Sans Serif"
{
CONTROL "Test", 100, "TEXPLORERBAR", 0 | WS_CHILD | WS_VISIBLE, 0, 0, 150, 350
DEFPUSHBUTTON "OK", 1, 341, 327, 50, 14
}
people BITMAP "..\bitmaps\32x32\people.bmp"
case BITMAP "..\bitmaps\32x32\case.bmp"
graphics BITMAP "..\bitmaps\32x32\graphics.bmp"
additem BITMAP "..\bitmaps\16x16\additem.bmp"
copy BITMAP "..\bitmaps\16x16\copy.bmp"
adddbf BITMAP "..\bitmaps\16x16\adddbf.bmp"
delete BITMAP "..\bitmaps\16x16\delete0.bmp"
envelope BITMAP "..\bitmaps\16x16\envelope.bmp"
Just an Idea : U can insert a nHeight from each menu into each Panel : the nheight can be give from the nheight of bitmap of the option menu or You can insert
a separator or Line separator or inset from a option to another of menu .
and insert an arrow popup if the option menu can have a submenu
Important :
on a panel we can have the possibility to show combobox, Radio buttons, Gets, buttons and say
I saw you can only insert item with bitmaps and link but these other control are need I explain you
we can have a texplorerbar at left for a sample into a dialog with a xbrowse at the right
we can change the index from a combobox of the xbrowse or search a data into xbrowse
you think you can found a solution to insert these control on the texplorerbar class ?
a separator or Line separator or inset from a option to another of menu .
and insert an arrow popup if the option menu can have a submenu
Important :
on a panel we can have the possibility to show combobox, Radio buttons, Gets, buttons and say
I saw you can only insert item with bitmaps and link but these other control are need I explain you
we can have a texplorerbar at left for a sample into a dialog with a xbrowse at the right
we can change the index from a combobox of the xbrowse or search a data into xbrowse
you think you can found a solution to insert these control on the texplorerbar class ?
Best Regards, Saludos
Falconi Silvio
Falconi Silvio