ufChkGroupEditPlot.pas

unit ufChkGroupEditPlot;

interface

uses
  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, WEBLib.StdCtrls, Vcl.StdCtrls,
  WEBLib.ExtCtrls;
{ 0 = legend visible
  1 = Autoscale }
const LEGEND_VIS = 0; AUTO_SCALE = 1;

type
  TfChkGroupEditPlot = class(TWebForm)
    chkGrpEditPlot: TWebCheckGroup;
    btnOkPlotEdit: TWebButton;
    lblYAxisMin: TWebLabel;
    lblYAxisMax: TWebLabel;
    editYAxisMax: TWebEdit;
    editYAxisMin: TWebEdit;
    pnlYAxisMinMax: TWebPanel;
    lblEditYAxis: TWebLabel;
    btnChangePlotSp: TWebButton;
    procedure btnOkPlotEditClick(Sender: TObject);
    procedure btnChangePlotSpClick(Sender: TObject);

  private
    { Private declarations }
  public

    procedure checkLegendVisible();
    procedure uncheckLegendInvisible();
    procedure checkAutoscale();
    procedure uncheckAutoscale();
    function  getEditYMax(): double;
    function  getEditYMin(): double;
  end;

var
  fChkGroupEditPlot: TfChkGroupEditPlot;

implementation

{$R *.dfm}

procedure TfChkGroupEditPlot.btnChangePlotSpClick(Sender: TObject);
begin
// TODO?
end;

procedure TfChkGroupEditPlot.btnOkPlotEditClick(Sender: TObject);
var lForm: TWebForm;
begin
  lForm := TWebForm((Sender as TWebButton).Parent);
  lForm.Close;
  lForm.Free;
end;

procedure TfChkGroupEditPlot.checkLegendVisible();
begin
  self.chkGrpEditPlot.Checked[LEGEND_VIS] := true;
end;
procedure TfChkGroupEditPlot.uncheckLegendInvisible();
begin
  self.chkGrpEditPlot.Checked[LEGEND_VIS] := false;
end;

procedure TfChkGroupEditPlot.checkAutoscale();
begin
  self.chkGrpEditPlot.Checked[AUTO_SCALE] := true;
end;
procedure TfChkGroupEditPlot.uncheckAutoscale();
begin
  self.chkGrpEditPlot.Checked[AUTO_SCALE] := false;
end;

function TfChkGroupEditPlot.getEditYMax(): double;
begin
  try
    Result := strtofloat(self.editYAxisMax.Text);
  except
    Result := 0.0;
  end;
end;

function  TfChkGroupEditPlot.getEditYMin(): double;
begin
  try
    Result := strtofloat(self.editYAxisMin.Text);
  except
    Result := 0.0;
  end;
end;

end.