Page 1 of 1

SAYs trasparentes

PostPosted: Thu Feb 16, 2006 3:30 pm
by 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.

Image

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?

PostPosted: Thu Feb 16, 2006 8:18 pm
by 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.

PostPosted: Fri Feb 17, 2006 1:05 pm
by 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.

PostPosted: Fri Feb 17, 2006 3:08 pm
by 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???

PostPosted: Fri Feb 17, 2006 3:18 pm
by Antonio Linares
João,

Que error te aparece ?

PostPosted: Fri Feb 17, 2006 3:29 pm
by karinha
Antonio Linares wrote:João,

Que error te aparece ?


Gracias por lo pronto atendimento Antonio.


_HB_FUN_GETCPU REFERENCED FROM C:\ERRSYSW.OBJ

PostPosted: Fri Feb 17, 2006 5:13 pm
by 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???

PostPosted: Fri Feb 17, 2006 5:36 pm
by 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.

PostPosted: Fri Feb 17, 2006 5:50 pm
by karinha
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.

PostPosted: Fri Feb 17, 2006 9:22 pm
by Antonio Linares
Code: Select all  Expand view
#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

PostPosted: Fri Feb 17, 2006 9:25 pm
by karinha
Antonio Linares wrote:
Code: Select all  Expand view
#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!!!