Getting the start time of an empty cell

[Ruest_Andre (Ruest André)]

Hello,

I'm using DBPlanner and I want to know the startTime of an empty cell when the user right-clicks on the cell.

 

TIA

[brunofierens]

Here is a code snippet to do this:

procedure TForm4.Planner1PlannerMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
if Button = mbRight then
begin
pt := planner1.XYToCell(x,y);
ShowMessage('cell:'+inttostr(pt.y)+ ' time:' + TimeToStr(Planner1.CellToTime(pt.X,pt.y)));
end;
end;

[Ruest_Andre (Ruest André)]

Great!

 

Exactly what I was looking for. The developper's guide mentions CellToAbsTime. However, this function takes a starttime as an argument. I had not looked in the help file but now I see that CellToTime is documented.

 

Thanks very much for the quick response!