Hola amigos:
Como cambiar el color de la barrar de TExplorerBar ?
Gracias
TExplorerBar
Re: TExplorerBar
Hola buenas tardes
Retomando el tema.
Es posible cambiar la apariencia de la TExplorerBar?
Saludos
Retomando el tema.
Es posible cambiar la apariencia de la TExplorerBar?
Saludos
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
- compubrion
- Posts: 130
- Joined: Thu Mar 08, 2007 6:12 pm
- Location: Miranda - Venezuela
- Contact:
Re: TExplorerBar
Saludos !
Puedes cambiar el color del fondo cambiando los valores de
::nTopColor
::nBottomColor
Para los panelses puede usar el method ::SetColor( ::nClrText, ::nClrPane )
Te dejo un ejemplo
Puedes cambiar el color del fondo cambiando los valores de
::nTopColor
::nBottomColor
Para los panelses puede usar el method ::SetColor( ::nClrText, ::nClrPane )
Te dejo un ejemplo
Code: Select all
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4
local bClick := { | o | MsgInfo( o:GetText() ) }
DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar"
oWnd:SetSize( 350, 600 )
oExBar = TExplorerBar():New()
oExBar:nTopColor := RGB( 97, 236, 77 )
oExBar:nBottomColor := RGB( 97, 236, 77 )
oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" )
oPanel1:lSpecial = .T.
oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" )
oPanel2:SetColor( CLR_RED, CLR_MAGENTA)
oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" )
oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" )
oPanel3:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" )
oPanel3:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" )
oPanel3:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" )
oPanel4 = oExBar:AddPanel( "Four" )
oPanel4:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" )
oPanel4:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" )
oWnd:oClient = oExBar
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
Harbour / Bcc / MinGW / Fwh 13.9
Re: TExplorerBar
Very good!! Mui bueno. Gracias por el aporte.compubrion wrote:Saludos !
Puedes cambiar el color del fondo cambiando los valores de
::nTopColor
::nBottomColor
Para los panelses puede usar el method ::SetColor( ::nClrText, ::nClrPane )
Te dejo un ejemploCode: Select all
#include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oWnd, oExBar, oPanel1, oPanel2, oPanel3, oPanel4 local bClick := { | o | MsgInfo( o:GetText() ) } DEFINE WINDOW oWnd TITLE "FWH Class TExplorerBar" oWnd:SetSize( 350, 600 ) oExBar = TExplorerBar():New() oExBar:nTopColor := RGB( 97, 236, 77 ) oExBar:nBottomColor := RGB( 97, 236, 77 ) oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" ) oPanel1:lSpecial = .T. oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" ) oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" ) oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" ) oPanel2:SetColor( CLR_RED, CLR_MAGENTA) oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" ) oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" ) oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" ) oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" ) oPanel3 = oExBar:AddPanel( "Three", "..\bitmaps\32x32\graphics.bmp" ) oPanel3:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" ) oPanel3:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" ) oPanel3:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" ) oPanel4 = oExBar:AddPanel( "Four" ) oPanel4:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" ) oPanel4:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" ) oWnd:oClient = oExBar ACTIVATE WINDOW oWnd return nil //----------------------------------------------------------------------------//
João Santos - São Paulo - Brasil
Re: TExplorerBar
Compubrion muchas gracias por responder
Hice _ que mencionaste y funciona, pero no me daban el efecto que queria lograr. Buscando en el foro encontre una clase desarrollada por Andres Reyes Hernandez. La cual se ajusta mucho mas a lo que quiero.
Muchas Gracias
Hice _ que mencionaste y funciona, pero no me daban el efecto que queria lograr. Buscando en el foro encontre una clase desarrollada por Andres Reyes Hernandez. La cual se ajusta mucho mas a lo que quiero.
Muchas Gracias
Saludos
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]
LEANDRO ALFONSO
SISTEMAS LYMA - BASE
Bogotá (Colombia)
[ FWH 19.09 ] [ xHarbour 1.2.3 Intl. (SimpLex) (Build 20190613) ] [ Embarcadero C++ 7.30 for Win32 ]