TADVSmoothTimeLine

VCL TMS VCL UI Pack
1

The timeline will not update on the first pass of this code on my create form. I need to rerun the code again for it to work.



     Timeline.BeginUpdate;

// Create dates used

      dnow := now;

      DecodeTime(dnow, hour, min, sec, msec);

      DecodeDate(dnow, year, month, day);



      TimeLine.TimeLineSections.Clear;

      TimeLine.TimeLineIndicators.Clear;





       dmax := SetADate(year, month, day, 22, 0, 0, 0);

       dmin := SetADate(year, month, day, 6, 0, 0, 0);



       TimeLine.Range.DivisionType := dtHour;

       TimeLine.Range.RangeFrom := dmin;

       TimeLine.Range.RangeTo := dmax;

       TimeLine.Range.Divisions := 1;

       TimeLine.RangeAppearance.DivisionFormat := 'hh AM/PM';

       TimeLine.RangeAppearance.SubDivisionFormat := 'hh.mm';



       TimeLine.Range.MinimumRange := dmin;

       TimeLine.Range.MaximumRange := dmax;

       TimeLine.RangeAppearance.DivisionTickMarkColor := clBlue;

       TimeLine.RangeAppearance.DivisionTickMarkSize := 20;

       TimeLine.RangeAppearance.DivisionTickMarkWidth := 4;

       TimeLine.RangeAppearance.ShowDivisionValue := True;

       TimeLine.RangeAppearance.ShowSubDivisionValue := True;

       TimeLine.TimeLineBar.Fill.Color := clAqua;

       TimeLine.VerticalMargin := 40;



     TimeLine.EndUpdate;



2

Hi, 


Can you try by using SetTimeLineRange to set the RangeFrom / RangeTo and Minimum and Maximum ranges instead?

Kind Regards, 
Pieter
3

That did the trick



Thanks

Wayne