HMG 3.3.1 (Stable)

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

User avatar
Pablo César
Posts: 4053
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 175 times

HMG 3.3.1 - Posible BUG ( CellEx )

Post by Pablo César » Fri Jan 09, 2015 2:21 pm

The property COLUMNVALID in Grid, makes a validation during the cell is still active. The problem I wish to change value of this cell in this validation function. But can't be changed... :(

You can see C:\hmg.3.3.1\SAMPLES\Controls\Grid\GRID_14\demo.prg and Test() function there, is not working... :(

But if you make the same test at C:\hmg.3.3.0\SAMPLES\Controls\Grid\GRID_14\demo.prg works normally !!!

I think there is a bug in GRID around _SetItem().

Please, someone can confirm this ? Can anybody make this test for me ?

Code: Select all

#include "hmg.ch"

Function Main()
Local aRows [20] [3]

DEFINE WINDOW Form_1 ;
	AT 0,0 ;
	WIDTH 640 ;
	HEIGHT 400 ;
	TITLE 'Mixed Data Type Grid Test' ;
	MAIN 

	DEFINE MAIN MENU
		DEFINE POPUP 'File'
			MENUITEM 'Exit'	ACTION ThisWindow.Release
		END POPUP
	END MENU

	aRows [1]	:= {'Simpson','Homer','555-5555'}
	aRows [2]	:= {'Mulder','Fox','324-6432'} 
	aRows [3]	:= {'Smart','Max','432-5892'} 
	aRows [4]	:= {'Grillo','Pepe','894-2332'} 
	aRows [5]	:= {'Kirk','James','346-9873'} 
	aRows [6]	:= {'Barriga','Carlos','394-9654'} 
	aRows [7]	:= {'Flanders','Ned','435-3211'} 
	aRows [8]	:= {'Smith','John','123-1234'} 
	aRows [9]	:= {'Pedemonti','Flavio','000-0000'} 
	aRows [10]	:= {'Gomez','Juan','583-4832'} 
	aRows [11]	:= {'Fernandez','Raul','321-4332'} 
	aRows [12]	:= {'Borges','Javier','326-9430'} 
	aRows [13]	:= {'Alvarez','Alberto','543-7898'} 
	aRows [14]	:= {'Gonzalez','Ambo','437-8473'} 
	aRows [15]	:= {'Batistuta','Gol','485-2843'} 
	aRows [16]	:= {'Vinazzi','Amigo','394-5983'} 
	aRows [17]	:= {'Pedemonti','Flavio','534-7984'} 
	aRows [18]	:= {'Samarbide','Armando','854-7873'} 
	aRows [19]	:= {'Pradon','Alejandra','???-????'} 
	aRows [20]	:= {'Reyes','Monica','432-5836'} 

	@ 10,10 GRID Grid_1 ;
		WIDTH 620 ;
		HEIGHT 330 ;
		HEADERS {'Column 1','Column 2','Column 3'} ;
		WIDTHS {140,140,140} ;
		ITEMS aRows ;
		EDIT ;
		COLUMNVALID 	{ ;
				{ || Test() } , ;
				{ || NotBeEmpty(This.CellValue) } , ;
				{ || ! Empty ( This.CellValue ) } ;
				} 

END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil

Function NotBeEmpty ( cCellValue )  // Not working
If Empty(cCellValue)
   // This.CellValue:="<Is in blank>"
   
   nCellRowIndex := This.CellRowIndex
   nCellColIndex := This.CellColIndex
   Form_1.Grid_1.CellEx ( nCellRowIndex, nCellColIndex ) := "<Is in blank>"
Endif
Return .T.

Function Test()
If Empty (This.CellValue)

	This.CellValue := '*'  // Not working

EndIf
Return
In the previous version 3.3.0 it's working, see at first column when we left empty what's happen:
Screen3.png
Screen3.png (21.18 KiB) Viewed 825 times
In my PC the 3.3.1 is not working...
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
Rathinagiri
Posts: 5105
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 95 times
Been thanked: 107 times
Contact:

Post by Rathinagiri » Fri Jan 09, 2015 2:42 pm

For me, it is working on both the versions.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.

User avatar
Pablo César
Posts: 4053
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 175 times

Post by Pablo César » Fri Jan 09, 2015 2:49 pm

Rathinagiri wrote:For me, it is working on both the versions.
Thank you Rathi for your reply. Sorry to ask you about with basic question: but have you applied all patches (Upto Ptach 6) ?
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
srvet_claudio
Posts: 1919
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 25 times
Been thanked: 95 times
Contact:

Post by srvet_claudio » Fri Jan 09, 2015 4:55 pm

Pablo César wrote:The property COLUMNVALID in Grid, makes a validation during the cell is still active. The problem I wish to change value of this cell in this validation function. But can't be changed... :(

You can see C:\hmg.3.3.1\SAMPLES\Controls\Grid\GRID_14\demo.prg and Test() function there, is not working... :(

But if you make the same test at C:\hmg.3.3.0\SAMPLES\Controls\Grid\GRID_14\demo.prg works normally !!!
Please, change INCLUDE\i_this.ch and SOURCE\h_grid.prg files for these new files, and rebuild the lib.
Attachments
This_CellValue.rar
(19.99 KiB) Downloaded 108 times
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
Pablo César
Posts: 4053
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 175 times

Post by Pablo César » Fri Jan 09, 2015 5:08 pm

srvet_claudio wrote:Please, change INCLUDE\i_this.ch and SOURCE\h_grid.prg files for these new files, and rebuild the lib.
Gracias Claudio !

It's working perfectly now !
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

User avatar
Pablo César
Posts: 4053
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 175 times

Post by Pablo César » Fri Jan 09, 2015 5:18 pm

Dear Claudio, tell me please:

This _SetItem ( "Grid_2", "Form_1", nGridRow, {aTemp[1],"<Label in Blank>"} ) should it works ?

Because then I used : This.CellValue:="<Label in Blank>" and worked.

This in the function of validation at COLUMNVALID.
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

Javier Tovar
Posts: 1272
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar » Fri Jan 09, 2015 5:50 pm

Hola a todos

Después de sustituir los archivos el IDE no trabaja y en todos los archivos que quiero compilar con el IDE me sale este error.

Saludos

///////////////////////////////////////////////////////////////////////////////////////////////
Hello everyone

After replacing the IDE files does not work and all the files you want to compile with the IDE I get this error.

regards
ErrorIDE.jpg
ErrorIDE.jpg (40.27 KiB) Viewed 672 times

Javier Tovar
Posts: 1272
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar » Fri Jan 09, 2015 5:54 pm

Y también me sucede lo mismo con Build.bat

Saludos

Javier Tovar
Posts: 1272
Joined: Tue Sep 03, 2013 4:22 am
Location: Tecámac, México
Has thanked: 1 time
Been thanked: 2 times

Post by Javier Tovar » Fri Jan 09, 2015 6:49 pm

Hola a todos,

Volví a poner Ultima versión de HMG, Ultimo Parche. sin los dos archivos anteriores.

También quiero informar que el control Slider cuando esta en un Tab y le quiero poner BackColor a "NIL Default" me da el siguiente error:
ErrorIDE_Slider.png
ErrorIDE_Slider.png (261.93 KiB) Viewed 664 times
También probe con: CheckBox, RadioButtons, Label, TextBox y si funcionan bien. Solo Slider es el que da error. Alguna idea?

Saludos
//////////////////////////////////////////////////////////////////////////////////////////////////////////
Hello everyone,

I replaced Release of HMG, Ultimo Patch. without the above two files.

I would also like to report that the Slider control when in one Tab and you want to put BackColor to "NIL Default" gives me the following error:


Also probe with: CheckBox, RadioButtons, Label, TextBox, and if they work well. Only Slider is giving error. Any ideas?

regards

User avatar
Pablo César
Posts: 4053
Joined: Wed Sep 08, 2010 1:18 pm
Location: Curitiba - Brasil
Has thanked: 100 times
Been thanked: 175 times

Post by Pablo César » Fri Jan 09, 2015 8:00 pm

Javier, after replaced files, have you rebuilded HMG lib ?
srvet_claudio wrote:Please, change INCLUDE\i_this.ch and SOURCE\h_grid.prg files for these new files, and rebuild the lib.
HMGing a better world
"Matter tells space how to curve, space tells matter how to move."
Albert Einstein

Post Reply

Who is online

Users browsing this forum: No registered users and 2 guests