Up \Display

{@abstract( fPlot2D form)
author: Nikolai Shokhirev )
created: June 06, 2002)
last modified: August 08, 2003)
ŠNikolai V. Shokhirev, 2002-2003 }
unit fPlot2D;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, ExtCtrls, uMatTypes, uGraph2D, Buttons, uDisplay;

type
  TFormPlot = class(TForm)
    PanelBox: TPanel;
    PanelControl: TPanel;
    CheckBoxX: TCheckBox;
    CheckBoxY: TCheckBox;
    SpinButtonX: TSpinButton;
    SpinButtonY: TSpinButton;
    LabelNx: TLabel;
    LabelNy: TLabel;
    EditIntervals: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    EditRatio: TEdit;
    SpeedButtonRefresh: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpinButtonXDownClick(Sender: TObject);
    procedure SpinButtonXUpClick(Sender: TObject);
    procedure SpinButtonYDownClick(Sender: TObject);
    procedure SpinButtonYUpClick(Sender: TObject);
    procedure CheckBoxXClick(Sender: TObject);
    procedure CheckBoxYClick(Sender: TObject);
    procedure SpeedButtonRefreshClick(Sender: TObject);
  public
    { Public declarations }
    procedure Init;
    procedure PlotFunction;
    property Xmin: TFloat read fXmin write fXmin;
    property Xmax: TFloat read fXmax write fXmax;
    property Ymin: TFloat read fYmin write fYmin;
    property Ymax: TFloat read fYmax write fYmax;
    property XTitle: string read fXTitle write fxTitle;
    property YTitle: string read fYTitle write fYTitle;
    property ReFunc: TYofX write fReFunc;
    property ImFunc: TYofX write fImFunc;
//    property FrameColor: TColor read fFrameColor write fFrameColor;
  end;

implementation


end.

Up \Display