Patrizio,
My Solution looks a little bit different and complicated.
to make it possible, to add any Control to a explorerbar :
1. I embedded
VTitles to the panels ( adjusted ).
2. The needed Controls are defined inside the
VTitlesThat works for me without any Problems.
The Screenshot shows :
2 connected Explorerbars with different Panel-backgrounds3 Gets defined in Section 3 ( Explorerbar 2) :
A BTNBMP- and Text-Sample from Explorerbar 1 the 1. Button :-----------------------------------------------------------------------------------------------------------
oBar1 := TExplorerBar():New( 0, aRect4 - nFACTOR1, aRect4 + nFACTOR2, aRect3 - 75, oWnd )
oPanel1 := oBar1:AddPanel("System", , 410 )
oPanel1:lSpecial := .T. // aktive Kopfleiste
oPanel1:SetFont ( oFont1 )
@ 25, -20
TITLE oTitle1 SIZE 120, 500 of
oPanel1 NOBORDER SHADOW BOTTOMRIGHT
oTitle1:aGrdBack := { { 0.87,8388608,16046754 }, { 0.87,16046754,8388608 } }
oTitle1:lRound := .F.
@ 10, 45 BTNBMP oBtn30 OF
oTitle1 ;
SIZE 48, 35 ;
LEFT ;
FILE c_path + "\Images\Preview.BMP" 2007 ;
ACTION ( IIF( lACTIVATE[1] = .T., ( oDlg1:End(), lACTIVATE[1] := .F. ), NIL ), ;
SHOW_FLD1(oWnd, oFont2, oFont3) )
oBtn30:cTooltip := { "Show" + CRLF + ;
"TFolderEx-Dialog","Preview", 1, CLR_BLACK, 14089979 }
@ 50, 35 TITLETEXT OF
oTitle1 TEXT "TFolderEx" FONT oFont2 COLOR 65535
Best Regards
Uwe