TRSEQChart.MaxColor Property

Delphi

published
  property MaxColor: TCanvasColor read FMaxColor write SetMaxColor default clxLime;
 

The following code sets the Minimum and Maximum range before addings some EQ bars to the EQ chart:

Delphi

var
   i: Integer;
   Bar: Integer;
 begin
   // set range from 0 to 100 and 0 to 1
   RSEQChart1.Min := 0;
   RSEQChart1.Max := 100;
   // Make the EQ bars be a gradient from green to red
   RSEQChart1.MaxColor := clRed;
   RSEQChart1.MinColor := clGree;
   RSEQChart1.EQOptions := RSEQChart1.EQOptions + [eqoGradient]
    // now add 10 points
   for i := 0 to 9 do
   begin
     Bar := Random(100);
     RSEQChart1.Values.Add(Bar, Bar+Random(100-Bar)); // add value and a fictitious high water mark
   end;
 end;
 

Reference