How to highlight selected allocations.


Implement a handler for the OnAllocationDraw event, and set the attributes of the pen and brush used to paint the allocation. This example only sets the pen and brush for selected allocations, but you could set them for any allocations you need.

Screen Shot
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;
    // draw selected allocations using a cross-hatched brush
    Brush.Style := bsDiagCross;
    // or draw selected allocations using a bitmap brush
    // Brush.Bitmap := FSelectedBitmap;
  end;
end;
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