HMG 3.4.1

[EduardoLuis]

Hola Pepe:

Podrías subir un pequeño ejemplo para testear.- Así resultará mas facil encontrar el problema.-
En mi experiencia no he tenido problemas con el Status Bar ( Versión 3.41 + patch2 bajo Win XP SP3 y Win 8), aunque uso únicamente 3 campos en el Status Bar: 1 para mensajes al usuario, clock, y date.-
Cordialmente.
Eduardo

Hi Pepe:

Could you upload an small sample to test.- In order to help you, this way it will be easy to find a solution.-
In my experience i have no trouble with Status Bar (version 3.41 + patch2 under Win XP SP3 and Win 8), although i only use 3 fields on Status Bar: 1 for user messages, clock, and date.-
With Regards
Eduardo

[Pepe Ruano]

Hola Eduardo Luis, ante todo muchas gracias por contestar tan rápido.

Aquí te pongo un poco de código en el cual al compilarlo se aprecia el parpadeo comentado:

Code: Select all

#include "hmg.ch"
*---------	Incluimos los módulos .prg que contiene toda la aplicación.	----------*

*------------------------------------------------------------------------------*
Function Main()
*------------------------------------------------------------------------------*
SET FONT TO "Arial" , 10
SET LANGUAGE TO SPANISH
SET DATE TO ITALIAN
Set Navigation Extended
SET( _SET_DELETED   , .T.  )
SET BROWSESYNC ON
SET CODEPAGE TO SPANISH
SET TOOLTIPSTYLE BALLOON	
REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )

	DEFINE WINDOW PrinciStatus ;
		AT 0,0 ;
		WIDTH GetDeskTopWidth() HEIGHT GetDeskTopHeight() ;
		TITLE 'Prueba Status Bar' ;
		MAIN  NOSIZE ;
		FONT 'Arial' SIZE 10 ;
		BACKCOLOR WHITE ;
		ON INTERACTIVECLOSE (PlayExclamation() , MsgYesNo ('Desea salir de la aplicación ?',"Salir del Programa"))
		ON KEY ESCAPE OF PrinciStatus ACTION Salida()

		DEFINE MAIN MENU
			POPUP 'Salir'
				ITEM 'Salir de la Aplicación' ACTION Salida()
			END POPUP

			POPUP '&Prueba'
				ITEM 'Test 1' 	ACTION MSGINFO("Hola Prueba","Prueba")
				
			END POPUP
		END MENU
			

		DEFINE STATUSBAR FONT 'Verdana' SIZE 8
			STATUSITEM 'Prueba de Status Bar - ® J.F. Ruano 2015 '
			KEYBOARD
			DATE
			CLOCK
		END STATUSBAR
		

	END WINDOW

	PrinciStatus.Center()
	PrinciStatus.Maximize()
	PrinciStatus.Activate()

Return Nil

*-----------------------------------------------------------------------------*
Procedure Salida()	// Salimos de la aplicación
*-----------------------------------------------------------------------------*

PlayExclamation()

If MsgYesNo("Desea salir de la Aplicación ?","Salir del Programa")
	ThisWIndow.Release
  Else
	Retu
Endif

Retu

Ya me dirás algo y muchas gracias.

[srvet_claudio]

Hola Eduardo Luis, ante todo muchas gracias por contestar tan rápido.

Aquí te pongo un poco de código en el cual al compilarlo se aprecia el parpadeo comentado:

Code: Select all

#include "hmg.ch"
*---------	Incluimos los módulos .prg que contiene toda la aplicación.	----------*

*------------------------------------------------------------------------------*
Function Main()
*------------------------------------------------------------------------------*
SET FONT TO "Arial" , 10
SET LANGUAGE TO SPANISH
SET DATE TO ITALIAN
Set Navigation Extended
SET( _SET_DELETED   , .T.  )
SET BROWSESYNC ON
SET CODEPAGE TO SPANISH
SET TOOLTIPSTYLE BALLOON	
REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )

	DEFINE WINDOW PrinciStatus ;
		AT 0,0 ;
		WIDTH GetDeskTopWidth() HEIGHT GetDeskTopHeight() ;
		TITLE 'Prueba Status Bar' ;
		MAIN  NOSIZE ;
		FONT 'Arial' SIZE 10 ;
		BACKCOLOR WHITE ;
		ON INTERACTIVECLOSE (PlayExclamation() , MsgYesNo ('Desea salir de la aplicación ?',"Salir del Programa"))
		ON KEY ESCAPE OF PrinciStatus ACTION Salida()

		DEFINE MAIN MENU
			POPUP 'Salir'
				ITEM 'Salir de la Aplicación' ACTION Salida()
			END POPUP

			POPUP '&Prueba'
				ITEM 'Test 1' 	ACTION MSGINFO("Hola Prueba","Prueba")
				
			END POPUP
		END MENU
			

		DEFINE STATUSBAR FONT 'Verdana' SIZE 8
			STATUSITEM 'Prueba de Status Bar - ® J.F. Ruano 2015 '
			KEYBOARD
			DATE
			CLOCK
		END STATUSBAR
		

	END WINDOW

	PrinciStatus.Center()
	PrinciStatus.Maximize()
	PrinciStatus.Activate()

Return Nil

*-----------------------------------------------------------------------------*
Procedure Salida()	// Salimos de la aplicación
*-----------------------------------------------------------------------------*

PlayExclamation()

If MsgYesNo("Desea salir de la Aplicación ?","Salir del Programa")
	ThisWIndow.Release
  Else
	Retu
Endif

Retu

Ya me dirás algo y muchas gracias.

This sample work fine for me in XP 32-bit and Win7 64-bit.
What is your OS ?

[srvet_claudio]

Does anybody else have this problem in Grid headers backcolor?

Please see the difference between compiled in previous version and current version.

Clipboard01.jpg

Clipboard02.jpg

My target system is WinXP.

In Windows 7 it works ok and shows no difference.

Hi Friend, you are right.

The problem occurs with Win XP without activated theme.

Please in the function _GridEx_DoHeaderCustomDraw() of file h_GridEx.prg in the line 799, change the original line:

Code: Select all

Local DefaultBackColor := RGB (255, 255, 255)   // WHITE

for this lines:

Code: Select all

#define COLOR_BTNFACE   15
Local DefaultBackColor := GetSysColor ( COLOR_BTNFACE )

and rebuild the lib.

[Rathinagiri]

Wonderful Claudio! Thanks a lot!

[Pepe Ruano]

This sample work fine for me in XP 32-bit and Win7 64-bit.
What is your OS ?

My system is Windows 7 Ultimate 32-bit
in version 3.3.1 works well and from the 4.x status bar keyboard and clock constantly blinks.
Español:
Mi sistema es Windows 7 Ultimate de 32 bits.
Y en la versión 3.3.1 funciona bien y en la 4.x en el Status Bar el keyboard y el reloj parpadean constantemente.

Muchas Gracias Claudio por tu respuesta.
Thanks Claudio for your answer.

[gfilatov]

...
from the 4.x status bar keyboard and clock constantly blinks.

Hello Pepe,

IMHO It is a known problem in the Windows 7

There is the following definition of a Timer control for the keyboard status update

_DefineTimer ( 'StatusKeyBrd' , FormName , 200 , ;
...

This timer is caused for each 200 milliseconds (5 times in a second).
I think that it is a reason for the above blinks in your Windows 7

Hope that useful

[Pepe Ruano]

Hello Pepe,

IMHO It is a known problem in the Windows 7

There is the following definition of a Timer control for the keyboard status update

_DefineTimer ( 'StatusKeyBrd' , FormName , 200 , ;
...

This timer is caused for each 200 milliseconds (5 times in a second).
I think that it is a reason for the above blinks in your Windows 7

Thanks Gregory, but I compile with HMG 3.3.1 this does not happen

Something has changed in version 4.x that produces this effect?
I can fix it somehow and to use the version 3.4.1?

Thank you very much for your answer Gregory.

Español:
Gracias Gregory, pero yo compilo con HMG 3.3.1 esto no ocurre

Algo a cambiado en la versión 4.x que produce este efecto ?
Puedo solucionarlo de alguna forma y poder utilizar la versión 3.4.1 ?

Muchas gracias por tu respuesta Gregory.

[gfilatov]

Hello Pepe,

Thanks Gregory, but I compile with HMG 3.3.1 this does not happen

Something has changed in version 4.x that produces this effect?

Sorry I don't know. May be it is a new behavior of the WndProc which was introduced in version 3.4.x

How I can fix it somehow and to use the version 3.4.1?

IMHO You can try to increase a timer interval for the keyboard's status update to 1000, for example, or more.

Just as workaround

[esgici]

... May be it is a new behavior of the WndProc which was introduced in version 3.4.x
...:

Tried under Win7 - HMG 3.4.1. 32 Bit ( before and after applied two patchs );

no such problem ( flickering status bar ) seen

Viva HMG