How to highlight selected allocations.


This example uses the allocation's Selected property, but you could use any criteria to choose the pen and brush to use to display each allocation.
procedure TForm1.RACAllocationDraw(Sender: TObject;
                                   Resource: TssResource;
                                   Allocation: TssResourceAllocation;
                                   Pen: TPen;
                                   Brush: TBrush);
begin
  if Allocation.Selected then begin
    Pen.Color := clRed;
    Pen.Width := 2;
    // or draw selected allocations using a bitmap brush
    // Brush.Bitmap := FSelectedBitmap;
  end;
end;
What People Say

This is a great component. I've been using it for a year. It's well written, performance is top notch, and the couple of time I've asked for support, I've gotten it right away from the author.
Steve McForest
More …

No malware No spam
McAfee Site Report
Web of Trust