Up \Display

{@abstract(TGrid2D and TGrid2Dm classes )
author: Nikolai Shokhirev )
created: June 06, 2002)
last modified: August 08, 2003)
ŠNikolai V. Shokhirev, 2002-2003 }
unit uGrid2D;

interface

uses
  classes, extctrls, uMatTypes, controls, Graphics, Windows, uTensors,
  uColorMap;

type

  TGrid2D = class(TPaintBox)
  public
    constructor Create(aOwner: TComponent; aParent: TWinControl);  reintroduce;
    destructor Destroy; override;
    procedure SetRanges(aLo1, aHi1, aLo2, aHi2: TInt);
    procedure ClearGrid;
    procedure PaintGrid;
    procedure ScreenToCell(X, Y: integer; var i2, i1: TInt);
    property Lo1: TInt read fLo1;
    property Hi1: TInt read fHi1;
    property Lo2: TInt read fLo2;
    property Hi2: TInt read fHi2;
    property LineColor: TColor read fLineColor write fLineColor;
    property BgColor: TColor read fBgColor write fBgColor;
    property CellColor[idx1,idx2: integer]: TColor read GetCellColor write SetCellColor; Default;
  end;

  TGrid2DM = class(TGrid2D)
  public
    procedure MatrixToColors;
    procedure ColorsToMatrix;
    property RGBSet: TRGBSet read fRGBSet write fRGBSet;
    property Mmin: TFloat read fMmin write fMmin;
    property Mmax: TFloat read fMmax write fMmax;
    property Matrix: ITensor2D read GetMatrix write SetMatrix;
    property Values[i1,i2: TInt]: TFloat read GetValue write SetValue;
  end;

implementation


end.

Up \Display