Codejock Developer Community : xtpChartScaleDateTime with Zoom http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 14 May 2026 04:45:03 +0000 Mon, 04 Apr 2011 09:30:00 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=18159 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[xtpChartScaleDateTime with Zoom : That appears to give me a fixed...]]> http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63697&title=xtpchartscaledatetime-with-zoom#63697 Author: Andrew666
Subject: 18159
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 Ouch
]]> Mon, 04 Apr 2011 09:30:00 +0000 http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63697&title=xtpchartscaledatetime-with-zoom#63697 <![CDATA[xtpChartScaleDateTime with Zoom : Interesting - I&#039;ll give...]]> http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63695&title=xtpchartscaledatetime-with-zoom#63695 Author: Andrew666
Subject: 18159
Posted: 04 April 2011 at 5:20am

Interesting - I'll give that a try - thanks for taking the time to do the complete post.]]> Mon, 04 Apr 2011 05:20:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63695&title=xtpchartscaledatetime-with-zoom#63695 <![CDATA[xtpChartScaleDateTime with Zoom : I use the zoom too, it works....]]> http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63694&title=xtpchartscaledatetime-with-zoom#63694 Author: mimue
Subject: 18159
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 
]]> Mon, 04 Apr 2011 04:58:41 +0000 http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63694&title=xtpchartscaledatetime-with-zoom#63694 <![CDATA[xtpChartScaleDateTime with Zoom : Thanks for that - but...]]> http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63693&title=xtpchartscaledatetime-with-zoom#63693 Author: Andrew666
Subject: 18159
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.]]> Mon, 04 Apr 2011 04:31:46 +0000 http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63693&title=xtpchartscaledatetime-with-zoom#63693 <![CDATA[xtpChartScaleDateTime with Zoom : I have done this with a workaround....]]> http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63691&title=xtpchartscaledatetime-with-zoom#63691 Author: mimue
Subject: 18159
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
]]> Mon, 04 Apr 2011 02:54:19 +0000 http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63691&title=xtpchartscaledatetime-with-zoom#63691 <![CDATA[xtpChartScaleDateTime with Zoom : If the ArgumentScaleType =...]]> http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63689&title=xtpchartscaledatetime-with-zoom#63689 Author: Andrew666
Subject: 18159
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:
 
]]> Sun, 03 Apr 2011 15:27:28 +0000 http://forum.codejock.com/forum_posts.asp?TID=18159&PID=63689&title=xtpchartscaledatetime-with-zoom#63689