This is a migrated thread and some comments may be shown as answers.

Horizontal X Axis, reversed values

5 Answers 186 Views

Chart (Obsolete)

This is a migrated thread and some comments may be shown as answers.

Richard asked on 27 May 2011, 08:49 AM

xaxis.png

Hi

I have a chart with horizonal x-axis, with the y axis displayed on top like so (see the attached image)

how can i reverse the xaxis values so it displays 1, 2, 3... 10 starting from top to bottom rather than bottom up?

Here is my code:

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="RadChartMinMaxValue._Default" %>

<%@ Register Assembly="Telerik.Web.UI" Namespace="Telerik.Web.UI" TagPrefix="telerik" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >

<head runat="server">

<title></title>

</head>

<body>

<form id="form1" runat="server">

</form>

<telerik:RadChart ID="RadChart1" runat="server"

Height="100px"

Width="250px"

ChartTitle-Visible="false"

Legend-Visible="false"

SeriesOrientation="Horizontal" BorderWidth="0px" >

</telerik:RadChart>

</body>

</html

Imports System.Drawing

Imports Telerik.Charting

Partial Public Class _Default

Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim lstGammaDetails As New List(Of GammaDetail)

lstGammaDetails = GetGammaDetails()

RadChart1.Series.Clear()

'Chart appearance

RadChart1.Height = Unit.Pixel(300)

RadChart1.PlotArea.Appearance.FillStyle.FillType = Telerik.Charting.Styles.FillType.Solid

RadChart1.PlotArea.Appearance.FillStyle.MainColor = Color.White

RadChart1.PlotArea.Appearance.Dimensions.Margins.Top = New Telerik.Charting.Styles.Unit(28)

RadChart1.PlotArea.Appearance.Dimensions.Margins.Left = New Telerik.Charting.Styles.Unit(40)

RadChart1.PlotArea.Appearance.Dimensions.Margins.Right = New Telerik.Charting.Styles.Unit(8)

RadChart1.PlotArea.Appearance.Dimensions.Margins.Bottom = New Telerik.Charting.Styles.Unit(10)

RadChart1.IntelligentLabelsEnabled = False

RadChart1.PlotArea.XAxis.Visible = Styles.ChartAxisVisibility.True

'X Axis

'RadChart1.PlotArea.XAxis.DataLabelsColumn = "Depth"

RadChart1.PlotArea.XAxis.AutoScale = False

RadChart1.PlotArea.XAxis.LayoutMode = Styles.ChartAxisLayoutMode.Normal

'Min and Max values

RadChart1.PlotArea.XAxis.MinValue = 1

RadChart1.PlotArea.XAxis.MaxValue = 10

RadChart1.PlotArea.XAxis.Step = 1

'RadChart1.PlotArea.XAxis.AddRange(1, 120, 1)

'Y Axis2

RadChart1.PlotArea.YAxis2.Appearance.MajorGridLines.Visible = True

RadChart1.PlotArea.YAxis2.Appearance.MajorGridLines.Color = Color.Gray

RadChart1.PlotArea.YAxis2.AxisLabel.TextBlock.Appearance.TextProperties.Color = Color.Black

RadChart1.PlotArea.YAxis2.Appearance.TextAppearance.TextProperties.Color = Color.Black

'Line series

Dim chartSeries As New ChartSeries

chartSeries.Appearance.LabelAppearance.Visible = False

chartSeries.Name = "GAMMA"

chartSeries.Type = ChartSeriesType.Line

chartSeries.Appearance.LineSeriesAppearance.Color = System.Drawing.Color.LightBlue

chartSeries.DataYColumn = "Value"

chartSeries.YAxisType = ChartYAxisType.Secondary

RadChart1.Series.Add(chartSeries)

RadChart1.DataSource = lstGammaDetails

RadChart1.DataBind()

End Sub

Private Function GetGammaDetails()

Dim lstGD As New List(Of GammaDetail)

Dim gd1 = New GammaDetail()

gd1.Depth = 1

gd1.Value = 100

lstGD.Add(gd1)

Dim gd2 = New GammaDetail()

gd2.Depth = 2

gd2.Value = 200

lstGD.Add(gd2)

Dim gd3 = New GammaDetail()

gd3.Depth = 3

gd3.Value = 200

lstGD.Add(gd3)

Dim gd4 = New GammaDetail()

gd4.Depth = 4

gd4.Value = 250

lstGD.Add(gd4)

Dim gd5 = New GammaDetail()

gd5.Depth = 5

gd5.Value = 50

lstGD.Add(gd5)

Dim gd6 = New GammaDetail()

gd6.Depth = 6

gd6.Value = 50

lstGD.Add(gd6)

Return lstGD

End Function

End Class

Public Class GammaDetail

Private _depth As Decimal

Public Property Depth() As Decimal

Get

Return _depth

End Get

Set(ByVal value As Decimal)

_depth = value

End Set

End Property

Private _value As Decimal

Public Property Value() As Decimal

Get

Return _value

End Get

Set(ByVal value As Decimal)

_value = value

End Set

End Property

End Class

Cheers

Richard.

Horizontal X Axis, reversed values

5 Answers, 1 is accepted