teechart 8 Garbled:Page Language Chinese,Page Encode UTF8

TeeChart for ActiveX, COM and ASP
Post Reply
Jon
Newbie
Newbie
Posts: 2
Joined: Mon Feb 02, 2009 12:00 am
Location: China

teechart 8 Garbled:Page Language Chinese,Page Encode UTF8

Post by Jon » Fri Feb 27, 2009 4:47 am

Image
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
Site Admin
Posts: 9614
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.
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

Jon
Newbie
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
Site Admin
Posts: 9614
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
Best Regards,
ImageYeray Alonso
Development & Support
Steema Software
Av. Montilivi 33, 17003 Girona, Catalonia (SP)
Image Image Image Image Image Image Please read our Bug Fixing Policy

Post Reply