Steema Central

Posted: **Sat Sep 11, 2004 9:37 am**

1)Please teach me how to coding same code in C#.NET

<Exaple in VB>
Public CustAxis(0 To 1) As Integer

Private Sub Form_Load()
MakeAnaSeries
MakeCustomAxis
end sub

Private Sub MakeAnaSeries()
Dim i As Integer
For i = 0 To1
TChart1.AddSeries (scLine)
With TChart1.Series(i)
.HorizontalAxis = aBottomAxis
.XValues.DateTime = True
.asLine.LinePen.Width = 1
.Marks.Clip = True
End With
Next i
End Sub

Private Sub MakeCustomAxis()
Dim i As Integer
For i = 0 To 1
CustomAxis(i) = TChart1.Axis.AddCustom(False)

With TChart1.Axis.Custom(CustAxis(i))
if i=0 then
.Otherside = False
Else
.Otherside = True
End If

.PositionPercent = 0
.Title.Angle = 90
End With

TChart1.Series(i).VerticalAxisCustom = CustAxis(i)
Next i
End sub

2) The VCL 7 for Delphi8 install bugs has been fixed already ?

Posted: **Mon Sep 13, 2004 7:30 am**

Hi,

1) the translated code is :

Code: Select all

private void Form1_Load(object sender, System.EventArgs e)
{
	MakeAnaSeries;
	MakeCustomAxis; 
}

private void MakeAnaSeries()
{
for (int i=0;i<=1;++i)
{
axTChart1.AddSeries (TeeChart.ESeriesClass.scLine);
axTChart1.Series(i).HorizontalAxis=TeeChart.EHorizontalAxis.aBottomAxis;
axTChart1.Series(i).XValues.DateTime = true ;
axTChart1.Series(i).asLine.LinePen.Width = 1;
axTChart1.Series(i).Marks.Clip = true;
}
}

private void MakeCustomAxis() 
{
for (int i=0;i<=1;++i)
{
CustomAxis(i) = axTChart1.Axis.AddCustom(false);
if (i=0)
{
axTChart1.Axis.get_Custom(i).Otherside = false;
}
else
{
axTChart1.Axis.get_Custom(i).Otherside = true;
}
axTChart1.Axis.get_Custom(i).PositionPercent = 0;
axTChart1.Axis.get_Custom(i).Title.Angle = 90;
axTChart1.Series(i).VerticalAxisCustom = CustomAxis(i);;
}
}

2) Not for the moment, we'll try to fix the installers for the next maintenance release. However there're some customers who have been able to install it with the latest installer, others have used the sources to recompile and install.