Dsay e Ssay não mostram texto comfwh 2.7

[Rossine]

Olá Pessoal,

Quais as mudanças que tenho que fazer nas classes SSAY.PRG e DSAY.PRG para que funcionem com o fwh 2.7 ?

Vejam abaixo o mesmo programa compilado com SSAY e o SAY nativo do fwh:



Obrigado,

Rossine.

[Rossine]

Olá,

Já tentei isto e não funcionou:

Code: Select all  Expand view  RUN

...
METHOD Paint() CLASS TSSay

   local n
   local nColorShadow, nColorLight

  [color=red]DEFAULT ::lTransparent := .f.   && AQUI[/color]

   if ::nClrLight = Nil
      nColorLight := GetSysColor( COLOR_BTNHIGHLIGHT )
   else
      nColorLight := ::nClrLight
   endif

   ::GetDC()

   if ::lActive
[color=red] *AQUI
      if ::lTransparent .and. ! Empty( ::oBrush:hBitmap )
         SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
         FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
      endif [/color]

      for n := 1 to len( ::aCaption )
...


Obrigado,

Rossine.

[karinha]

LOCAL IDCor

//--- Melhoria visual nos say's
For IDCor=501 to 520
REDEFINE SENSITIVE SAY ID iDcor ;
COLOR CLR_HRED OF oDlg ;
UPDATE ;
BOX RAISED ;
CENTER ;
FONT oFont
Next IDCor // By Ednaldo Rolim - Yes!

http://www.fivewin.com.br/exibedicas.asp?id=609

http://www.fivewin.com.br/dicas/ssay.zip

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=6393

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5779

[leandro]

Cambiando de tema, he estado leyendo los mensajes que mandaron y me causa curiosidad los globos que salen del GET, seran que no tienen un ejemplito sobre esto?

leandroalfonso111@hotmail.com

[RuFer]

Amigos:

La clase TsButton tiene unos say transparentes, son los
STSAY...

Tengo el archivo ch y el archivo .C...
Lo acabo de probar en FWH 2.7 Febrero y Harbour y
los muestra transparentes.

No se si con muchos says funcion igual, si la necesitan les
mando lo que yo tengo...
mandenme un correo el que la quiera.
(Igualmente esta en la clase TsButton)

Saludos

Ruben Fernandez.

[karinha]

Cambiando de tema, he estado leyendo los mensajes que mandaron y me causa curiosidad los globos que salen del GET, seran que no tienen un ejemplito sobre esto?

leandroalfonso111@hotmail.com

Hola Leandro... Esto és una mensajeria del Windows XP, cuando el <CAPS LOCK> está activo.

[Rossine]

Solucionado...

Obrigado a todos,

Rossine.