HMG 3.3.1 (Stable)

[tonton2]

Bonsoir tout le monde,
in the new compilation it appears the following errors

Harbour 3.2.0dev (r1407111333)
Copyright (c) 1999-2014, http://harbour-project.org/
C:\hmg.3.3.1\24_09_2014_GESTION_HMG\gestion_reelle1\gestion.prg:847:0: warning: "_WIN32_WINNT" redefined [enabled by default]
c:\hmg.3.3.1\mingw\bin\../lib/gcc/mingw32/4.6.2/../../../../include/windef.h:20:0: note: this is the location of the previous definition
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x1ff0): multiple definition of `HB_FUN_GETDESKTOPREALTOP'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0x990): first defined here
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x2030): multiple definition of `HB_FUN_GETDESKTOPREALLEFT'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0x9d0): first defined here
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x2070): multiple definition of `HB_FUN_GETDESKTOPREALWIDTH'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0xa10): first defined here
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x20b0): multiple definition of `HB_FUN_GETDESKTOPREALHEIGHT'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0xa50): first defined here
collect2: ld returned 1 exit status
hbmk2[gestion]: Error: Running linker. 1
gcc.exe C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o

Merci beaucoup pour le travail que vous fournissez

[srvet_claudio]

Bonsoir tout le monde,
in the new compilation it appears the following errors

Harbour 3.2.0dev (r1407111333)
Copyright (c) 1999-2014, http://harbour-project.org/
C:\hmg.3.3.1\24_09_2014_GESTION_HMG\gestion_reelle1\gestion.prg:847:0: warning: "_WIN32_WINNT" redefined [enabled by default]
c:\hmg.3.3.1\mingw\bin\../lib/gcc/mingw32/4.6.2/../../../../include/windef.h:20:0: note: this is the location of the previous definition
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x1ff0): multiple definition of `HB_FUN_GETDESKTOPREALTOP'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0x990): first defined here
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x2030): multiple definition of `HB_FUN_GETDESKTOPREALLEFT'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0x9d0): first defined here
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x2070): multiple definition of `HB_FUN_GETDESKTOPREALWIDTH'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0xa10): first defined here
C:/hmg.3.3.1/lib/libhmg.a(c_windows.o):c_windows.c:(.text+0x20b0): multiple definition of `HB_FUN_GETDESKTOPREALHEIGHT'
C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o:gestion.c:(.text+0xa50): first defined here
collect2: ld returned 1 exit status
hbmk2[gestion]: Error: Running linker. 1
gcc.exe C:/Users/youcef/AppData/Local/Temp/hbmk_74o42l.dir/gestion.o

Merci beaucoup pour le travail que vous fournissez

In your file gestion.c eliminates the functions GETDESKTOPREALTOP, GETDESKTOPREALLEFT, GETDESKTOPREALWIDTH and GETDESKTOPREALHEIGHT, these functions are parts of HMG.

[Pablo César]

..//.. the functions GETDESKTOPREALTOP, GETDESKTOPREALLEFT, GETDESKTOPREALWIDTH and GETDESKTOPREALHEIGHT, these functions are parts of HMG.

That's means you have already implemented synthesized way for windows creation in full screen by default ?
In other words, now we can just to DEFINE WINDOW without row, col, width and height parameters then it will be considered at full screen windowed according Desktop sizes.

Screen1.png (12.74 KiB) Viewed 4713 times

Once again, thanks Claudio !

[bpd2000]

..//.. the functions GETDESKTOPREALTOP, GETDESKTOPREALLEFT, GETDESKTOPREALWIDTH and GETDESKTOPREALHEIGHT, these functions are parts of HMG.

Thank you Dr. Claudio for nice improvement, it is really simplified

[tonton2]

merci beaucoup Dr Claudio

[serge_girard]

Thanks Claudio !

Serge

[mol]

My clients say my application is very slow after last release.
It's caused of GRID control, I think.
A lot of variants causes this control is slow. Maybe leak of memory? I can't find where real problem lays.

Is it the way to build simplified grid control to speed up browsing dbf tables?

Everything worked fine in hmg 3.2 or even 3.3.0.
I can't roll up to old hmg because of pdf generating.

[mol]

I found strange behaviour of virtual grid - OnQueryData is fired everytime when mouse moves over grid - without changing anything. Is it right?
Try this little sample:

Code: Select all

/*
* HMG Virtual Grid Demo
* (c) 2003 Roberto Lopez
*/

#include "hmg.ch"

Function Main
	private nCounter := 0
	
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 450 ;
		HEIGHT 400 ;
		TITLE 'Grid test' ;
		MAIN 

		DEFINE MAIN MENU
		
		@ 10,10 GRID Grid_1 ;
		WIDTH 170 ;
		HEIGHT 330 ;
		HEADERS {'Column 1'} ;
		WIDTHS {140};
		VIRTUAL ;
		ITEMCOUNT 3 ;
		ON QUERYDATA QueryTest() 
		
		@ 10,200 Label L1 ;
			Width 200 ;
			Height 20 ;
			value "Count of QueryData"
		@ 30,200 TEXTBOX Counter ;
			Width 100 ;
			Height 20 ;
			NUMERIC
			value 0

	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return

Procedure QueryTest()

	This.QueryData := Str ( This.QueryRowIndex )
	//msgdebug("Row is: "+ Str ( This.QueryRowIndex ))

	Form_1.Counter.Value := ++nCounter
Return

[srvet_claudio]

I found strange behaviour of virtual grid - OnQueryData is fired everytime when mouse moves over grid - without changing anything. Is it right?
Try this little sample:

Code: Select all

/*
* HMG Virtual Grid Demo
* (c) 2003 Roberto Lopez
*/

#include "hmg.ch"

Function Main
	private nCounter := 0
	
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 450 ;
		HEIGHT 400 ;
		TITLE 'Grid test' ;
		MAIN 

		DEFINE MAIN MENU
		
		@ 10,10 GRID Grid_1 ;
		WIDTH 170 ;
		HEIGHT 330 ;
		HEADERS {'Column 1'} ;
		WIDTHS {140};
		VIRTUAL ;
		ITEMCOUNT 3 ;
		ON QUERYDATA QueryTest() 
		
		@ 10,200 Label L1 ;
			Width 200 ;
			Height 20 ;
			value "Count of QueryData"
		@ 30,200 TEXTBOX Counter ;
			Width 100 ;
			Height 20 ;
			NUMERIC
			value 0

	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return

Procedure QueryTest()

	This.QueryData := Str ( This.QueryRowIndex )
	//msgdebug("Row is: "+ Str ( This.QueryRowIndex ))

	Form_1.Counter.Value := ++nCounter
Return

Hi Marek
Yes it is normal, it is the Window System that calls OnQuery "when necessary".

My clients say my application is very slow after last release.
It's caused of GRID control, I think.
A lot of variants causes this control is slow. Maybe leak of memory? I can't find where real problem lays.

Is it the way to build simplified grid control to speed up browsing dbf tables?

You can send me (srvet@adinet.com.uy) a small example with a large database.

[Pablo César]

I made this test:

Code: Select all

#include <hmg.ch>

Function Main()
MsgInfo(GetCurrentFolder())
Return Nil

This display the current folder. This ok.

But when I try with this:

Code: Select all

#include <hmg.ch>

Function Main()
cLogFile:=GetFile( { {'Error','*.log'},{'Build','*.log'} }, "Open building log error" ) /* need to be selected file at another folder */

MsgInfo(GetCurrentFolder())
Return Nil

Then I receive display of another folder (same it was choosen at GetFile), not displaying the current folder...

So I have to use cFilePath( ExeName() ) to ensure the correct result for el CurrentFolder.

I do not know if this behaviour is normal or it is a bug in GetFile function.

Is this normal Claudio ?