How to show a custom hint for allocations.

Implement a handler for the OnAllocationAutoHint event, and set the Hint argument to be the desired hint text.

Note: In order to see hints, the ShowHint property must be true, and the racAutoHint must be enabled in the options to allow the automatic generation of hints.

procedure TForm1.RACAllocationAutoHint(Sender: TObject;
                                       Resource: TssResource;
                                       Allocation: TssResourceAllocation;
                                       StartDateTime,  EndDateTime: TDateTime;
                                       ToResource: TssResource;
                                       var Hint: string);
  DateFormatStr: string = '';
  Hint := FormatDateTime(DateFormatStr, StartDateTime) +
          ' - ' +
          FormatDateTime(DateFormatStr, EndDateTime) +
          ' (' + IntToStr(round(EndDateTime - StartDateTime)) + ')';
What People Say

I just wanted to let you know that I love your component! I find it extensible, easy to use, and the performance is top notch. I even think I understand much of the source. You hit a home run with this one!
Tom Kopeika, Illinois
More …

No malware No spam
McAfee Site Report
Web of Trust