Planner - Static Line

VCL TMS VCL UI Pack
1

Hi Bruno

 
Im now wanting to create a Static Line, which does not move, when the PLanner is scrolled.
 
Currently I have, in Planner.OnAfterPaint...
 
  MyPlanner1.GridControl.Canvas.Pen.Color := clGreen;       
  MyPlanner1.GridControl.Canvas.Pen.Width := 1;
  MyPlanner1.GridControl.Canvas.MoveTo(0,Round(MyPlanner1.GridControl.Height/2));
  MyPlanner1.GridControl.Canvas.LineTo(Width,Round(MyPlanner1.GridControl.Height/2));
 
This work well.  However, when I scroll down, the Sidebar is regenerated, but the Grid is not ie The Sidebar line is still positioned in the middle, but the Grid line is moved up.
 
The solution I have so far, is to call (from a button)...
 
MyPlanner1.GridControl.Invalidate;
 
This forces a repaint of the Grid, and all is good again.
 
Is there a better way to have a Static Line???
 
Thanks
 
Lee
 
Please Note : Im using an old version of Planner for Delphi 6.
2

In an older version, there is no alternative way.
For the painting issue, try to set Planner.GridControl.DoubleBuffered := true