SAYs trasparentes

txon · Post by **txon** » Thu Feb 16, 2006 3: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?

Post by **Antonio Linares** » Thu Feb 16, 2006 8: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.

Post by **karinha** » Fri Feb 17, 2006 1: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.

Post by **karinha** » Fri Feb 17, 2006 3: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???

Post by **Antonio Linares** » Fri Feb 17, 2006 3:18 pm

João,

Que error te aparece ?

Post by **karinha** » Fri Feb 17, 2006 3: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

Post by **karinha** » Fri Feb 17, 2006 5: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???

Post by **Antonio Linares** » Fri Feb 17, 2006 5: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.

Post by **karinha** » Fri Feb 17, 2006 5: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.

Post by **Antonio Linares** » Fri Feb 17, 2006 9:22 pm

Code: Select all

#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

Post by **karinha** » Fri Feb 17, 2006 9:25 pm

Antonio Linares wrote:

Code: Select all

#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!!!