Page 7 of 20
Re: HMG 3.4.1
Posted: Thu Jul 09, 2015 5:42 pm
by srvet_claudio
Roberto Lopez wrote:srvet_claudio wrote:
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
Re: HMG 3.4.1
Posted: Thu Jul 09, 2015 10:52 pm
by 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
HMG 3.4.1
Posted: Thu Jul 09, 2015 11:29 pm
by 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
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 12:47 am
by Roberto Lopez
Rathinagiri wrote:I will try to do that Roberto.
Thanks!
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 12:50 am
by Roberto Lopez
bpd2000 wrote:After patch applied on my computer, attached is the result
The problem arises from the second query.
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 1:11 am
by Roberto Lopez
srvet_claudio wrote:
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
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 2:27 am
by 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
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 3:34 am
by srvet_claudio
Roberto Lopez wrote:srvet_claudio wrote:
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)
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 4:16 am
by srvet_claudio
srvet_claudio wrote:Roberto Lopez wrote:srvet_claudio wrote:
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
Re: HMG 3.4.1
Posted: Fri Jul 10, 2015 4:18 am
by srvet_claudio
Rathinagiri wrote: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 !!!