Hi,
I wanted to change the way you output the hint when sizing or moving an item in the plan.
I wanted it to show start time end time and duration (for example "01:15pm - 3:30pm (2.25 hours)") as it is difficult to know these things when working on a small time scale.
There didn't seem to be any way to do this so I added a new event and modified the HintShowXY proc. Can you please consider merging this change with your release version (or providing a similar mechanism)?
Regards
Adam
FOnItemHintXY: TItemHintEvent;
property OnItemHintXY: TItemHintEvent read FOnItemHintXY write FOnItemHintXY;
and modified HintShowXY to accept the planner item in question
procedure TPlannerGrid.HintShowXY(X, Y: Integer; APlannerItem: TPlannerItem; Caption: TCaption);
var
HintRect: TRect;
ScreenPoint: TPoint;
Hint: string;
begin
if not FPlanner.HintOnItemChange then
Exit;
// Override the hint if required
Hint := Caption;
if Assigned(FPlanner.OnItemHintXY) then
begin
FPlanner.OnItemHintXY(FPlanner, APlannerItem, Hint);
Caption := Hint;
end;
...