HMG 3.4.1

[Roberto Lopez]

Claudio,

I've found a problem in InputWindow (this is an easy one )

If you do not specify a BackColor, instead of use the system's default window background color for current theme, InputWindow uses a custom one.

The problem is at h_controlmisc, line 3037:

Code: Select all

If !ValType(aBackColor)="A"
   aBackColor  := {212,208,200}
Endif

[srvet_claudio]

Claudio,

I've rebuilt the apps, with unicode version and it works fine now. So, the problem is limited to ANSI version.

Thanks for your help.

As I wrote....
Something is wrong with ANSI compilation

Marek and Roberto,
you are right, the problem is in ANSI, I will have to revise the code.

I think it is now fixed.

1) please unzip this file in source folder and re-build the lib


2) Use the solution proposed by Rathi.

Code: Select all

Function main_query_server_action

   aRecordset := netio_funcexec( "query_001" , Main.Query_String.Value )

Main.Grid_1.ItemCount := 0   // <--  add this line

// Main.Grid_1.DeleteAllItems   // I think that this line is not necessary

   Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

[Roberto Lopez]

I think it is now fixed.

1) please unzip this file in source folder and re-build the lib
2) Use the solution proposed by Rathi.

Thanks!

I'll try it.

[Roberto Lopez]

Claudio,

Regarding InputWindow problem, I guess that the default background color should be:

GetSysColor(COLOR_WINDOW)

I've not tested yet.

[Roberto Lopez]

Claudio,

About InputWIndow problem, this is the solution:

The code starting in line 3037 (h_controlmisc) must be replaced by:

Code: Select all

If !ValType(aBackColor)="A"
	nColor := GetSysColor ( COLOR_BTNFACE )
	aBackColor := { GetRed(nColor) , GetGreen(nColor), GetBlue (nColor) }
Endif

Then, the default background color is correct (the same as the other windows).

In fact it should be COLOR_WINDOW (instead COLOR_BTNFACE), but is not working as expected here.

I'll try to test it on other Windows versions to be sure.

[Roberto Lopez]

I think it is now fixed.

1) please unzip this file in source folder and re-build the lib
2) Use the solution proposed by Rathi.

It works perfect with ANSI and a simpler code:

Code: Select all

Function main_query_server_action

	Main.Grid_1.ItemCount := 0

	aRecordset := netio_funcexec( "query_001" , Main.Query_String.Value )

	Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

THANKS!

[srvet_claudio]

Claudio,

I've found a problem in InputWindow (this is an easy one )

If you do not specify a BackColor, instead of use the system's default window background color for current theme, InputWindow uses a custom one.

The problem is at h_controlmisc, line 3037:

Code: Select all

If !ValType(aBackColor)="A"
   aBackColor  := {212,208,200}
Endif

Claudio,

About InputWIndow problem, this is the solution:

The code starting in line 3037 (h_controlmisc) must be replaced by:

Code: Select all

If !ValType(aBackColor)="A"
	nColor := GetSysColor ( COLOR_BTNFACE )
	aBackColor := { GetRed(nColor) , GetGreen(nColor), GetBlue (nColor) }
Endif

Then, the default background color is correct (the same as the other windows).

Many thanks Roberto,

I fixed, with this force to get the default color:

Code: Select all

If !ValType(aBackColor)="A"
   aBackColor  := NIL
Endif

[Roberto Lopez]

I fixed, with this force to get the default color:

Code: Select all

If !ValType(aBackColor)="A"
   aBackColor  := NIL
Endif

Pretty much simpler... Thanks!

[srvet_claudio]

Hi all,

1) please unzip this patch in folder c:\hmg.3.4.1

2) and rebuild the lib

- Fixed bug in CreateEvent (reporter by Roberto Lopez)

- Fixed bug in This.QueryData of Grid control (reporter by Roberto Lopez)

- Fixex bug in BackColor of InputWindow (reporter by Roberto Lopez)

- IsControlDefined, IsWindowDefine and IsWindowActive, accept parameters FormName/ControlName with/without quotation marks (contrib by Pablo Cesar)

[bpd2000]

Thank you Dr. Claudio Soto for patch