Page 1 of 1

Dsay e Ssay não mostram texto comfwh 2.7

Posted: Tue Feb 21, 2006 11:49 am
by 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:

Image

Obrigado,

Rossine.

Posted: Tue Feb 21, 2006 11:54 am
by Rossine
Olá,

Já tentei isto e não funcionou:

Code: Select all

...
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.

Posted: Tue Feb 21, 2006 12:53 pm
by 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

Como hacen esos globos

Posted: Wed Feb 22, 2006 1:49 pm
by 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

Posted: Wed Feb 22, 2006 5:03 pm
by 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.

Re: Como hacen esos globos

Posted: Wed Feb 22, 2006 5:25 pm
by karinha
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
Hola Leandro... Esto és una mensajeria del Windows XP, cuando el <CAPS LOCK> está activo.

Posted: Thu Feb 23, 2006 7:16 pm
by Rossine
Solucionado... :D

Obrigado a todos,

Rossine.