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
// ============================================================================

_________________
Un saludo.
Jesús P. Melgar Velasco

Jesús he intentado lo que comentas y no he conseguido los resultados esperados.

Un saludo.
Víctor

A ver.

Si NO utilizas IDE, incorporas el codigo a tu aplicacion y haces una llamada asi:

WITH ::FESheetUtilidades := ::Pages[ 2 ]
:SetSize( 0, 144 )
:Special := True
:Expanded := False
:Font:Bold := True
:Icon:Name := 8022

::FLabelUtilidades := LabelExplorerSheet( ::FESheetUtilidades )
......

Si, por el contrario, UTILIZAS IDE:
Crea el control con las definiciones de la función y al evento OnPain le añades el codigo de la fincion STATIC.
¿Ok?
Saludotes

_________________
Un saludo.
Jesús P. Melgar Velasco