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.
Harbour and Harbour++

...
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 )
...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
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?
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.
leandro wrote: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
Solucionado...
Obrigado a todos,
Rossine.