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

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