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.
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;
- Screen Shots
- FAQ & Getting Started
- User Comments
- Support Forum
- Change History
|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