Problema con say transparent

[mastintin]

Tengo un problema con el say que no se coloca transparent . ¿ Alguna idea de como solucionarlo ?
ojo no me vale :

ownd:bPainted := { || ponBarstatus(oWnd), ownd:Say( 584,80 ,"FACTURA",,, , .T., .T. ) }

ya que el say inicialmente se presenta hide() y luego al pulsar un boton se muestra osay1:show().

Pongo el código resumido que da el problema :

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()
 
   LOCAL ofont1
   local osay1
   local oWnd

  DEFINE FONT oFont1 NAME "Arial" SIZE 0, -16 BOLD
 
   DEFINE DIALOG oWnd TITLE "Gestion de Caja" SIZE 855, 600 TRANSPARENT

    @284,80 Say osay1 PROMPT " Factura : " OF oWnd SIZE 35, 12 FONT oFont1 PIXEL TRANSPARENT


   ACTIVATE DIALOG oWnd CENTERED ON PAINT ponBarstatus(oWnd)
   
 
   ofont1:END()
 
 return
 
 
Function ponBarstatus(oDlg,nalto,ncorrec )
   local nHeight:= oDlg:nHeight
   local acolor:={ { 0.40, nRGB( 200, 200, 200 ), nRGB( 184, 184, 184 ) },;
                                    { 0.60, nRGB( 184, 184, 184 ), nRGB( 150, 150, 150 ) } }
DEFAULT nalto := 72
DEFAULT ncorrec:= 0

  nHeight:= nHeight+ncorrec

 GradienTfill(oDlg:hDC,nHeight-(nalto-2),0,nHeight-20,oDlg:nwidth, aColor ,.t.)
 WndBoxIn( odlg:hDc,nHeight-(nalto-1),0,nHeight-(nalto),oDlg:nwidth )

Return Nil
 


 

[mastintin]

con el codigo propuesto por carlos vargashttp://forums.fivetechsupport.com/viewtopic.php?f=6&t=23087&p=123698&hilit=FIXsAY#p123696
resuelvo el problema . Seria bueno revisar de nuevo el sayfix para que queden cerrados todos los casos.
Saludos.