xtpChartScaleDateTime with Zoom

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

If the ArgumentScaleType = xtpChartScaleDateTime and the chart zoom is applied, dates are always displayed and never times. This means that when you zoom to less than one day in axis range, you just get the date repeated multiple times at the major tick points.  Not much use. 
Is there a way to display time as well as date in these circumstances?  Thanks.

Here's a screen shot illustrating the issue:

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Andrew666 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 15 October 2008 Status: Offline Points: 27	Post Options Post Reply Quote Andrew666 Report Post Thanks(0) Quote Reply Topic: xtpChartScaleDateTime with Zoom Posted: 03 April 2011 at 3:27pm
	If the ArgumentScaleType = xtpChartScaleDateTime and the chart zoom is applied, dates are always displayed and never times. This means that when you zoom to less than one day in axis range, you just get the date repeated multiple times at the major tick points. Not much use. Is there a way to display time as well as date in these circumstances? Thanks. Here's a screen shot illustrating the issue:

mimue Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 22 September 2008 Location: Germany Status: Offline Points: 3	Post Options Post Reply Quote mimue Report Post Thanks(0) Quote Reply Posted: 04 April 2011 at 2:54am
	I have done this with a workaround. I use the CustomLabels. The sample sets the timelabels every 15 minutes. Dim DateTimeMin As Date, DateTimeMax As Date, DateTimeAkt As Date DateTimeMin = [Min-DateTime of ChartSeries] DateTimeMax = [Max-DateTime of ChartSeries] DateTimeAkt = CDate(Int((CDbl(DateTimeMin) * 96) + 0.5) / 96) Diagram.AxisX.CustomLabels.Add Format(DateTimeAkt, "h:nn"), DateTimeAkt Do Until DateTimeAkt > DateTimeMax DateTimeAkt = DateTimeAkt + TimeSerial(0, 15, 0) Diagram.AxisX.CustomLabels.Add Format(DateTimeAkt, "h:nn"), DateTimeAkt Loop
	Product: Xtreme SuitePro (ActiveX) version 15.0.1 Platform: Windows 7 (x64) Language: Visual Basic 6.0

Andrew666 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 15 October 2008 Status: Offline Points: 27	Post Options Post Reply Quote Andrew666 Report Post Thanks(0) Quote Reply Posted: 04 April 2011 at 4:31am
	Thanks for that - but it appears that every time the zoom changes I'd have to re-calculate this for the label periods to fit properly? Looks like your solution would be fine on a fixed (no zoom allowed) axis though - thanks.

mimue Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 22 September 2008 Location: Germany Status: Offline Points: 3	Post Options Post Reply Quote mimue Report Post Thanks(0) Quote Reply Posted: 04 April 2011 at 4:58am
	I use the zoom too, it works. Perhaps the rest of the code helps: Dim DateTimeMin As Date, DateTimeMax As Date, DateTimeAkt As Date Dim Style As New ChartLineSeriesStyle Dim Series As ChartSeries If ChartControl.Content.Series.count > 0 Then ChartControl.Content.Series.DeleteAll End If Set Series = ChartControl.Content.Series.Add("") Series.ArgumentScaleType = xtpChartScaleDateTime Set Series = ChartControl.Content.Series.Add("") Series.ArgumentScaleType = xtpChartScaleDateTime 'Fill Series DateTimeMin = [Min-DateTime of ChartSeries] DateTimeMax = [Max-DateTime of ChartSeries] '----> Do '----> Series.Points.Add CDate(chartArgument), chartValue '----> Loop 'Set Style and some settings Set Series.Style = Style Style.Label.visible = False Style.Marker.Size = 5 Style.Marker.visible = True Set Diagram = ChartControl.Content.Diagrams(0) With Diagram .AllowScroll = True .AllowZoom = True With .AxisX With .Range .AutoRange = True .ViewAutoRange = True End With End With With .AxisY .AllowZoom = False With .Range .AutoRange = True .ViewAutoRange = True End With End With End With 'CustomLabels DateTimeAkt = CDate(Int((CDbl(DateTimeMin) * 96) + 0.5) / 96) Diagram.AxisX.CustomLabels.Add Format(DateTimeAkt, "h:nn"), DateTimeAkt Do Until DateTimeAkt > DateTimeMax DateTimeAkt = DateTimeAkt + TimeSerial(0, 15, 0) Diagram.AxisX.CustomLabels.Add Format(DateTimeAkt, "h:nn"), DateTimeAkt Loop
	Product: Xtreme SuitePro (ActiveX) version 15.0.1 Platform: Windows 7 (x64) Language: Visual Basic 6.0

Andrew666 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 15 October 2008 Status: Offline Points: 27	Post Options Post Reply Quote Andrew666 Report Post Thanks(0) Quote Reply Posted: 04 April 2011 at 5:20am
	Interesting - I'll give that a try - thanks for taking the time to do the complete post.

Andrew666 Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 15 October 2008 Status: Offline Points: 27	Post Options Post Reply Quote Andrew666 Report Post Thanks(0) Quote Reply Posted: 04 April 2011 at 9:30am
	That appears to give me a fixed set of X-axis labels, 15 minutes apart. This means that if the period is over a number of days I get hundreds of labels, which are increasingly removed as I zoom in, until eventually I can read them. Unfortunately the Chart control has no Zoom-related events, so I can't dynamically change this