InraPorc

unit UEchelle;

interface

uses

  Chart;

function AjustPas(Max: double): double;

function AjustMax(Max: double; Pas: double): double;

function AjustMin(Min: double; Pas: double): double;

function AjustFormat(Pas: double): string;

procedure AjustEchelle(Graph: TChart);

implementation

uses

  UVariables;

function AjustPas(Max: double): double;

begin

  if (Max < 5) and (Max > PICO) // si Max = 0 alors Pas = 1

  then

    result := AjustPas (Max * 10) / 10

  else

    if Max > 50

    then

      result := AjustPas (Max / 10) * 10

    else

      if Max > 25

      then

        result := 5

      else

        if Max > 10

        then

          result := 2.5

        else

          result := 1 ;

end;

function AjustMax(Max: double; Pas: double): double;

begin

  if Max = 100

  then

    result := 100

  else

    result := Round (Max / Pas) * Pas + Pas ;

end;

function AjustMin(Min: double; Pas: double): double;

begin

  if (Min >= 0) and (Round (Min / Pas) * Pas < Pas)

  then

    result := 0

  else

    result := Round (Min / Pas) * Pas - Pas ;

end;

function AjustFormat(Pas: double): string;

var

  s: string;

begin

//  s := '#' + ThousandSeparator + '##0' + DecimalSeparator ;

  s := '# ##0.' ;

  while (Int (Pas) < Pas) do

  begin

    s := s + '0' ;

    Pas := Pas * 10 ;

  end ;

  result := s ;

end;

procedure AjustEchelle(Graph: TChart);

begin

  with Graph do

  begin

    // Axe de gauche

    LeftAxis.Minimum := 0 ;

    LeftAxis.Increment := AjustPas (MaxYValue (LeftAxis) - MinYValue (LeftAxis)) ;

    LeftAxis.MinorTickCount := 4 ;

    LeftAxis.Maximum := AjustMax (MaxYValue (LeftAxis), LeftAxis.Increment) ;

    LeftAxis.Minimum := AjustMin (MinYValue (LeftAxis), LeftAxis.Increment) ;

    LeftAxis.AxisValuesFormat := AjustFormat (LeftAxis.Increment) ;

    // Axe de droite

    RightAxis.Minimum := 0 ;

    RightAxis.Increment := AjustPas (MaxYValue (RightAxis) - MinYValue (RightAxis)) ;

    RightAxis.MinorTickCount := 4 ;

    RightAxis.Maximum := AjustMax (MaxYValue (RightAxis), RightAxis.Increment) ;

    RightAxis.Minimum := AjustMin (MinYValue (RightAxis), RightAxis.Increment) ;

    RightAxis.AxisValuesFormat := AjustFormat (RightAxis.Increment) ;

  end;

end;

end.