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

Great component, I'm searching for this component for a long while.
Marco Dissel, Broekhuis Noord Nederland
More …

No malware No spam
McAfee Site Report
Web of Trust