Page 1 of 1
teechart 8 Garbled:Page Language Chinese,Page Encode UTF8
Posted: Fri Feb 27, 2009 4:47 am
by 15051625
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!
Posted: Fri Feb 27, 2009 10:19 am
by yeray
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.
Posted: Fri Feb 27, 2009 11:02 am
by 15051625
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!
Posted: Fri Feb 27, 2009 12:44 pm
by yeray
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