Up \Display

{@abstract( TFormSurface class )
author: Nikolai Shokhirev )
created: January 01, 2001)
last modified: May 05, 2003)
ŠNikolai V. Shokhirev, 2001-2003 }
unit fSurface;

interface

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

type
  TFormSurface = class(TForm)
    TrackBarAngle: TTrackBar;
    TrackBarView: TTrackBar;
    PanelGraph: TPanel;
    PanelTop: TPanel;
    SpinEditNIntervals: TSpinEdit;
    Label1: TLabel;
    SpeedButtonColor: TSpeedButton;
    ColorDialog1: TColorDialog;
    procedure SpeedButtonColorClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpinEditNIntervalsChange(Sender: TObject);
    procedure TrackBarViewChange(Sender: TObject);
    procedure TrackBarAngleChange(Sender: TObject);
  public
    { Public declarations }
    procedure Init;
    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 Zmin: TFloat read fZmin write fZmin;
    property Zmax: TFloat read fZmax write fZmax;
    property Margin: TInt read fMargin write fMargin;
    property SurfaceColor: TColor read fSurfaceColor write fSurfaceColor;
    property ZFunc: TZofXY read fZFunc write fZFunc;
    property NInterval: TInt read GetNInterval write SetNInterval;
  end;

const
 MaxLine = 128;
 MinLine =  8;

implementation

end.

Up \Display