HMG 3.4.1

[srvet_claudio]

PS: the behavior of LISTVIEW_SETITEMCOUNT changed when change the version of common controls used

I've applied the patch and the problem remains (note the 'H's and the '@'s).

Roberto,
this is not an elegant solution, but ...

File: main_query_server_action.prg

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

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

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

[jorge.posadas]

Grupo,

En la version 3.0.46 tengo un RC con esto:

DataExplorer BITMAP C:\PSS\Desarrollos\Resources\Bmp\DataExplorer.bmp
Login BITMAP C:\PSS\Desarrollos\Resources\Bmp\UserLogin.bmp

A_Customer ICON C:\PSS\Desarrollos\Resources\Ico\Customer.ico
Report ICON C:\PSS\Desarrollos\Resources\Ico\Report.ico

Si yo quisiera usar iconos , imagenes del tipo PNG ¿como pongo eso en mi archivo RC? y ¿la versin 3.4.1 soporta PNG?

De antemano gracias por la ayuda

[Pablo César]

Hola Jorge,

Para usar archivos png, si quieres usar íconos debe ser con extension ico y tiene tamaño limitado creo 32x32.

Si quieres utilizar archivos PNGs, en tu RC donde dice BITMAP debes substituirlo por PNG.

La version 3.4.1 si soporta PNG, es decir a partir de: viewtopic.php?p=34829#p34829

Slds

---

This translation is made under my protest. I should not be forced to translate.

---

To use PNG files, if you want to use icons must be ico extension and its be limited in size 32x32, I think.

If you want to use PNG files in your RC where it says BITMAP you need to replace by PNG.

Version 3.4.1 does support PNG, ie since viewtopic.php?p=34829#p34829

Rgds

[Roberto Lopez]

I will try to do that Roberto.

Thanks!

[Roberto Lopez]

After patch applied on my computer, attached is the result

The problem arises from the second query.

[Roberto Lopez]

this is not an elegant solution, but ...

File: main_query_server_action.prg

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

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

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

Sadly, the problem remains.

My test is as follows:

First query: A (it is Ok)

Second query: B (does not work.) Grabage showns.

Don't worry about this, I'll create an alternate demo, using a standard grid, filling it with additem.

My first attempt was virtual grid, because, it could work very fast even with very large recordsets (NETIO compresses data, so, the recordest size is not a concern).

An important thing to note, is that the problem is not NETIO related, since, the GRID_03 demo is failing the same way here. It starts ok, but when start to move the vertical scroll bar the content of first column become 'X's.

OS: XP SP3 32

[Rathinagiri]

IMHO, you have to reset the size of the virtual grid to 0 before doing any operation.

Kindly check up this:

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

   Main.Grid_1.ItemCount := 0
   Main.Grid_1.disableupdate()

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

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

   Main.Grid_1.enableupdate()

Return Nil

[srvet_claudio]

this is not an elegant solution, but ...

File: main_query_server_action.prg

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

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

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

Sadly, the problem remains.

My test is as follows:

First query: A (it is Ok)

Second query: B (does not work.) Grabage showns.

Don't worry about this, I'll create an alternate demo, using a standard grid, filling it with additem.

My first attempt was virtual grid, because, it could work very fast even with very large recordsets (NETIO compresses data, so, the recordest size is not a concern).

An important thing to note, is that the problem is not NETIO related, since, the GRID_03 demo is failing the same way here. It starts ok, but when start to move the vertical scroll bar the content of first column become 'X's.

OS: XP SP3 32

Very interesting, I did the same steps that you and both demos works fine for me (Win7 SP1 64-bit)

[srvet_claudio]

this is not an elegant solution, but ...

File: main_query_server_action.prg

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

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

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

Sadly, the problem remains.

My test is as follows:

First query: A (it is Ok)

Second query: B (does not work.) Grabage showns.

Don't worry about this, I'll create an alternate demo, using a standard grid, filling it with additem.

My first attempt was virtual grid, because, it could work very fast even with very large recordsets (NETIO compresses data, so, the recordest size is not a concern).

An important thing to note, is that the problem is not NETIO related, since, the GRID_03 demo is failing the same way here. It starts ok, but when start to move the vertical scroll bar the content of first column become 'X's.

OS: XP SP3 32

Very interesting, I did the same steps that you and both demos works fine for me (Win7 SP1 64-bit)

Not work for me in Win XP SP3 32-bit

[srvet_claudio]

IMHO, you have to reset the size of the virtual grid to 0 before doing any operation.

Kindly check up this:

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

   Main.Grid_1.ItemCount := 0
   Main.Grid_1.disableupdate()

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

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

   Main.Grid_1.enableupdate()

Return Nil

This solution work fine for me in Win7 and XP !!!