HMGforum.com

Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/

HMG 3.3.1 (Stable)

http://mail.hmgforum.com/viewtopic.php?t=3827

Page 22 of 29

Re: HMG 3.3.1 (Stable)

Posted: Sun Dec 07, 2014 10:22 pm
by 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

Re: HMG 3.3.1 (Stable)

Posted: Sun Dec 07, 2014 11:54 pm
by srvet_claudio
tonton2 wrote: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.

HMG 3.3.1 (Stable)

Posted: Mon Dec 08, 2014 12:45 pm
by Pablo César
srvet_claudio wrote:..//.. 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
Screen1.png (12.74 KiB) Viewed 5220 times
Once again, thanks Claudio !

Re: HMG 3.3.1 (Stable)

Posted: Mon Dec 08, 2014 1:49 pm
by bpd2000
srvet_claudio wrote:..//.. the functions GETDESKTOPREALTOP, GETDESKTOPREALLEFT, GETDESKTOPREALWIDTH and GETDESKTOPREALHEIGHT, these functions are parts of HMG.
Thank you Dr. Claudio for nice improvement, it is really simplified

Re: HMG 3.3.1 (Stable)

Posted: Tue Dec 09, 2014 7:42 pm
by tonton2
merci beaucoup Dr Claudio

Re: HMG 3.3.1 (Stable)

Posted: Wed Dec 10, 2014 8:55 am
by serge_girard
Thanks Claudio !

Serge

Re: HMG 3.3.1 (Stable)

Posted: Wed Dec 17, 2014 8:00 am
by 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.

Re: HMG 3.3.1 (Stable)

Posted: Wed Dec 17, 2014 9:50 am
by 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

Re: HMG 3.3.1 (Stable)

Posted: Wed Dec 17, 2014 2:34 pm
by srvet_claudio
mol wrote: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".
mol wrote: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.

HMG 3.3.1 (Stable)

Posted: Wed Dec 17, 2014 4:05 pm
by 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... :shock: :o

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 ?
All times are UTC
Page 22 of 29

Powered by phpBB® Forum Software © phpBB Limited