How to change an allocation's style and colour.


Once you have a reference to an allocation, set the Style and Color properties.

var
  r: TssResource;
  a: TssResourceAllocation;
begin
  r := RAC.FindResource('My Resource');
  if Assigned(r) and (r.Count > 0) then begin
    // use the last allocation for this example
    a := r.Allocations[r.Count - 1];
    a.BeginUpdate;
    try
      a.Color := clYellow;
      a.Style := rsRoundRect;
    finally
      a.EndUpdate;
    end;
  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