Steema Central

Code: Select all

  TForm1 = class(TForm)
    Chart1: TChart;
    Series1: TErrorBarSeries;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  series1.AddErrorBar(1,10,0,'foo',clRed);
  series1.AddErrorBar(2,20,0,'fee',clRed);
end;

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
begin
  series1.AddErrorBar(1,10,1,'foo',clRed);
  series1.AddErrorBar(2,20,1,'fee',clRed);
end;

Code: Select all

Procedure TCustomErrorSeries.DrawBar(BarIndex,StartPos,EndPos:Integer);
Var tmp         : Integer;
    tmpWidth,
    tmpBarWidth : {$IFDEF FMX}Single{$ELSE}Integer{$ENDIF};
    tmpError    : Double;
    tmpHeight   : Integer;
    tmpVal      : Double;
    tmpHeight2  : Integer;
Begin
  tmpError:=FErrorValues.Value[BarIndex];

  if ErrorPen.Visible and (tmpError<>0) then
  Begin
    tmpBarWidth:=BarBounds.Right-BarBounds.Left;

    if FErrorWidth=0 then tmpWidth:=tmpBarWidth
    else
    if FErrorWidthUnits=ewuPercent then
       tmpWidth:=Round(1.0*FErrorWidth*tmpBarWidth*0.01)
    else
       tmpWidth:=FErrorWidth;

    tmpVal:=YValues.Value[BarIndex];
    tmp:=CalcYPosValue(tmpVal);

    { MS : simplified and allows vertical/horizontal style 5.01 }
    Case FErrorStyle of
      essLeft,
      essRight,
      essLeftRight :
      begin
        tmpHeight:=GetHorizAxis.CalcSizeValue(Abs(tmpVal)) -
                    GetHorizAxis.CalcSizeValue(Abs(tmpVal-tmpError));

        if GetHorizAxis.Logarithmic then
          tmpHeight2:=GetHorizAxis.CalcSizeValue(Abs(tmpError+tmpVal)) -
                      GetHorizAxis.CalcSizeValue(Abs(tmpVal))
        else
          tmpHeight2:=tmpHeight;

        if GetHorizAxis.Inverted then
          SwapInteger(tmpHeight, tmpHeight2);
      end;
    else
      begin
        tmpHeight:=GetVertAxis.CalcSizeValue(tmpError+Abs(tmpVal)) -
                      GetVertAxis.CalcSizeValue(Abs(tmpVal));

        if GetVertAxis.Logarithmic then
          tmpHeight2:=GetVertAxis.CalcSizeValue(Abs(tmpVal)) -
                    GetVertAxis.CalcSizeValue(Abs(tmpVal-tmpError))
        else
          tmpHeight2:=tmpHeight;

        if GetVertAxis.Inverted then
          SwapInteger(tmpHeight, tmpHeight2);
      end;
    end;

    if MultiBar=mbStacked100 then   // 7.06 TV52010945
       tmp:=CalcYPosValue(100);

    if IDrawBar and (YValues.Value[BarIndex]<YOrigin) then
    begin
      tmpHeight:=-tmpHeight;

      PrepareErrorPen(BarIndex);

      DrawError((BarBounds.Right+BarBounds.Left) {$IFDEF FMX}*0.5{$ELSE}div 2{$ENDIF},tmp,
                 tmpWidth,tmpHeight,tmpHeight2,ParentChart.View3D);

      inherited;
    end
    else
    begin
      if IDrawBar then
         inherited;

      PrepareErrorPen(BarIndex);

      DrawError((BarBounds.Right+BarBounds.Left) {$IFDEF FMX}*0.5{$ELSE}div 2{$ENDIF},tmp,
                 tmpWidth,tmpHeight,tmpHeight2,ParentChart.View3D);
    end;
  end
  else
  if IDrawBar then
     inherited;
end;