FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour SAYs trasparentes
Posts: 38
Joined: Thu Oct 13, 2005 09:38 AM

SAYs trasparentes

Posted: Thu Feb 16, 2006 03:30 PM
Acabo de instalar FW27 febrero 2006 + xHarbour 0.99.60

En el ultimo Build de febrero se indica que se pueden trabajar con dialogos trasparentes con un BRUSH de fondo,
DEFINE DIALOG oDlg RESOURCE "GtoPrincipal" OF oWin BRUSH FILE "c:\fondo.bmp" TRANSPARENT

Lo he hecho y funciona perfectamente, salvo los SAY, como se comprueba en la imagen siguiente.



La unica diferencia entre las SAYs que salen sin trasparencia y los transparentes, es que en la definicion de recursos con PellesC, en las propiedades (los que salen mal) esta cambiado a CENTER.

¿Puede ser un bug de la FW?
Un saludo
Alfonso Larrinaga
info@bsinformatica.net
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

SAYs trasparentes

Posted: Thu Feb 16, 2006 08:18 PM

Alfonso,

Si, y ya lo corregimos hace unos dias. El fallo era el estilo centrado.

Envíanos un email privado para solicitarnos las librerías modificadas, indicando si usas Harbour/xharbour y Borland ó Microsoft. Gracias.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 01:05 PM

Buenas...

Antonio, gracias por todo.

Reporto:

Cuando uso la Clase SSAY.PRG Y SSAY.CH, mis SAYS no COLORE, Y mis GET's si MANCHA(sucio) Porque??? Ke hacer para corrigirlos???

Esto, en Windows 98.

Mismo con este nuevo release ke mi enviastes, no funciona correcto.

Gracias y un gran saludo a usted. És increible, Antonio.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 03:08 PM

Antonio, regenerei mi FIVEHX.LIB para [x]HARBOUR 0.99.60, y todo funciono
perfecto, solamente en este modulo no funciono...

Fonte: ERRSYSW.PRG

#ifdef CLIPPER
cErrorLog += " CPU Tipo: " + GetCPU() + CRLF
#else
cErrorLog += " CPU Tipo: " + GetCPU() + " " + ;
AllTrim( Str( GetCPUSpeed() ) ) + " Mhz" + CRLF
#endif

Ke hacer???

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 03:18 PM

João,

Que error te aparece ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 03:29 PM
Antonio Linares wrote:João,

Que error te aparece ?


Gracias por lo pronto atendimento Antonio.


_HB_FUN_GETCPU REFERENCED FROM C:\ERRSYSW.OBJ
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 05:13 PM

Antonio, mi falta algo asi en la Function ERRSYSW.PRG

Static Function GetCpu()
//
Return Nil

Si pongo esto, mi pasa la compilacion... Ke cambiastes en FIVEHC.LIB???

Si bien, kreo ke esto no hace falta... Si o no??

Cuando ke jo necesito de esto GetCpu()???? En cual momento???

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 05:36 PM

La función GetCpu() está ahora dentro de ErrSysW.prg. Si usas tu propio ErrSysW.prg entonces no la tienes.

Cópiala del módulo ErrSysW.prg de FWH.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 05:50 PM
Antonio Linares wrote:La función GetCpu() está ahora dentro de ErrSysW.prg. Si usas tu propio ErrSysW.prg entonces no la tienes.

Cópiala del módulo ErrSysW.prg de FWH.



Antonio, mi Version és la di November/2005 y en c:\fwh27\source\function\ERRSYSW.PRG no tienes esta FUNCTION GETCPU()

Podias poner acá para nosostros por favor???

Muchas gracias. Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 09:22 PM
#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002

function GetCPU()

   local oReg := TReg32():New( HKEY_LOCAL_MACHINE,;
                               "HARDWARE\DESCRIPTION\System\CentralProcessor\0",;
                               .f. )
   local cCpu := oReg:Get( "ProcessorNameString" )

   oReg:Close()

return cCpu
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

SAYs trasparentes

Posted: Fri Feb 17, 2006 09:25 PM
Antonio Linares wrote:
#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002

function GetCPU()

   local oReg := TReg32():New( HKEY_LOCAL_MACHINE,;
                               "HARDWARE\DESCRIPTION\System\CentralProcessor\0",;
                               .f. )
   local cCpu := oReg:Get( "ProcessorNameString" )

   oReg:Close()

return cCpu


Gracias Antonio, ahora Perfecto. Mui Lindo los Says, Gets y los DIALOGOS TRANSPARENTES.

Usted és fantastico. Congratulations. Regards, saludos!!!
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion