HMGforum.com

I've found strange behaviour of grid.
It's impossible to edit last column of grid which width is equal or less to sum of widths of all columns (remember, vertival lines separating columns count too as 1 px) by pressing ENTER key. When you double click with mouse, everything is OK.
I've lost half a day for this
Try my little sample

My another question is:
Is it possible to use different colors for two grids in one form?
I'm changing color by set of calls: My idea was to call these function everytime when grid gets focus. But, colors changes for two grids simultanously. (when changing actice grid with Tab key - colors stay as defined, but when moving focus with mouse - two grid changes.

mol wrote:I've found strange behaviour of grid.
It's impossible to edit last column of grid which width is equal or less to sum of widths of all columns (remember, vertival lines separating columns count too as 1 px) by pressing ENTER key. When you double click with mouse, everything is OK.
I've lost half a day for this
Try my little sample

Code: Select all

#include "hmg.ch"

Function Main

local i

private aHeaders, aWidths, aJust
private aRows := {}
private aValid := {}
private aWhen := {}
private aControls := {}

	aHeaders := {"Name","Age"}
	aWidths := {200, 100}
	aJust := { 0,1}
	
	aValid	:= { {|| DataValidation()},  {|| DataValidation()} }
	aWhen	:= { {|| .t.}, {||.t.} }
	aControls := { {"TEXTBOX","CHARACTER"}, {"TEXTBOX","NUMERIC","999"} }
	
	
	aADD(aRows, {"Simpson", 65 } )
	aADD(aRows, {"Mulder",41 } )
	aADD(aRows, {"Smart Max", 25} )
	
	
	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 500 ;
		HEIGHT 550 ;
		TITLE 'Editable Virtual Grid Test' ;
		MAIN 
	

		@ 10,10 GRID Grid_1 ;
			WIDTH 300 ;
			HEIGHT 240 ;
			HEADERS aHeaders ;
			WIDTHS aWidths;
			VALUE {1,1} ;
			TOOLTIP 'Editable Grid Control' ;
			EDIT ;
			COLUMNCONTROLS aControls;
			COLUMNVALID aValid;
			COLUMNWHEN aWhen;
			VIRTUAL ;
            ITEMCOUNT len(aRows) ;
            ON QUERYDATA OnQuery() ;        
	        JUSTIFY aJust;
			CELLNAVIGATION 
		
		@ 400, 10 BUTTON B_1 ;
			CAPTION "EXPAND GRID +10px";
			ACTION SetProperty("Form_1","Grid_1","Width", GetProperty("Form_1","Grid_1","Width")+10) ;
			WIDTH 120 ;
			HEIGHT 30
			
	END WINDOW

	
	Form_1.Grid_1.EditOption := GRID_EDIT_REPLACEALL

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return
*----------------
function OnQuery
	local nRow, nCol

	nRow := This.QueryRowIndex
	nCol := This.QueryColIndex
	if nRow>0 .and. nCol >0
		This.QueryData := aRows[nRow,nCol]
	endif
return .t.	
*-----------------------
function DataValidation
	nRow := this.Value[1]
	nCol := this.Value[2]
	
	if empty(This.CellValue)
		return .f.
	endif
	aRows[nRow,nCol] := This.CellValue
return .t.

I will check.

mol wrote:My another question is:
Is it possible to use different colors for two grids in one form?
I'm changing color by set of calls:

Code: Select all

	CellNavigationColor ( _SELECTEDROW_FORECOLOR, {255,255,255} )
	CellNavigationColor ( _SELECTEDROW_BACKCOLOR, {0,196,128} )
	CellNavigationColor ( _SELECTEDCELL_BACKCOLOR, {0,128,0} )
	CellNavigationColor ( _SELECTEDROW_DISPLAYCOLOR, .t. )

My idea was to call these function everytime when grid gets focus. But, colors changes for two grids simultanously. (when changing actice grid with Tab key - colors stay as defined, but when moving focus with mouse - two grid changes.

HMG uses a single global color for all grid controls.

Thank you for answer

Hmg.3.4.3不能将中文正确读入表中
请看下面例子：
假如我要把下列文本添加到表中:
People2.txt(CHINESE、AMERICANE、RUSSIAN、JAPANINESE)
运行程序后可将文本正确读入表中.
如果我想把下列中文文本添加到表中:
People1.txt(中国、美国、俄国、日本)
程序将不能正确读入表中。


Hmg.3.4.3 The Chinese can not be correctly read into the table
Consider the following example:
Suppose I want to add the following text to the table
People2.txt(CHINESE、AMERICANE、RUSSIAN、JAPANINESE)
After the program can be run correctly read the text into the table,

If I want to add the following Chinese text to the table:
People1.txt(中国、美国、俄国、日本)
The program will not be correctly read into the table.

People1.txt is encoded as ANSI. Please encode it as UTF-8 and try.

Thank you for your answer, however, will the file with Chinese save as utf8 format can not read correctly into the table too.

Can you send me the saved utf file? I shall try.

Of course! Please receive.