SAYs trasparentes

[txon]

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?

[Antonio Linares]

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.

[karinha]

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.

[karinha]

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

[Antonio Linares]

João,

Que error te aparece ?

[karinha]

João,

Que error te aparece ?

Gracias por lo pronto atendimento Antonio.


_HB_FUN_GETCPU REFERENCED FROM C:\ERRSYSW.OBJ

[karinha]

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

[Antonio Linares]

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.

[karinha]

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.

[Antonio Linares]

Code: Select all  Expand view  RUN

#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


[karinha]

Code: Select all  Expand view  RUN

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