Different behavior between v5 and v7 in Maps Series
Different behavior between v5 and v7 in Maps Series
Hi, I've recently upgraded from version 5 to 7 and a change in a behavior cause a problem. In version 5 when I have a map serie, I load the map and set data for the first time it sets the max and min values to color the map, when I load a new set of data the max and min Z values was reset to fit the new values so the colours are correct for the new view. But in version 7 the min and max values are not reset when a new set of data is entered so the colours does not looks correctly. I do not find any way to force the calculation of the new limits, Is there any way to do this? Is there other way to simulate the behavior of version 5 (for my app, the correct one) in version 7?
Hi Hermes,
could you please show me a code to reproduce the problem ?
Have you tried to use the ClearPalette method ?
could you please show me a code to reproduce the problem ?
Have you tried to use the ClearPalette method ?
Pep Jorge
http://support.steema.com
http://support.steema.com
the chart has the UseColorRange = true and the shp file is loaded only the first time.
What the code does is to take the selected part of the spread and put the values in the corresponding polygon (cell <-> polygon). The selection is made by the user dynamically.
The problem is when this code is called for second (thirdth,....) time, the new data set to the polygons may vary a lot from one call to another (first call range Min=632000; Max=1.100.000, second call range Min=2, Max =15)
In version 5 the color range change with the new values but in version 7 not, so when the second call is made the map lets all white.
Code: Select all
1060 Set lrdoQ = gConexionRDO.MiDataBase.CreateQuery("NroPoligonoEnEsquema", lstrSQL)
1070 lrdoQ.rdoParameters(0).Type = rdTypeVARCHAR
1080 For lIndex = 1 To spreadDatos.MaxRows - FRM_CANT_FILAS_TOTALES
1090 spreadDatos.Row = lIndex
1100 spreadDatos.Col = mColumnaCodigo
1110 lstrCodigoItem = spreadDatos.Text
1120 lrdoQ.rdoParameters(0).value = lstrCodigoItem
1130 Set lrdoRS = lrdoQ.OpenResultset
1140 If Not lrdoRS.EOF Then
1150 lNroPol = NVL(lrdoRS("nro_poligono").value, 0)
1160 If lNroPol >= 0 Then
1170 If spreadDatos.GetFloat(vColIndic, lIndex, lValor) Then
1180 spreadDatos.Col = 0
1190 spreadDatos.Row = lIndex
1200 tchGrafico.Series(0).asMap.Shapes.Polygon(lNroPol).Z = lValor
1210 tchGrafico.Series(0).asMap.Shapes.Polygon(lNroPol).Text = spreadDatos.Text
1220 End If
1230 End If
1240 End If
1250 lrdoRS.Close
1260 Next
The problem is when this code is called for second (thirdth,....) time, the new data set to the polygons may vary a lot from one call to another (first call range Min=632000; Max=1.100.000, second call range Min=2, Max =15)
In version 5 the color range change with the new values but in version 7 not, so when the second call is made the map lets all white.
-
- Site Admin
- Posts: 14730
- Joined: Mon Jun 09, 2003 4:00 am
- Location: Banyoles, Catalonia
- Contact:
Hi Hermes,
I'm afraid your code snippet doesn't help us much identifying your problem. Could you please send us an example application we can run "as-is" to reproduce the problem here?
You can post your files at [url]news://www.steema.net/steema.public.attachments[/url] newsgroup.
I'm afraid your code snippet doesn't help us much identifying your problem. Could you please send us an example application we can run "as-is" to reproduce the problem here?
You can post your files at [url]news://www.steema.net/steema.public.attachments[/url] newsgroup.
Best Regards,
Narcís Calvet / Development & Support Steema Software Avinguda Montilivi 33, 17003 Girona, Catalonia Tel: 34 972 218 797 http://www.steema.com |
Instructions - How to post in this forum |
-
- Site Admin
- Posts: 14730
- Joined: Mon Jun 09, 2003 4:00 am
- Location: Banyoles, Catalonia
- Contact:
Hi Hermes,
Thanks for your example.
We have been able to reproduce this problem. It's obvious that for some reason we actually don't know this behaviour changed. I've added this bug to our defect list to be fixed for future releases. In the meantime, a workaround is adding the series every time the values are changed.
Thanks for your example.
We have been able to reproduce this problem. It's obvious that for some reason we actually don't know this behaviour changed. I've added this bug to our defect list to be fixed for future releases. In the meantime, a workaround is adding the series every time the values are changed.
Best Regards,
Narcís Calvet / Development & Support Steema Software Avinguda Montilivi 33, 17003 Girona, Catalonia Tel: 34 972 218 797 http://www.steema.com |
Instructions - How to post in this forum |
Hi Hermes,
ok, we're going to try to find a solution for the next maintenance release which will be out soon (in a month moreorless).
ok, we're going to try to find a solution for the next maintenance release which will be out soon (in a month moreorless).
Pep Jorge
http://support.steema.com
http://support.steema.com
-
- Site Admin
- Posts: 14730
- Joined: Mon Jun 09, 2003 4:00 am
- Location: Banyoles, Catalonia
- Contact:
Hi Hermes,
We expect it to be ready before the end of the next week.
We expect it to be ready before the end of the next week.
Best Regards,
Narcís Calvet / Development & Support Steema Software Avinguda Montilivi 33, 17003 Girona, Catalonia Tel: 34 972 218 797 http://www.steema.com |
Instructions - How to post in this forum |
-
- Site Admin
- Posts: 14730
- Joined: Mon Jun 09, 2003 4:00 am
- Location: Banyoles, Catalonia
- Contact:
Hi Hermes,
We've found the error and fixed it for v7.0.0.7. In the meantime, while this version is not released, you should add TChart1.Series(0).asMap.ZValues.Modified = True to the project you sent as shown here:
BTW: I'm going to attach the modified project to the our attachments newsgroup ([url]news://www.steema.net/steema.public.attachments[/url]).
We've found the error and fixed it for v7.0.0.7. In the meantime, while this version is not released, you should add TChart1.Series(0).asMap.ZValues.Modified = True to the project you sent as shown here:
Code: Select all
Public Sub CargarDatos(valores() As Double)
Dim lIndex As Integer
On Error GoTo err_CargarDatos
For lIndex = 0 To 2
TChart1.Series(0).asMap.Shapes.Polygon(lIndex).Z = valores(lIndex)
Next lIndex
TChart1.Series(0).asMap.ZValues.Modified = True
Exit Sub
err_CargarDatos:
MsgBox Err.Number & " -> " & Err.Description
End Sub
Best Regards,
Narcís Calvet / Development & Support Steema Software Avinguda Montilivi 33, 17003 Girona, Catalonia Tel: 34 972 218 797 http://www.steema.com |
Instructions - How to post in this forum |