TeeChart for ActiveX, COM and ASP
-
Jon
- Newbie

- Posts: 2
- Joined: Mon Feb 02, 2009 12:00 am
- Location: China
Post
by Jon » Fri Feb 27, 2009 4:47 am

I use teechart v8 Multi-language Unicode Version or Full Version, it display like the above picture.
the .Axis left title font charset is 134 ,also right ,bottom. these position display well, but the Legend ,Series Title Garbled.
I read the help file, I saw Series Title is a Widestring.
Look forward to helping! Thanks!
-
Yeray
- Site Admin

- Posts: 9674
- Joined: Tue Dec 05, 2006 12:00 am
- Location: Girona, Catalonia
-
Contact:
Post
by Yeray » Fri Feb 27, 2009 10:19 am
Hi Jon,
It's strange, I've tested it with the following code and it works fine with TeeChart v8 Multilanguage Unicode.
Code: Select all
public Form1()
{
InitializeComponent();
InitializeChart();
}
private void InitializeChart()
{
axTChart1.AddSeries(TeeChart.ESeriesClass.scPoint);
axTChart1.Series(0).FillSampleValues(25);
axTChart1.Series(0).set_PointLabel(0, "시작 메뉴");
}
Please, could you send us a simple example project we can run "as-is" to reproduce the problem here? You can either post your files at news://
www.steema.net/steema.public.attachments newsgroup or at our
upload page.
-
Jon
- Newbie

- Posts: 2
- Joined: Mon Feb 02, 2009 12:00 am
- Location: China
Post
by Jon » Fri Feb 27, 2009 11:02 am
Thank you ,Yeray!
This is The Code Segment!
Code: Select all
dim lsSeries
With QMS_Chart
k = 0
.Legend.LegendStyle = lsSeries
For i = 0 to 2 step 1
.AddSeries(23)
'.Series(i).asBar.MultiBar =1
.legend.visible =1
.Axis.left.Title.Caption = "例数" ' This is Display Well
.Axis.bottom.Title.Caption = Row_x_name
'Set Charset
.Axis.left.Title.Font.Charset=134
.Axis.right.Title.Font.Charset=134
.Axis.bottom.Title.Font.Charset=134
.Axis.left.labels.Font.Charset=134
.Axis.right.labels.Font.Charset=134
.Axis.bottom.labels.Font.Charset=134
'.Series(i).asLine.Pointer.Brush.Color = s_Color
.Series(i).Marks.visible = 0
.Series(i).Marks.style = 1
.Series(i).ShowInLegend = 2
'response.write Col_n
For j = 0 to Col_n-1
if ToInt(left(Trim(Col_x(j)),len(Trim(Col_x(j)))-1))>=fdis then
.Series(i).Add Cell(i,j), Col_x(j), .Series(i).color
.Series(i).Title = ctitle(i)' This is Garbled! "尸体","活体","总数"
'.Series(i).PointLabel(i) = ctitle(i)' It's Not Work!
end if
Next
Next
'.Legend.Title.Font.Charset = 134
'.Legend.Visible = false
.Export.SaveToJPEGFile gLocalPath & "\" & gpath & "\" & ChartInfo("ChartName") & ".JPG",False,1, 85,.Width, .Height
end with
Look forward to your response!
-
Yeray
- Site Admin

- Posts: 9674
- Joined: Tue Dec 05, 2006 12:00 am
- Location: Girona, Catalonia
-
Contact:
Post
by Yeray » Fri Feb 27, 2009 12:44 pm
Hi Jon,
I couldn't reproduce the problem here. That makes me think that you could be trying to show some texts in a language not correctly installed in your machine. Could it be possible?
I'm afraid that we only have a korean machine to do this type of tests, so I've simplified a little bit your code and changed the texts for korean texts and everything seems to work as expected.
Please, could you try to change the strings of this code for your machine's language texts and see if they are shown as expected?
Code: Select all
Dim i As Integer
With AxTChart1
For i = 0 To 2
.AddSeries(TeeChart.ESeriesClass.scBar)
.Legend.Visible = 1
.Axis.Left.Title.Caption = "例数"
.Series(i).Marks.Visible = 0
.Series(i).Marks.Style = 1
.Series(i).ShowInLegend = 2
.Series(i).Add(Rnd() * 100, "파일 폴더", .Series(i).Color)
.Series(i).Add(Rnd() * 100, "로컬 디스크", .Series(i).Color)
.Series(i).Add(Rnd() * 100, "검색 결과", .Series(i).Color)
Next
.Series(0).Title = "탐색기"
.Series(1).Title = "명령 프롬프트"
.Series(2).Title = "메모장"
End With
Thanks in advance