Code: Select all
Series1[1839].Text:='Singapore';
). I added the .text property to 1839 but I can't see where this polygon is. Also, it doesn't appear on the Asia map either and that is where it would be the most useful. How do I go about adding a polygon for Singapore?
Code: Select all
uses TeeWorldSeries;
var Series1: TWorldSeries;
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
Chart1.View3D:=false;
Chart1.Legend.Visible:=false;
Series1:=Chart1.AddSeries(TWorldSeries) as TWorldSeries;
Series1.Map := wmWorld;
Series1[1839].Text:='Singapore';
Series1[1839].Color:=clRed;
Series1.Marks.Visible:=true;
Series1.OnGetMarkText:=Series1GetMarkText;
end;
procedure TForm1.Series1GetMarkText(Sender: TChartSeries; ValueIndex: Integer; var MarkText: String);
begin
if Series1[ValueIndex].Text <> 'Singapore' then
MarkText:='';
end;You're right, it only appears in the World map and should also appear in the Asia map. I've added it to the defect list to be implemented in future releases (TV52015380).AccessCoder wrote:Also, it doesn't appear on the Asia map either and that is where it would be the most useful. How do I go about adding a polygon for Singapore?
Code: Select all
Private Sub cboMap_AfterUpdate()
Dim i As Long, lngColor As Long
Select Case cboMap.Value
Case 0: TChart0.Series(0).asWorld.Map = 0 'wmWorld
TChart0.Series(0).asMap.Shapes.Polygon(1839).Text = "Singapore"
TChart0.Series(0).asMap.Shapes.Polygon(1839).Color = vbRed
TChart0.Series(0).asMap.Shapes.Polygon(1087).Color = vbGreen
TChart0.Series(0).asMap.Shapes.Polygon(1385).Color = vbBlue
Case 1: TChart0.Series(0).asWorld.Map = 1 'wmAfrica
Case 2: TChart0.Series(0).asWorld.Map = 2 'wmAsia
Case 3: TChart0.Series(0).asWorld.Map = 3 ' wmAustralia
Case 4: TChart0.Series(0).asWorld.Map = 4 'wmCentralAmerica
Case 5: TChart0.Series(0).asWorld.Map = 5 'wmEurope
Case 6: TChart0.Series(0).asWorld.Map = 6 'wmEurope15
Case 7: TChart0.Series(0).asWorld.Map = 7 'wmEurope27
Case 8: TChart0.Series(0).asWorld.Map = 8 'wmSpain
Case 9: TChart0.Series(0).asWorld.Map = 9 'wmMiddleEast
Case 10: TChart0.Series(0).asWorld.Map = 10 'wmNorthAmerica
Case 11: TChart0.Series(0).asWorld.Map = 11 'wmSouthAmerica
Case 12: TChart0.Series(0).asWorld.Map = 12 'wmUSA
Case 13: TChart0.Series(0).asWorld.Map = 13 'wmUSAHawaiiAlaska
End Select
I could reproduce your problem here and I have added your request in bug list report with number [TV52015383]. We will try to fix it for next maintenance releases of TeeChartVCL.My may doesn't look nearly as nice as yours when I use TCommander to zoom in:
I recommend that you change lines of code there are below:What am I doing wrong? Also I still can't identify Singapore on my map. Here is the code I am using to turn on some colors. Malaysia and Indonesia show up but Singapore doesn't:
Code: Select all
TChart0.Series(0).asMap.Shapes.Polygon(1839).Text = "Singapore"
TChart0.Series(0).asMap.Shapes.Polygon(1839).Color = vbRed
TChart0.Series(0).asMap.Shapes.Polygon(1087).Color = vbGreen
TChart0.Series(0).asMap.Shapes.Polygon(1385).Color = vbBlueCode: Select all
TChart0.Series(0).PointLabel(1839) = "Singapore"
TChart0.Series(0).PointColor(1839) = vbRed
TChart0.Series(0).PointColor(1087) = vbGreen
TChart0.Series(0).PointColor(1385) = vbBlueCould you tell us which version of TeeChart Activex are you using now?I tried the replacement code but I get the same results.
This is a TeeChart VCL bug too. Please notice that the ActiveX version is a COM wrapper of the VCL version so it will have to be fixed in the VCL version before making into an ActiveX release. Hopefully it will be fixed for the next VCL maintenance release.I look forward to the patch that you mentioned, however I am using TeeChart ActiveX, not TeeChart VCL. Hopefully the patch will be applied to the ActiveX version as well?
I recommend you to be aware at this forum, our RSS news feed, twitter and facebook accounts for new release announcements and what's fixed on them.Will I be notified when a patch is available?
I am afraid that for now there isn't a good workaround for this bug (TV52015380). So you should wait next maintenance releases, if it is fixed in these or you can take a look in this link http://www.teechart.net/support/viewtop ... les#p10106 where explain that are files *shp. My recommendation is that try to find a ESRI FILES (.shp) of Map of Asia where appears Singapore as a workaround for now.Would it be possible for you to show me how to draw Singapore on the Asia map?