Steema Central

Code: Select all

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, TeeGDIPlus, ExtCtrls, TeeProcs, TeEngine, Chart, Series;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Chart1: TChart;
    Series1: THorizBarSeries;
    Procedure MakeLegendChart2;
    Procedure InitializeChart(const XChart:TChart);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FormShow(Sender: TObject);
begin

InitializeChart(Chart1);
MakeLegendChart2;


Chart1.leftaxis.Title.Caption := 'Production Order Number';
Chart1.BottomAxis.Title.Caption := 'Number of Profiles';
Chart1.Title.Clear;
Chart1.Title.Text.Add('Production Order Number vs. Number of Profiles');
Chart1.Legend.Alignment := laBottom;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'Number of Profiles to be Produced';
    ShowInLegend := False;
    shadow.Visible := false;
    XValues.DateTime := false;
    Marks.Style := smsValue;
    Marks.Shadow.Visible := false;
    brush.Style := bsSolid;
    StackGroup := 2;
    Marks.Clip := true;
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'Number of Profiles Already Produced';
    ShowInLegend := false;
    shadow.Visible := false;
    XValues.DateTime := false;
    Marks.Style := smsValue;
    Marks.Shadow.Visible := false;
    brush.Style := bsDiagCross;
    seriescolor := clBlack;
    StackGroup := 1;
    Marks.Clip := true;
  end;

//=====================================

with Chart1[Chart1.SeriesCount -2] as THorizBarSeries do
  addxy(420,0,'P04567',clred);

with Chart1[Chart1.SeriesCount -2] as THorizBarSeries do
  addxy(210,1,'P04566',cllime);

chart1.LeftAxis.SetMinMax(-1,2);

end;

Procedure TForm1.InitializeChart(const XChart:TChart);
begin

with XChart do
begin
Color := clwhite;
Gradient.Visible := false;
BackWall.Color := clWhite;
BackWall.Gradient.Visible := false;
View3D := false;
BevelOuter := BvNone;

FreeAllSeries();
RemoveAllSeries;
Title.Text.Clear;
Legend.Shadow.Visible := false;
legend.Font.Size := 14;
legend.Symbol.Width := 50;
legend.Symbol.Squared := true;
end;
end;



Procedure TForm1.MakeLegendChart2;
begin

Chart1.Legend.Visible := true;
Chart1.Legend.Alignment := laBottom;
Chart1.Legend.LegendStyle := lsSeries;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040059';
    ShowInLegend := true;
    seriescolor := clred;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clred);
  end;


with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040170';
    ShowInLegend := true;
    seriescolor := clAQUA;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clAQUA);
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040190';
    ShowInLegend := true;
    seriescolor := clLIME;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clLIME);
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040198';
    ShowInLegend := true;
    seriescolor := clFuchsia;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clFuchsia);
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040211';
    ShowInLegend := true;
    seriescolor := clGray;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clGray);
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040193';
    ShowInLegend := true;
    seriescolor := clBlue;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clBlue);
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'ItemNumber 040182';
    ShowInLegend := true;
    seriescolor := clPurple;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clPurple);
  end;

with Chart1.AddSeries(THorizBarSeries.Create(self)) as THorizBarSeries do
  begin
    ParentChart := Chart1;
    Title := 'Amount Produced';
    ShowInLegend := true;
    brush.Style := bsDiagCross;
    seriescolor := clBlack;
    StackGroup := 0;
    MultiBar := mbStacked;

    with Chart1[Chart1.SeriesCount-1] as THorizBarSeries do
        addxy(1,-2,'',clBlack);
  end;

end;

end.