Hi,
I need to set WIndows 7 look instead of old XP to that class.
Is it possible?.
Thank you.
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ExplorerBar with Windows 7 look
Hello
please post a screen shot about you want
thanks
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Hello.
For example, see Canal5 similar control:
It allows to custom many parameters, but does not work with latest Harbour builds and Canalfive does not exist any longer.
For example, see Canal5 similar control:
#xcommand @ <nTop>, <nLeft> VMENU [ <oAch> ] ;
[ SIZE <nWidth>, <nHeigth> ] ;
[ <dlg:OF,DIALOG> <oDlg> ] ;
[ ACTION <uAction,...> ] ;
[ ON CHANGE <uChange,...> ] ;
[ FONT <oFont> ] ;
[ HEIGHT ITEM <nHItem> ] ;
[ <mode: CENTER, RIGHT, MULTILINE> ] ;
[ <under: UNDERLINE, INSET, SOLID, XBOX, SOLIDUNDERLINE, BUMP, ETCHED, RAISED> ];
[ <lBorder: BORDER> ] ;
[ <color: COLOR, COLORS> <nClrText> [,<nClrPane>[, <nClrPane2> ] ] ] ;
[ COLORBORDE <nClrBorde> ] ;
[ COLORSELECT <nClrTSel> [,<nClrPSel>[,<nClrPSel2> ] ] ] ;
[ COLOROVER <nClrTxtOver>[, <nClrPOver>[,<nClrPOver2> ] ] ] ;
[ MARGIN <nMargen> ] ;
[ SPEEDS <nSpeed> ] ;
[ <selmode: NONE, LFILLED, RFILLED, FILLED, LFOLDER, RFOLDER> ] ;
[ ATTACH TO <oAttach> ] ;
[ <lVGrad: VERTICALGRADIENT > ] ;
[ <lMGrad: MIRROW > ] ;
[ WATERMARK <cWaterMark> ] ;
[ NTRANSPARENT <nTrans> ] ;
=> ;
[ <oAch> := ] TVMenu():New( <nTop>, <nLeft>, <nWidth>, <nHeigth>, <oDlg> ,;
[{|this|<uAction>}] ,;
[<nClrText>] ,;
[<nClrPane>] ,;
[<oFont>] ,;
[<.lBorder.>] ,;
[<nClrBorde>] ,;
[<nHItem>] ,;
[ Upper(<(mode)>) ] ,;
[ Upper(<(under)>) ] ,;
[ <nMargen> ] ,;
[ <nClrPSel> ] ,;
[ <nSpeed> ] ,;
[ Upper(<(selmode)>) ] ,;
[{|Self|<uChange>}] ,;
[ <nClrTSel> ] ,;
[ <oAttach>] ,;
[ <nClrTxtOver> ] ,;
[ <nClrPOver> ] ,;
[ <nClrPOver2> ] ,;
[ <nClrPSel2> ] ,;
[ <.lVGrad.> ] ,;
[ <.lMGrad.> ] ,;
[ <nClrPane2> ] ,;
[ <cWaterMark>] ,;
[ <nTrans> ] )
#xcommand REDEFINE VMENU [ <oAch> ] ;
[ <dlg:OF,DIALOG> <oDlg> ] ;
[ ACTION <uAction,...> ] ;
[ ON CHANGE <uChange,...> ] ;
[ ID <nID> ] ;
[ FONT <oFont> ] ;
[ HEIGHT ITEM <nHItem> ] ;
[ <mode: CENTER, RIGHT, MULTILINE> ] ;
[ <under: UNDERLINE, INSET, SOLID, XBOX, SOLIDUNDERLINE> ];
[ <lBorder: BORDER> ] ;
[ <color: COLOR, COLORS> <nClrText> [,<nClrPane>[, <nClrPane2>] ] ] ;
[ COLORBORDE <nClrBorde> ] ;
[ COLORSELECT <nClrTSel> [,<nClrPSel>[,<nClrPSel2> ] ] ] ;
[ COLOROVER <nClrTxtOver>[, <nClrPOver>[,<nClrPOver2> ] ] ] ;
[ MARGIN <nMargen> ] ;
[ SPEEDS <nSpeed> ] ;
[ <selmode: NONE, LFILLED, RFILLED, FILLED, LFOLDER, RFOLDER> ] ;
[ ATTACH TO <oAttach> ] ;
[ <lVGrad: VERTICALGRADIENT > ] ;
[ <lMGrad: MIRROW > ] ;
[ WATERMARK <cWaterMark> ] ;
[ NTRANSPARENT <nTrans> ] ;
=> ;
[ <oAch> := ] TVMenu():Redefine( <oDlg>,<nID> ,;
[{|this|<uAction>}] ,;
[<nClrText>] ,;
[<nClrPane>] ,;
[<oFont>] ,;
[<.lBorder.>] ,;
[<nClrBorde>] ,;
[<nHItem>] ,;
[ Upper(<(mode)>) ] ,;
[ Upper(<(under)>) ] ,;
[ <nMargen> ] ,;
[ <nClrPSel> ] ,;
[ <nSpeed> ] ,;
[ Upper(<(selmode)>) ] ,;
[{|Self|<uChange>}] ,;
[ <nClrTSel>] ,;
[ <oAttach>] ,;
[ <nClrTxtOver> ] ,;
[ <nClrPOver> ] ,;
[ <nClrPOver2> ] ,;
[ <nClrPSel2> ] ,;
[ <.lVGrad.> ] ,;
[ <.lMGrad.> ] ,;
[ <nClrPane2> ] ,;
[ <cWaterMark>] ,;
[ <nTrans> ])
#xcommand DEFINE TITLE OF <oAch> ;
[ CAPTION <cCaption> ] ;
[ HEIGHT <nHTitle> ] ;
[ FONT <oFont> ] ;
[ COLOR <nClrText>[,<nClrPane> [,<nClrPane2>[,<nSteps> ] ] ] ] ;
[ <lVGrad: VERTICALGRADIENT > ] ;
[ <lMGrad: MIRROW > ] ;
[ IMGBTN <cBtnUp>[, <cBtnDown>]] ;
[ IMAGE <cImage> ] ;
[ ICON <cIcon> ] ;
[ <mode: CENTER, RIGHT, MULTILINE> ] ;
[ <lOpenClose:OPENCLOSE > ] ;
[ RADIOBTN <nRadio> ] ;
[ <lRndSquare:ROUNDSQUARE > ] ;
[ RADIOSQUARE <nRadSqr> ] ;
[ LEFT <nLeftTText> ] ;
[ LEFTIMAGE <nLeftTImg> ] ;
=> ;
<oAch>:SetTitle( [ <cCaption> ] ,;
[ <nHTitle> ] ,;
[ <oFont> ] ,;
[ <nClrText> ] ,;
[ <nClrPane> ] ,;
[ <nClrPane2> ] ,;
[ <nSteps> ] ,;
[ <.lVGrad.> ] ,;
[ <cImage> ] ,;
[ Upper(<(mode)>) ] ,;
[ <cIcon> ] ,;
[ <cBtnUp> ] ,;
[ <cBtnDown> ] ,;
[ <.lOpenClose.> ] ,;
[ <nRadio> ] ,;
[ <.lRndSquare.> ] ,;
[ <.lMGrad.> ] ,;
[ <nRadSqr> ] ,;
[ <nLeftTText> ] ,;
[ <nLeftTImg> ] )
#xcommand DEFINE VMENUITEM [ <oItem> ] ;
[ WIDTH <nWidth> ] ;
[ HEIGHT <nHeigth> ] ;
[ LEFT <nLeft> ] ;
[ OF <oAch> ] ;
[ ACTION <uAction,...> ] ;
[ <color: COLOR, COLORS> <nClrText> [,<nClrPane>[,<nClrPane2>[,<nSteps>] ] ] ] ;
[ <lVGrad: VERTICALGRADIENT > ] ;
[ <lMGrad: MIRROW > ] ;
[ CAPTION <cCaption> ] ;
[ IMAGE <image> [, <imageover> ] ] ;
[ <lIcon: ICON> ] ;
[ <lGroup: GROUP> ] ;
[ <separator: SEPARADOR, LINE, INSET, DOTDOT > ] ;
[ <mode: CENTER, RIGHT, MULTILINE > ] ;
[ LEFTIMAGE <nLeftImg> ] ;
[ <imagesite: IMAGECENTER, IMAGERIGHT > ] ;
[ <lUnderline: UNDERLINE > ] ;
[ MENU <oPopup> ] ;
[ COLORSEPARADOR <nColorSep> ];
[ COLORSELECT <nClrTxtSel>[, <nClrPSel>[, <nClrPSel2> ] ] ] ;
[ TOOLTIP <cToolTip> ];
[ TOP <nTopTxt> ] ;
[ WHEN <bWhen,...> ] ;
[ <lNoHilite: NOHILITE> ] ;
=> ;
[ <oItem> := ] TVItem():New( <oAch> ,;
<cCaption> ,;
<image> ,;
<imageover> ,;
<.lGroup.> ,;
<nClrText> ,;
<nClrPane> ,;
[Upper(<(mode)>)] ,;
[Upper(<(imagesite)>)],;
<nHeigth> ,;
<nLeft> ,;
[Upper(<(separator)>)],;
<nWidth> ,;
<.lUnderline.> ,;
<nLeftImg> ,;
<nClrPane2> ,;
<.lVGrad.> ,;
[{|this|<uAction>}] ,;
<oPopup> ,;
[<nClrPSel>] ,;
[<nClrTxtSel>] ,;
[ <.lMGrad.>] ,;
[ <nSteps>] ,;
[ <cToolTip> ] ,;
<nColorSep> ,;
[ <.lIcon.>] ,;
[ <nTopTxt> ] ,;
[{|Self|<bWhen>} ] ,;
[<nClrPSel2>] ,;
<.lNoHilite.> )
#xcommand SET DIALOG [ <cResName> ] ;
[ TO <oxItem> ] ;
=> ;
<oxItem>:SetDialog( <cResName> )Sintaxis de creaci贸n de vTaskBar
REDEFINE VMENU [ <oAch> ] ; Creaci贸n del vTaskBar desde recursos.
#xcommand @ <nTop>, <nLeft> VMENU [ <oVMenu> ] ; Coordenadas del vTaskBar y nombre del objeto. Creado desde c贸digo
[ SIZE <nWidth>, <nHeigth> ] ; Tama帽o en pixels del vTaskBar. Por construci贸n de FiveWin, cuando creamos
un control en una caja de di谩logo estas medidas no son muy fiables y habr谩
que "tantearlas". En las ventanas se ajustan sin problema.
[ <dlg:OF,DIALOG> <oDlg> ] ; Ventana o caja de di谩logo a quien pertenece el vTaskBar.
[ ACTION <uAction,...> ] ; Acci贸n que se ejecuta cuando se selecciona un elemento de vTaskBar. Se puede,
especificar una acci贸n, independientemente, para cada elemento.
[ ON CHANGE <uChange,...> ] ; Acci贸n a realizar cuando cambie la opci贸n seleccionada
[ FONT <oFont> ] ; Fuente a asignar a los elementos del vTaskBar. A cada elemento de vTaskBar se le
puede indicar independientemente si es negrita o subrayada.
[ HEIGHT ITEM <nHItem> ] ; Altura de los elementos del vTaskBar. Se puede ajustar posteriormente la altura de
cada uno.
[ <mode: CENTER, RIGHT, MULTILINE> ] ; Alineaci贸n genereal de los elementos del vTaskBar. Configurable individualmente
[ <under: UNDERLINE, INSET, SOLID, XBOX, SOLIDUNDERLINE> ]; Modo de representar el elemento seleccionado o el elemento sobre el que est谩
en ese momento el cursor del rat贸n.
UNDERLINE: Subrayado, efecto hiperv铆nculo
INSET: L铆nea 3d
SOLID: Rect谩ngulo relleno de color.
XBOX: Rect谩ngulo sin relleno de fondo
SOLIDUNDERLINE: Subrayado y relleno al mismo tiempo
[ <lBorder: BORDER> ] ; vTaskBar con borde al rededor
[ <color: COLOR, COLORS> <nClrText> [,<nClrPane> ] ] ; Color del texto de los elementos y color del fondo del vTaskBar. Configurable
individualmente
[ COLORBORDE <nClrBorde> ] ; Color del borde del vTaskBar
[ COLORSELECT <nClrTextSelect>[, <nClrPaneSelect> ] ] ; Color de la opci贸n seleccionada. Texto y fondo
[ MARGIN <nMargen> ] ; Margen izquierdo por defecto del texto de los elementos del vTaskBar
[ SPEEDS <nSpeed> ] ; Velocidad con la que se pliega el vTaskBar en caso de definirlo en el t铆tulo como
OPENCLOSE
[ <selectionmode: NONE, LFILLED, RFILLED, FILLED, LFOLDER, RFOLDER> ] ; Modo de selecci贸n
NONE: No colorea la selecci贸n.
LFILLED: (No operativo en esta versi贸n )
RFILLED: (No operativo en esta versi贸n )
FILLED: Rellena de color la opci贸n seleccionada (No operativo en esta versi贸n )
LFOLDER y RFOLDER: Deja sin pintar la l铆nea de la izquierda o de la derecha en
selecci贸n XBOX. 脷til para simular un TabControl vertical (No operativo en esta versi贸n )
[ ATTACH TO <oAttach> ] ; Si queremos hacer que nuestro vTaskBar se mueva cuando un vTaskBar superior se
abra o se cierre, tendremos que indicarle con esta opci贸n a que vTaskBar estar谩
enganchado.
Definici贸n de t铆tulo de vTaskBar
#xcommand DEFINE TITLE OF <oAch> ; Indicamos al vTaskBar que va a tener un t铆tulo. Semejante a una ventana
[ CAPTION <cCaption> ] ; Texto que aparecer谩 en el t铆tulo
[ HEIGHT <nHTitle> ] ; Altura de la barra de t铆tulo del vTaskbar
[ FONT <oFont> ] ; Fuente a utilizar en la barra de t铆tulo del vTaskbar. Por defecto usar谩 la que
use Windows en las barras de t铆tulo de las ventanas.
[ COLOR <nClrText>[,<nClrPane> [,<nClrPane2>[,<nSteps> ] ] ] ] ; Color de la barra de t铆tulo:
1潞 Color de texto
2潞 Color de fondo
3潞 En caso de indicar un color de fondo, la barra de t铆tulo se pintar谩 de forma
degradada utilizando el primer color de fondo como primer color del degradado
y el segundo color de fondo ser谩 el color hacia el que se vaya degradando el
inicial.
4潞 Densidad del color degradado (No operativo en esta versi贸n )
[ <lVGrad: VERTICALGRADIENT > ] ; Degradado vertical. En caso de no indicar esta opci贸n y estar declarados dos colores
de fondo, el degradado ser谩 horizontal.
[ <lMGrad: MIRROW > ] ; Efecto "espejo" en el degradado. Empezar谩 en el primer color, seguira con el segundo y
terminar谩 otra vez con el primero.
[ IMGBTN <cBtnUp>[, <cBtnDown>]] ; Si hacemos que el men煤 sea OPENCLOSE, el control vTaskbar pintar谩 un bot贸n de
dos flechas hacia arriba o hacia abajo seg煤n el control se encuentre plegado o desplegado.
si indicamos dos im谩genes, el control sustituir谩 el bot贸n por defecto por estas dos
im谩genes.
En la actualidad esta versi贸n de vTaskbar no tiene encuenta los temas de XP por lo
cual, si deseamos el efecto, tendremos que hacerlo a mano. La siguiente versi贸n de
vTaskbar ya dispondr谩 de esta opci贸n.
[ IMAGE <cImage> ] ; Im谩gen a pintar en la barra de t铆tulo. En este caso solo puede ser un bitmap. No se
necesita indicar si esta o no en recursos. El programa discrimina en funci贸n de que
se encuentre un punto "." o no. En caso de que lo haya lo carga de fichero, sino
de recursos.
CanalFive vTaskbar hace una gesti贸n econ贸mica de los recursos por lo que el usuario
no tendr谩 que preocuparse por ellos.
[ ICON <cIcon> ] ; Imagen de la barra de t铆tulo. En este caso indicamos un icono.
[ <mode: CENTER, RIGHT, MULTILINE> ] ; Alineaci贸n del texto en la barra de t铆tulo
[ <lOpenClose:OPENCLOSE > ] ; Permite que vTaskbar pueda plegarse y desplegarse pulsando el bot贸n que aparecer谩
en la barra de t铆tulo. El cursor cambiar谩 a un cursor en forma de mano apuntando.
[ RADIOBTN <nRadio> ] ; Radio del bot贸n que se pinta cuando indicamos que el vTaskbar es OPENCLOSE.
[ <lRndSquare:ROUNDSQUARE > ] ; Esquinas redondeadas de la barra de t铆tulo de vTaskbar.
[ RADIOSQUARE <nRadSqr> ] ; Radio de las esquinas redondeadas de la barra de t铆tulo si se elige la opci贸n
ROUNDSQUARE
[ LEFT <nLeftTText> ] ; Ubicaci贸n izquierda absoluta del texto de la barra de t铆tulo.
[ LEFTIMAGE <nLeftTImg> ] ; Ubicaci贸n izqueirda absoluta de la imagen de la barra de vTaskBar
Elementos de vTaskBar
#xcommand DEFINE VMENUITEM [ <oItem> ] ; Definici贸n de un elemento del vTaskBar. Se puede almacenar su referencia en una
variable. Es 煤til si mas adelante deseamos referirnos desde c贸digo a sus propiedades
o si queremos que la imagen del elemento sea la misma de otro ya definido.
[ WIDTH <nWidth> ] ; Anchura del elemento. Por defecto la definida para el vTaskBar
[ HEIGHT <nHeigth> ] ; Altura para el elemento. Por defecto la definida para el vTaskBar
[ LEFT <nLeft> ] ; Ubicaci贸n izquierda absoluta del texto. Por defecto coincidir铆a con el margen establecido
en vTaskBar
[ OF <oAch> ] ; Indicaci贸n del objeto vTaskBar a quien pertenece.
[ ACTION <uAction,...> ] ; Acci贸n a realizar cuando se seleccione. Esta acci贸n sobrescribe la que se pudiera haber
definido en vTaskBar.
[ <color: COLOR, COLORS>
<nClrText> [,<nClrPane>[,<nClrPane2>[,<nSteps>] ] ] ] ; Color de texto, fondo, degradado y densidad del degradado. El 煤timo par谩metro no
est谩 operativo en esta versi贸n
[ <lVGrad: VERTICALGRADIENT > ] ; Degradado vertical. Por defecto, si se indica un segundo color de fondo, el degradado
ser谩 horizontal
[ <lMGrad: MIRROW > ] ; Efecto espejo en el degradado.
[ CAPTION <cCaption> ] ; Texto del elemento del vTaskBar
[ IMAGE <image> [, <imageover> ] ] ; Imagen a visualizar en el elemento del vTaskBar. El segundo par谩metro no est谩 operativo en
esta versi贸n.
[ <lIcon: ICON> ] ; En lugar de un bitmap, se puede indicar un icono.
[ <lGroup: GROUP> ] ; El elemento del vTaskBar no ser谩 seleccionable.
[ <separator: SEPARADOR, LINE, INSET, DOTDOT > ] ; El elemento del vTaskBar se mostrar谩 como un separador, l铆nea, l铆nea3d o l铆nea
de puntos. El color ser谩 el color definido en la opci贸n COLORSPEARADOR
[ <mode: CENTER, RIGHT, MULTILINE > ] ; Alineamiento del texto.
[ LEFTIMAGE <nLeftImg> ] ; Ubicaci贸n izquierda absoluta de la imagen.
[ <imagesite: IMAGECENTER, IMAGERIGHT > ] ; Alineaci贸n de la imagen. Por defecto la imagen se muestra en el lado izquierdo.
No tendr谩 efecto si se indica una ubicaci贸n absoluta.
[ <lUnderline: UNDERLINE > ] ; La opci贸n se pintar谩 subrayada.
[ MENU <oPopup> ] ; El elemento de vTaskBar pintar谩 una flecha en la parte izquierda para mostrar
el men煤 popup indicado en esta opci贸n. El citado men煤 se mostrar谩 al pulsar
sobre el elemento.
[ COLORSEPARADOR <nColorSep> ]; Color del separador
[ COLORSELECT <nClrTxtSel>[, <nClrPSel> ] ] ; Color de la opci贸n cuando est茅 seleccionada. Texto y fondo.
[ TOOLTIP <cToolTip> ]; Texto del tooltip para cada elemento del vTaskBar
[ TOP <nTopTxt> ] ; Ubicaci贸n superior absoluta para el elemento del men煤.
[ WHEN <bWhen,...> ] ; Posibilidad de habilitar o deshabilitar el elemento definiendo un codeblock.It allows to custom many parameters, but does not work with latest Harbour builds and Canalfive does not exist any longer.
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Daniel Garcia-Gil wrote:Hello
please post a screen shot about you want
thanks
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Hello
i did this class to fwh 10.9, but not reported advanced here (sorry), the current version the class is inside sample folder, file listbar.prg, to next build was moved to source\classes and included to library
there are not xcommand (header file)
the sample listbar.prg was enhanced too
http://www.sitasoft.net/fivewin/samples/listbar.zip
i did this class to fwh 10.9, but not reported advanced here (sorry), the current version the class is inside sample folder, file listbar.prg, to next build was moved to source\classes and included to library
there are not xcommand (header file)
the sample listbar.prg was enhanced too
* New: Class TExplorerList. It mimics the Windows 7 vertical lists where all the computer and
the network is explored. Please review samples\listbar.prg. It is a great example!
http://www.sitasoft.net/fivewin/samples/listbar.zip
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Thank you but it is not the same.
Explorerbar is for managing options (Add, Delete, etc), not files.
See please Favourites item, there are options.
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Hello
listbar.prg is only a sample (using files), but you can fill the explorer with you want
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Hello,
Does that control support this look?
Uploaded with ImageShack.us
And this detail?
Uploaded with ImageShack.us
Thank you.
Does that control support this look?
Uploaded with ImageShack.us
And this detail?
Uploaded with ImageShack.us
Thank you.
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Hello
Yes...
Yes, but this a other control, we can use TTITLE
i have not the bitmap, but you can use you own images
http://www.sitasoft.net/fivewin/samples/listbar2.zip
Does that control support this look?
Uploaded with ImageShack.us
Yes...
And this detail?
Uploaded with ImageShack.us
Yes, but this a other control, we can use TTITLE
i have not the bitmap, but you can use you own images
http://www.sitasoft.net/fivewin/samples/listbar2.zip
#include "FiveWin.ch"
#include "ttitle.ch"
#include "ribbon.ch"
FUNCTION Main()
LOCAL oWnd
LOCAL oExplorerList
LOCAL oItem, oSubItem
LOCAL oTitle, oBtn
menu oPopup popup 2010
menuitem "Cut"
menuitem "Copy"
menuitem "Paste"
menuitem "Undo"
menuitem "Redo"
separator
menuitem "Select All"
separator
menuitem "Layout"
menuitem "Folder and search option"
separator
menuitem "Delete"
menuitem "Rename"
menuitem "Remove properties"
menuitem "Properties"
separator
menuitem "Close"
endmenu
DEFINE WINDOW oWnd
@ 015,150 TITLE oTitle size 100, 30 of oWnd SHADOW NOSHADOW;
GRADIENT { { 0.5, RGB(0xfa,0xfc,0xfd), RGB(0xe6,0xf0,0xfa) },;
{ 0.5, RGB(0xdc,0xe6,0xf4), RGB(0xdd,0xe9,0xf7) } }
@ 5, 10 rbbtn oBtn prompt "Organize" of oTitle transparent ;
size 100, 22 round rsize 3 popup;
linecolors RGB(0xf9,0xfb,0xfe), RGB(0xbb,0xca,0xdb);
menu oPopup center
oBtn:bClrGradNormal = {| l |;
if( l, ( { { 0.5, RGB(0xfa,0xfc,0xfd), RGB(0xe6,0xf0,0xfa) },;
{ 0.5, RGB(0xdc,0xe6,0xf4), RGB(0xdd,0xe9,0xf7) } } ),;
( { { 0.5, RGB(0xfd,0xfe,0xff), RGB(0xed,0xf2,0xfa) },;
{ 0.5, RGB(0xd7,0xe4,0xf4), RGB(0xc1,0xd2,0xe8) } } ) ) }
oExplorerList = TExplorerList():New( 0, 0, oWnd, .T., .F., 200, 300 )
oItem = oExplorerList:AddItem( "Favorities" )
oSubItem = oItem:AddItem( "Recent Places" )
oSubItem:lNoMini = .T.
oSubItem = oItem:AddItem( "Download" )
oSubItem:lNoMini = .T.
oSubItem = oItem:AddItem( "Desktop" )
oSubItem:lNoMini = .T.
oItem = oExplorerList:AddItem( "Libraries" )
oSubItem = oItem:AddItem( "Video" )
oSubItem:lNoMini = .T.
oSubItem = oItem:AddItem( "Pictures" )
oSubItem:lNoMini = .T.
oSubItem = oItem:AddItem( "Music" )
oSubItem:lNoMini = .T.
oSubItem = oItem:AddItem( "Documents" )
oSubItem:lNoMini = .T.
oItem = oExplorerList:AddItem( "Homegroup" )
oItem = oExplorerList:AddItem( "Computer" )
oItem = oExplorerList:AddItem( "Network" )
oWnd:oTop := oTitle
oWnd:oLeft := oExplorerList
ACTIVATE WINDOW oWnd
RETURN NILour best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Thank you. I awat next FWh.
Items and subitems, do they support actions and tooltips?.
Is possible to put a get and a say in the TITLE?
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Hello
the tooltips is not supported yet, actions yes
our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
Hello.
Tooltips are very important. For example, indicating that there are subitems, etc.
Also, rascan() in Harbour is hb_rascan() in listbar.prg
Testing you sample, TExplorerList() is invading Title. See picture:
Uploaded with ImageShack.us
Also, I would like that tin SAY not to be printed with a white background, but in the blue background of Title.
Also, Action clause in get is not working, it does nothing.
Thank you. I
Tooltips are very important. For example, indicating that there are subitems, etc.
Also, rascan() in Harbour is hb_rascan() in listbar.prg
Testing you sample, TExplorerList() is invading Title. See picture:
Uploaded with ImageShack.us
Also, I would like that tin SAY not to be printed with a white background, but in the blue background of Title.
Also, Action clause in get is not working, it does nothing.
@ 015,150 TITLE oTitle size 100, 30 of oWnd SHADOW NOSHADOW;
GRADIENT { { 0.5, RGB(0xfa,0xfc,0xfd), RGB(0xe6,0xf0,0xfa) },;
{ 0.5, RGB(0xdc,0xe6,0xf4), RGB(0xdd,0xe9,0xf7) } }
@ 0.5,50 say "I am a Say:" of oWnd transparent
@ 0.5,45 get cGet of oWnd SIZE 110, 22 ;
ACTION browse()Thank you. I
FWH 11.11, Harbour 3.1 and Borland C++ 5.82
Why not have a look at this toppic ?
The VTitle-samples can be used on any other Control like Dialog, Ribbonbar ...
You need something special ? Just let me know.
Best Regards
Uwe 
&
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
i work with FW.
If you have any questions about special functions, maybe i can help.
Hello.
I don麓t want to use in 2011 a control which provides XP look (XP was launched in 2001). Time to use a new look 
FWH 11.11, Harbour 3.1 and Borland C++ 5.82