HMG 3.4.0

[Pablo César]

Muy bueno ver estas cosas ocurriendo (reconocimiento).
Felicitaciones a todos.

[vagblad]

Because i also had problems with Grid's velocity i tried an experiment:

I got a sample from MiniGUI's samples (Located at MiniGUI\Samples\Advanced\MySqlCli) and i ran it through HMG also:

On a MySQL table with 88.000 records and 16 Fields i run a query for 20000 records. These are the results i get:

MiniGUI : 19.42 seconds
HMG 3.3.1: 35.01 Seconds
HMG 3.4.0 (With .AddItem Method) : 32.68 Seconds
HMG 3.4.0(With .AddItemEx Method) : 29.39 Seconds

So it seems that 3.4.0 is definitely faster than the 3.3.1 version but behind MiniGUI's speed.

Just to clarify the code used is exactly the same for both enviroments.

I've read all the posts regarding grid's speed(inlcuding Marek's and Dr. Soto's very interesting discussion).
Do you think is there a possible way to speed the process up, or if we want more stability we have to sacrifice the speed?

I am sorry if i've missed something (a post or a thread).

Thanks for all your hard work

Best Regards

[Rathinagiri]

If your grid is gonna have more lines ( say > 1000 lines), it will be better to manage the memory by ourselves. ie., using virtual grid.

[andyglezl]

Hola
No entiendo el porque me da error con una ventana MODAL, y con una ventana CHILD funciona OK. Ayuda !
------------------------------------------------------------------------------------------------------------------------
I do not understand why I get error with MODAL window, and a CHILD window works OK. Help!

Gracias / Thanks

DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." CHILD BACKCOLOR BLUE ; // in this way works OK
ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()
*DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." MODAL BACKCOLOR BLUE ; // in this way gives me error
* ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()

Code: Select all

#include "HMG.CH"
Function main(  )

    nAnchWMain := GetDesktopWidth() 
    nAltoWMain := GetDesktopHeight()
    DEFINE WINDOW Form_Main AT 0,0 WIDTH nAnchWMain HEIGHT nAltoWMain-10 NOMAXIMIZE NOSIZE MAIN BACKCOLOR BLUE ;
           FONT 'Verdana' SIZE 10  ICON 'Msj.ico' TITLE '...' 

			ON KEY ESCAPE OF Form_Main ACTION ThisWindow.Release 
			DEFINE MAIN MENU
				POPUP '&Archivo'		
					ITEM 'ONSIZE' ACTION VariosBrowses() IMAGE 'Usuario.bmp'
					SEPARATOR
					ITEM 'Salir'  ACTION IF( MsgYesNo( "Desea Salir del Sistema ?", "A V I S O",.T.), Form_Main.Release, nil ) IMAGE 'Salir2.Bmp'
				END POPUP
			END MENU

			DEFINE WINDOW Form_2 ROW 030 COL 220 WIDTH nAnchWMain-235 HEIGHT nAltoWMain-120 WINDOWTYPE PANEL BACKCOLOR GREEN 

			END WINDOW
			
			DEFINE STATUSBAR FONT 'Verdana' SIZE 08
				STATUSITEM "..." WIDTH 1200
				STATUSITEM '...' WIDTH 100 
				STATUSITEM '...' WIDTH 100 
			END STATUSBAR

	END WINDOW
    CENTER WINDOW Form_Main
    ACTIVATE WINDOW Form_Main
RETURN nil
* ¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯¯­._.­¯
FUNCTION VariosBrowses()

		DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." CHILD BACKCOLOR BLUE  ; 	// in this way works OK
			   ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()					
		*DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." MODAL BACKCOLOR BLUE  ; 	// in this way gives me error
		*	   ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()			

			ON KEY ESCAPE OF Browse_1 ACTION ( ThisWindow.Release  )
	
			DEFINE TAB Tab_2 AT 005,005 WIDTH 660 HEIGHT 425 FONT "Arial" SIZE 9 VALUE 1 TOOLTIP "Bases de Datos"
				//*** Página 1 ***-------------------------------------------*
				PAGE "Clientes"

				END PAGE
				//*** Página 2 ***-------------------------------------------*
				PAGE "Ejecutivos"
	
				END PAGE
			END TAB
			@ 435,550 BUTTON Bttn_Salir CAPTION '&Salir' WIDTH 060 HEIGHT 25 FONT "Arial" SIZE 09 ACTION ( ThisWindow.Release  ) TOOLTIP "Salir Mantto."
		END WINDOW
		CENTER WINDOW   Browse_1
		ACTIVATE WINDOW Browse_1
	
RETURN
FUNCTION ONSIZEW()
	Browse_1.Tab_2.Width       := Browse_1.Width-30	
	Browse_1.Tab_2.Height      := Browse_1.Height-90
	Browse_1.Bttn_Salir.Col    := Browse_1.Width-120	
	Browse_1.Bttn_Salir.Row    := Browse_1.Height-75
RETURN

[vagblad]

Hola
No entiendo el porque me da error con una ventana MODAL, y con una ventana CHILD funciona OK. Ayuda !
------------------------------------------------------------------------------------------------------------------------
I do not understand why I get error with MODAL window, and a CHILD window works OK. Help!

Gracias / Thanks

DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." CHILD BACKCOLOR BLUE ; // in this way works OK
ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()
*DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." MODAL BACKCOLOR BLUE ; // in this way gives me error
* ON SIZE ONSIZEW() ON MAXIMIZE ONSIZEW()

Hola Andy,

If you remove the ON MAXIMIZE event from the MODAL window it will compile just fine.
-------------------------------------------------------------------------------------------------------
Si quita el evento en Maximizar en la ventana modal se compilará bien.

ON MAXIMIZE
ON MINIMIZE
NOTIFYICON
NOTIFYTOOLTIP
ON NOTIFYCLICK

These are 5 events you cannot declare when making a MODAL window.
------------------------------------------------------------------------------------------
Estos son 5 eventos que no se puede declarar al realizar una ventana modal.

Hope it helps.

Best Regards

PS. Sorry about the google translate quality

[Pablo César]

Good explained, Mr. Prodromidis !

Thank you for clarifying.

Whatever be the reason, always is good to use HMG IDE !

Best regards

[andyglezl]

Hola Mr. Prodromidis

Muchas gracias por su ayuda !
-----------------------------------
Hello Mr. Prodromidis

Thank you very much for your help!

[andyglezl]

Hola

Aun no se pueden manejar en el BROWSE de esta version, los campos autoincrementales ?
Algun parche ?, Se podrá en la siguiente ?...
----------------------------------------------------------------------------------------------------------
hello

Still can not handle on the BROWSE this version, AUTO_INCREMENT fields ?
Some patch ?, It may be on next ?...

AutoIncrement.jpg (164.57 KiB) Viewed 4610 times

Code: Select all

#include "HMG.CH"
FUNCTION main()
	local i
	dbcreate( "test", ;
			{ { "CODIGO", "+",   5, 0 },  ;
			  { "NOMBRE", "C",  45, 0 },  ;
			  { "RFC",    "C",  13, 0 },  ;
			  { "CLAVE",  "C",  20, 0 },  ;
			  { "FIEL",   "C",  20, 0 },  ;
			  { "CIECF",  "C",  20, 0 },  ;
			  { "KEY",    "C", 200, 0 },  ;
			  { "CER",    "C", 200, 0 } }, "DBFNTX" )
	use test
	for i :=1 to 10
		dbappend()
	next
	DEFINE WINDOW Browse_1 AT 0,0 WIDTH 800 HEIGHT 600 TITLE "..." MAIN BACKCOLOR BLUE

		@ 000,000 BROWSE BRW_Ctes WIDTH 800 HEIGHT 600 WORKAREA Test LOCK VALUE 1 WIDTHS { 70, 210, 130, 100, 100, 100, 399, 300 } ;
				  HEADERS { 'CODIGO', 'NOMBRE', 'RFC', 'CLAVE', 'FIEL', 'CIECF', 'KEY', 'CER' } ;
				  FIELDS  { 'Test->CODIGO', 'Test->NOMBRE', 'Test->RFC', 'Test->CLAVE', 'Test->FIEL', 'Test->CIECF', 'Test->KEY', 'Test->CER' } ;
				  FONT "VERDANA" SIZE 10 FONTCOLOR BLUE ON HEADCLICK { { ||  nil }, { ||  nil }, { || nil } } ;
				  EDIT APPEND DELETE INPLACE  READONLY { .F.,.F.,.F.,.F.,.F.,.F.,.F.,.F. } TOOLTIP '<Doble Click>=Edit  <ALT-A>=Add   <SUP>=Delete' 
	END WINDOW
	CENTER WINDOW   Browse_1
	ACTIVATE WINDOW Browse_1
RETURN

[Pablo César]

Hi Andrés,

I think this is a Harbour issue not HMG and as I have already reported on this topic Harbour will be able from next new HMG release, I believe.

I do not know if HDT has decided to release a new version for next or just to make a new patch.

But these features, I believe should it be ready with a new version at next HMG release.

I also waiting for UNICODE field that it will be supported too. Let's wait...

[mol]

Hi guys!
From where I can download newest release of harbour?
Link on Harbour-project.org drives to sourceforce and version 3.0 from 2012.