HMG 3.4.1

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

klauskugel
Posts: 90
Joined: Tue Oct 09, 2012 2:28 pm

Re: HMG 3.4.1

Post by klauskugel »

Thanks Doc,
you're the greatest.

That should solve the probs.

Greetings from Germany
klauskugel
User avatar
serge_girard
Posts: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: HMG 3.4.1

Post by serge_girard »

Thanks Claudio !

Serge
There's nothing you can do that can't be done...
User avatar
dragancesu
Posts: 920
Joined: Mon Jun 24, 2013 11:53 am
DBs Used: DBF, MySQL, Oracle
Location: Subotica, Serbia

Re: HMG 3.4.1

Post by dragancesu »

I tried a demo for SQLite, build demo.hbp fault occurs,
then I added a line sqlite.hbc in demo.hbp and build demo.hbp make compilation

demo from \hmg.3.4.1\samples\hfcl\sql\sqlite

hmg version 3.4.1 patch 3
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: HMG 3.4.1

Post by danielmaximiliano »

HI Dragan :

It works on 64-bit Windows 10, HMG.3.4.1 patch 3 and compiled in 32 bits
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
Clip2Mania
Posts: 99
Joined: Fri Jun 13, 2014 7:16 am
Location: Belgium

Re: HMG 3.4.1 - Order of Controls

Post by Clip2Mania »

Hi,

when I compile following code in 3.4.0 everything works fine.

Code: Select all


#include "hmg.ch"

function main()
local aHeaders:={'Column1','Column2','Column3'}
public aList:={}

SET MULTIPLE OFF WARNING
SET DATE ITALIAN

DEFINE WINDOW MainForm;
	AT 90,90;
	WIDTH 1025;
	HEIGHT 550;
       TITLE 'Resize Error';
	MAIN;
	ON SIZE Resize();
	ON MAXIMIZE Resize()
	
DEFINE MAIN Menu of MainForm
   DEFINE POPUP "File"
	MENUITEM "About" ACTION MsgInfo("Action")
   END POPUP
	END MENU

	@ 005,005 GRID Grid_1    ;
                 WIDTH 1000 HEIGHT 490 ;
		 HEADERS aHeaders;
	         WIDTHS {300,300,300}  ;
		 ITEMS aList  	;
		 VALUE 1;
		 FONT "Courier New" SIZE 10 ;	
		 FONTCOLOR {000,000,255}; 
                 EDIT;
		 CELLNAVIGATION;
		 LOCKCOLUMNS 1
	
END WINDOW       
MainForm.Center
MainForm.Activate

return NIL
//-----------------------
function Resize()
MainForm.Grid_1.Width:=MainForm.Width-25
MainForm.Grid_1.Height:=MainForm.Height-60

return NIL
//-----------------------
When I compile this code in 3.4.1 (+ patch 3), I get a runtime-error that the "form is not defined"?
When I change the order of the Controls, i.e. I put the grid as first Control, followed by the menu, I get no error.
When I add a status-bar control, I have to put it below the grid also, otherwise: error again.

This has changed in comparison with 3.4.0. ??? Is there an order in which you have to place the controls ? :o

Regards,
Erik
User avatar
serge_girard
Posts: 3161
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Contact:

Re: HMG 3.4.1

Post by serge_girard »

Order of the Controls is often giving compile errors.
I don't have a sample at this moment.

Serge
There's nothing you can do that can't be done...
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: HMG 3.4.1 - Order of Controls

Post by esgici »

Clip2Mania wrote:...
When I compile this code in 3.4.1 (+ patch 3), I get a runtime-error that the "form is not defined"?
When I change the order of the Controls, i.e. I put the grid as first Control, followed by the menu, I get no error.
When I add a status-bar control, I have to put it below the grid also, otherwise: error again.

This has changed in comparison with 3.4.0. ??? Is there an order in which you have to place the controls ? :o
Hi Erik
IMO you need something like this :

Code: Select all

function main()
local aHeaders:={'Column1','Column2','Column3'}
public aList:={}

lFirstRun := .T.                     // <--- added 

...

function Resize()

IF lFirstRun
   lFirstRun := .F.
ELSE
   MainForm.Grid_1.Width:=MainForm.Width-25
   MainForm.Grid_1.Height:=MainForm.Height-60
ENDIF   
   
return NIL
So, the problem isn't related to "control order" but "execution order"

But it's strange how this code running without error when compiled with 3.4.0 :? ( Tried and confirmed )

Happy HMG'ing :D
Viva INTERNATIONAL HMG :D
User avatar
Clip2Mania
Posts: 99
Joined: Fri Jun 13, 2014 7:16 am
Location: Belgium

Re: HMG 3.4.1

Post by Clip2Mania »

Esgici,

that is indeed a workaround, but how come if I place the controls in another order it works (in 3.4.0, all combinations work)... ?
So the order of the controls does matter.

More specifically, all my programs have a resize function, which also resizes the grid - so I have to change everything now...

Regards,
Erik
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: HMG 3.4.1

Post by esgici »

Clip2Mania wrote:... how come if I place the controls in another order it works (in 3.4.0, all combinations work)... ?
This is really a big ( a bit academic :? ) question for me; definitely I don't know the answer :(
So the order of the controls does matter.
Apparently yes; and reason this effect too is also obscure for me :(
More specifically, all my programs have a resize function, which also resizes the grid - so I have to change everything now...
Did you tried with pre-3.4.0 verisons ?

Happy HMG'ing :D
Viva INTERNATIONAL HMG :D
User avatar
Clip2Mania
Posts: 99
Joined: Fri Jun 13, 2014 7:16 am
Location: Belgium

Re: HMG 3.4.1

Post by Clip2Mania »

This is really a big ( a bit academic :? ) question for me; definitely I don't know the answer :(
Maybe Dr. Soto can help - if he reads this?
Did you tried with pre-3.4.0 verisons ?
I only started working with version 3.4.0 last year, so I have no experience with older versions of HMG - and I really want to use 3.4.1 for the bug-fixes and new functions... :(

Regards,
Erik
Post Reply