SENSITIVE SAY EN WINDOWS XP TRABA DIALOG

SENSITIVE SAY EN WINDOWS XP TRABA DIALOG

Postby karinha » Tue Feb 21, 2006 12:42 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Rossine » Tue Feb 21, 2006 3:27 pm

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.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Postby karinha » Tue Feb 21, 2006 3:42 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby karinha » Tue Feb 21, 2006 3:53 pm

Rossin... Testei esta ke indicastes, y mi funciona perfecto. Abraços.
menos en XP.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Rossine » Tue Feb 21, 2006 4:26 pm

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.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Postby Rossine » Tue Feb 21, 2006 4:43 pm

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.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Postby karinha » Tue Feb 21, 2006 5:11 pm

Transparent, tá funcionado perfeito... Tudo funciona perfeito.
Menos quando tenho mais de 40 SAY's.

veja briga no fivewin brasil.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Rossine » Tue Feb 21, 2006 5:33 pm

Ô João,

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

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

Abraços,

Rossine.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Postby karinha » Tue Feb 21, 2006 6:02 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby karinha » Wed Feb 22, 2006 11:58 am

Antonio, Help-me. Gracias.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Rossine » Wed Feb 22, 2006 12:13 pm

Olá Antonio,

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

Obrigado desde já,

Rossine.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Re: SENSITIVE SAY EN WINDOWS XP TRABA DIALOG

Postby karinha » Thu Feb 23, 2006 8:29 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7805
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Antonio Linares » Thu Feb 23, 2006 8:36 pm

Rossine,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42080
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » Thu Feb 23, 2006 9:14 pm

Joao,

Aqui tienes un ejemplo con 100 SAYs normales funcionando ok:

Image
Last edited by Antonio Linares on Thu Feb 23, 2006 9:16 pm, edited 1 time in total.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42080
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Rossine » Thu Feb 23, 2006 9:16 pm

Mil Gracias Maestro :lol:

Rossine.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests