Victor escribió:
Otra mas.
Teniendo un TExplorerBar, quiero escribir un Label con la propiedad transparent:= .T. encima del TExplorerBar, pues bien me aparece el label todo negro. ¿ Alguien sabe como solucionarlo ?.
Un saludo.
Víctor
Hola Victor.
...temas, temas, temas....
Te cuento 'mi truco'.
Yo pongo un BENDITO LABEL ajustado al client y... yas'ta.
Dentro del label incluyes lo que necesites....
El resultado es muy bueno.
Ademas yo (que soy 'un manias') le pongo el borde a mano, quiero decir esto:
#include "GUI.ch"
#include "common.ch"
// ============================================================================
// FUNCTION LabelExplorerSheet
// ============================================================================
FUNCTION LabelExplorerSheet( oOwner )
LOCAL oLabel
oLabel := TLabel():Create( oOwner )
oLabel:AutoSize := False
oLabel:SetSize( 0, 0 )
oLabel:Align := alClient
oLabel:Brush:Color := 16443612
oLabel:Transparent := False
oLabel:OnPaint := { | oSender, nDC | LabelExplorerSheetOnPaint( oSender, nDC ) }
RETURN oLabel
// ----------------------------------------------------------------------------
STATIC PROCEDURE LabelExplorerSheetOnPaint( oSender, nDC )
local oPen, hOldPen
oPen := TPen():Create()
oPen:Color := clWhite
hOldPen := SelectObject( nDC, oPen:Handle )
MoveToEx( nDC, 0, 0 )
LineTo( nDC, oSender:Width - 1, 0 )
LineTo( nDC, oSender:Width - 1, oSender:Height - 1 )
LineTo( nDC, 0, oSender:Height - 1 )
LineTo( nDC, 0 , 0 )
SelectObject( nDC, hOldPen )
oPen:Destroy()
RETURN
// EoF: ExplorerSheet.prg
// ============================================================================