Implementando una Clase TExplorerBar propia de FWH

[AIDA]

Eres un genio

Saluditos

[AIDA]

Hola Antonio

Estoy de reposo pero entro a ver que novedades

Saluditos

[Antonio Linares]

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

[norberto]

hi, this class is finished? is part of fwh105? thanks

[Antonio Linares]

Norberto,

Yes, it is almost finished.

It will be published as part of FWH 10.6 in just a few days

[norberto]

ANTONIO, HOW CAN TALK WITH YOU PRIVATED? MSN?

[Antonio Linares]

Norberto,

You can send me an email to alinares@fivetechsoft.com

[mgsoft]

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

[AIDA]

Creo que si se podra cambiar de colores

Saluditos

[AIDA]

La curiosidad de saber como va el TExplorerBar me tiene mordiendo las uñitas


Saluditos

[Antonio Linares]

Aida,

ya le falta poco para estar terminada

Y en unos dias la publicaremos en FWH 10.6

[MdaSolution]

Antonio,
esta clase también trabaja para el diálogo?

[Antonio Linares]

Mda,

Si

[Antonio Linares]

Usando la Clase TExplorerBar desde recursos

explbar2.prg

Code: Select all  Expand view

#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

Code: Select all  Expand view

#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"
 

[Silvio]

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 ?