Page 1 of 2

SENSITIVE SAY EN WINDOWS XP TRABA DIALOG

PostPosted: Tue Feb 21, 2006 12:42 pm
by karinha
Buenas...

Hola Foro.

Estoy usando la Classe SSAY.PRG y SSAY.CH, y en Windows 98, está perfecto.

Tengo cincuenta Y uno(51) SAYS en la DIALOG, pero cuando intento COLORIR TODOS, TRABA MI DIALOG en WINDOWS XP.

FiveWin 2.7 For [x]Harbour 0.99.60... Ke devo hacer??

Gracias, y un gran saludos a todos.

PostPosted: Tue Feb 21, 2006 3:27 pm
by Rossine
Olá Antonio,

A classe ssay não está funcionando corretamente com fwh 2.7 fevereiro quando está em uma DIALOG. Em uma WINDOW funciona perfeitamente.

João a minha classe ssay é mais atual que aquela do outro tópico. A minha tem a variável LIGHT a mais.

Para descarregá-la mirem aqui: http://geocities.yahoo.com.br/qiinformatica2000/ssay.zip

Vejam no programa TESTSSAY.PRG na linha: 126 e 127.

Quando a linha 127 está ativa: "...FONT oFont TRANSPARENT"

me sai esta tela:

Image

e quando a linha 126 está ativa: "...FONT oFont"

me sai esta tela:

Image

e sem falar que não está dando o efeito TRANSPARENTE.

Daria para ver este problema para nós ?

Obrigado desde já,

Rossine.

PostPosted: Tue Feb 21, 2006 3:42 pm
by karinha
Rossine wrote:Olá Antonio,

A classe ssay não está funcionando corretamente com fwh 2.7 fevereiro quando está em uma DIALOG. Em uma WINDOW funciona perfeitamente.

João a minha classe ssay é mais atual que aquela do outro tópico. A minha tem a variável LIGHT a mais.

Para descarregá-la mirem aqui: http://geocities.yahoo.com.br/qiinformatica2000/ssay.zip

Vejam no programa TESTSSAY.PRG na linha: 126 e 127.

Quando a linha 127 está ativa: "...FONT oFont TRANSPARENT"

me sai esta tela:

Image

e quando a linha 126 está ativa: "...FONT oFont"

me sai esta tela:

Image

e sem falar que não está dando o efeito TRANSPARENTE.

Daria para ver este problema para nós ?

Obrigado desde já,

Rossine.


Olá Rossine... A minha Funciona Perfeita, exceto cuando tengo 51 SAY'S na DIALOG, esto en WINDOWS XP, Inclusive el comando LIGHT, ti basta alterar SSAY.CH.

Si quiseres envio a minha modificada para voce(usted)... Abraços. Saludos.

PostPosted: Tue Feb 21, 2006 3:53 pm
by karinha
Rossin... Testei esta ke indicastes, y mi funciona perfecto. Abraços.
menos en XP.

PostPosted: Tue Feb 21, 2006 4:26 pm
by Rossine
Olá João,

Eu estou testando este programa com XP. Em relação ao efeito transparente, é só alterar a classe CONTROL.PRG no método INITIATE:

Code: Select all  Expand view
METHOD Initiate( hDlg ) CLASS TControl

   DEFAULT ::lActive := .t., ::lDrag := .f., ::lCaptured := .f.,;
           ::lFocused := .f., ::lCancel := .f., ::lTransparent := .f.

   if( ( ::hWnd := GetDlgItem( hDlg, ::nId ) ) != 0 )

      If( ::lActive, ::Enable(), ::Disable() )
      ::Link()

      if ::oFont != nil
         ::SetFont( ::oFont )
      else
         ::GetFont()
      endif

   else
     #define NOVALID_CONTROLID   1
     Eval( ErrorBlock(), _FWGenError( NOVALID_CONTROLID, "No: " + ;
                                      Str( ::nId, 6 ) ) )
   endif

   if ::lTransparent
*     if IsAppThemed()                     <<-- Tirei isto
         ::SetBrush( ::oWnd:oBrush )
      else
         ::SetBrush( TBrush():New( "NULL" ) )
*     endif                                   <<-- e Tirei isto
   endif   

return nil


mas não sei se isto é o certo. Antonio por favor confirme se isto pode ser assim :wink:

Agora o único problema é em relação aos "cCaption" que ficam repetindo como na primeira imagem que postei acima.

Alguém sabe como resolver isto ???

Obrigado,

Rossine.

PostPosted: Tue Feb 21, 2006 4:43 pm
by Rossine
Oopss...

Isto também não funciona: :oops:

Code: Select all  Expand view
METHOD Initiate( hDlg ) CLASS TControl

...

   if ::lTransparent
*     if IsAppThemed()                     <<-- Tirei isto
         ::SetBrush( ::oWnd:oBrush )
      else
         ::SetBrush( TBrush():New( "NULL" ) )
*     endif                                   <<-- e Tirei isto
   endif   



Desculpem-me.

PostPosted: Tue Feb 21, 2006 5:11 pm
by karinha
Transparent, tá funcionado perfeito... Tudo funciona perfeito.
Menos quando tenho mais de 40 SAY's.

veja briga no fivewin brasil.

PostPosted: Tue Feb 21, 2006 5:33 pm
by Rossine
Ô João,

Aqui está repetindo o say. Tá dificil. :(

http://geocities.yahoo.com.br/qiinforma ... /ssay1.png

Abraços,

Rossine.

PostPosted: Tue Feb 21, 2006 6:02 pm
by karinha
Rossine wrote:Ô João,

Aqui está repetindo o say. Tá dificil. :(

http://geocities.yahoo.com.br/qiinforma ... /ssay1.png

Abraços,

Rossine.


Tem alguma coisa errada com o seu fivewin ou [x]Harbour. Perguntei ao Cristiano e Paulo Araujo se eles estavam com Problemas com o Release de Fevereiro de 2006, e disseram-me que tudo está a contento.

Tente gerar a FIVEHX.LIB com o [x]Harbour 0.99.60 usando o HARB2LIB.EXE y Teste de Novo... Comigo, somente trava a DIALOG no XP, se tiver mais de 40 SAY's... Estranho.

PostPosted: Wed Feb 22, 2006 11:58 am
by karinha
Antonio, Help-me. Gracias.

PostPosted: Wed Feb 22, 2006 12:13 pm
by Rossine
Olá Antonio,

Você poderia nos ajudar a resolver estes problemas ? Infelizmente eu não estou conseguindo resolvê-los.

Obrigado desde já,

Rossine.

Re: SENSITIVE SAY EN WINDOWS XP TRABA DIALOG

PostPosted: Thu Feb 23, 2006 8:29 pm
by karinha
karinha wrote:Buenas...

Hola Foro.

Estoy usando la Classe SSAY.PRG y SSAY.CH, y en Windows 98, está perfecto.

Tengo cincuenta Y uno(51) SAYS en la DIALOG, pero cuando intento COLORIR TODOS, TRABA MI DIALOG en WINDOWS XP.

FiveWin 2.7 For [x]Harbour 0.99.60... Ke devo hacer??

Gracias, y un gran saludos a todos.


Necesito help... Por favor.

PostPosted: Thu Feb 23, 2006 8:36 pm
by Antonio Linares
Rossine,

Hemos modificado las librerias FWH y ya está solucionado. Envíanos un email para que te las enviemos.

PostPosted: Thu Feb 23, 2006 9:14 pm
by Antonio Linares
Joao,

Aqui tienes un ejemplo con 100 SAYs normales funcionando ok:

Image

PostPosted: Thu Feb 23, 2006 9:16 pm
by Rossine
Mil Gracias Maestro :lol:

Rossine.