scroll_zoom.pas

来自「Delphi Component - Chart Fx」· PAS 代码 · 共 71 行

unit scroll_zoom;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ChartfxLib_TLB;

type
  TForm1 = class(TForm)
    ChartFX1: TChartFX;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);
VAR
   i: Integer;
begin
    With ChartFX1 do begin
        Axis[AXIS_Y].Style := Axis[AXIS_Y].Style And Not AS_SHOWENDS;
        OpenDataEx(COD_VALUES, 1, COD_UNCHANGE);

        For i := 0 To NValues - 1 do
            ValueEx[0, i] := i * i;

        CloseData(COD_VALUES);
    End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ChartFX1.Axis[AXIS_X].SetScrollView(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text));
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
    If CheckBox1.Checked Then
        ChartFX1.ZoomIn(StrToFloat(Edit3.Text), StrToFloat(Edit5.Text), StrToFloat(Edit4.Text), StrToFloat(Edit6.Text))
    Else
        ChartFX1.Zoom := False
end;

end.