Jump to content

Example Required For unimChart Series Creation and Setup in code at runtime


Recommended Posts

Hi,

procedure TMainmForm.UnimFormCreate(Sender: TObject);
var
  I:Integer;
  myBarSeries: TUnimBarSeries;
begin
  myBarSeries := TUnimBarSeries.Create(Self);
  myBarSeries.Parent := UnimChart1;
  myBarSeries.Title := 'new Bar';
  myBarSeries.Name := 'NewBar';
  myBarSeries.Brush.Color := clGreen;

  for I := 0 to 5 do
  begin
    UnimBarSeries1.Add(IntToStr(Random(10)+5), IntToStr(2009+I));
    UnimBarSeries2.Add(IntToStr(Random(10)+5), IntToStr(2009+I));
    myBarSeries.Add(IntToStr(Random(10)+1), IntToStr(209+I))
  end;

end;
Link to post
Share on other sites
×
×
  • Create New...