Tengo otra petición
Que la rueda del ratón también desplace el panel.
leandro wrote:Tengo otra petición
Que la rueda del ratón también desplace el panel.
Supongo que te funcionó lo de ajustar el primer panel al top del TExplorerBar, no?
Quieres decir que tienes más paneles de los que caben en el TExplorerBar y quieres actuar sobre el scroll con el ratón?
Antonio Linares wrote:Puedes proporcionar un PRG ejemplo pequeño y autocontenido de como lo estás haciendo ?
oExBar:nTopColor := FONDODIAL2
oExBar:nBottomColor :=FONDODIAL2
oPanel1 = oExBar:AddPanel( "Informes", "MALETIN" )
opanel1:SetColor(letras,fondo)
oPanel1:AddLink("Vistas_I",bClick, )
oPanel1:AddLink("Imprimir_I",bclick, )
oPanel1:AddLink("Listados_I",bclick, )
oPanel1:AddLink("Seguimiento",bclick, )
oPanel1:AddLink( "Incorporar pdfs",bclick, )
oPanel1:AddLink( "Elementos Codif.",bClick, )
oPanel1:AddLink("Config Impresion",bclick, )
activate.... oExBar:CloseAll(0)
method:
METHOD CloseAll( nOpen ) CLASS TExplorerBar
local nPanel, nItem
*DEFAULT nOpen := 1
for nPanel := nOpen + 1 to Len( ::aPanels )
with object ::aPanels[ nPanel ]
:lCollapsed = .T.
:nTopMargin = 1
:nLeftMargin = ::aPanels[ 3 ]:nLeftMargin-5
:nRightMargin = ::aPanels[ 3 ]:nRightMargin+6
:nLeft = :nLeftMargin
:nRight = ::oWnd:nWidth - :nRightMargin
:nHeight = :nTitleHeight
end
for nItem := nPanel + 1 To Len( ::aPanels )
::aPanels[ nItem ]:nTop -= ( ::aPanels[ nPanel ]:nBodyHeight )
next
next
return nil
gracias
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 35 guests