Steema Central

Code: Select all

procedure TSSGraphForm.FormActivate(Sender: TObject);
var x, y                                                     : integer;
    Series                                                   : TBarSeries;
begin
  WindowState := wsMaximized;
  Chart.Visible := true;
  for x := 1 to 5 do
    begin
      Series := Chart.AddSeries(TBarSeries) as TBarSeries;
      Series.Title := IntToStr(x);
      Series.MultiBar := mbnone;
      Series.Marks.Visible := false;
      Series.Transparency := 20;
      for y := 1 to 6 do Series.Add((6-x)*y,IntToStr(y));
    end;
end;

procedure TSSGraphForm.ChartClickSeries(Sender: TCustomChart; Series: TChartSeries;
  ValueIndex: Integer; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MessageDlg (Series.Title, mtInformation, [mbOk], 0);
end;