Say Transparent na Tbar ??

[Ale SB]

Como y posso ter uno Say transparent em el Tbar ?

Code: Select all  Expand view

DEFINE BUTTONBAR oBar SIZE 70, 60 _3D OF oWnd 2007
     
@ 009, 100 SAY oSay PROMPT "No estas Transparente " OF oBar PIXEL
                       oSay:lTransparent = .T.


Saluds

[Antonio Linares]

Ale,

No puedes usar un objeto SAY transparente sobre un objeto TBar con estilo 2007 aún.

De momento tienes que usar oBar:bPainted:

oBar:bPainted = { || oBar:Say( 7, 285, "Factor:",,, oFont, .T., .T. ) }

[Ale SB]

Gracias, Maestro.

Saluds, Ale

[Vikthor.Thomas]

Hola , ya es posible usar objeto TSay transparente en un TBar ?

[FranciscoA]

Hola. No se si ya lo habrás hecho del modo siguiente.
Actualmente lo hago así:

Code: Select all  Expand view

local cTextoBar := "Texto en ButtonBar (oBar) Centrado"

DEFINE BUTTONBAR oBar 3D SIZE 32,32 OF oDlg 2007
   nTp := 4
   nLf := ( (oBar:nWidth()/2) - ((Len(cTextoBar)/2)*10) )
   nWd := 500
   nHt := 500

   oBar:bPainted = { ||;
        DrawText2(oBar:hDC, oFont:hFont, 1, cTextoBar ,;
        nTp, nLf, nWd, nHt, CLR_BLUE ) }
...
...
//-----------------------------------
FUNCTION DrawText2( hDC, hFont, nBkMode, cText, nTop, nLeft, nWidth, nHeight,color )
LOCAL hFontOld:= SelectObject( hDC, hFont )
LOCAL nBkOld := SetBkMode( hDC, nBkMode )
SetTextColor( hDC, color )
DrawText( hDC, cText, { nTop, nLeft, nTop+nWidth, nLeft+nHeight } )
SelectObject( hDC, hFontOld )
SetBkMode( hDC, nBkOld )
RETURN( NIL )
 

Espero te sirva de algo.
Saludos.