Page 13 of 20
Re: HMG 3.4.1
Posted: Tue Aug 04, 2015 8:25 pm
by 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
Re: HMG 3.4.1
Posted: Tue Aug 04, 2015 10:35 pm
by 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.
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 1:09 am
by srvet_claudio
Pepe Ruano wrote: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 ?
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 1:59 am
by srvet_claudio
Rathinagiri wrote: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.
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 4:02 am
by Rathinagiri
Wonderful Claudio! Thanks a lot!
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 6:48 am
by Pepe Ruano
srvet_claudio wrote:
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.
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 8:08 am
by gfilatov
Pepe Ruano wrote:
...
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
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 9:59 am
by Pepe Ruano
gfilatov wrote:
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.
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 10:47 am
by gfilatov
Hello Pepe,
Pepe Ruano wrote:
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
Pepe Ruano wrote:
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
Re: HMG 3.4.1
Posted: Wed Aug 05, 2015 10:57 am
by esgici
gfilatov wrote:... 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
