Class TframeModpathTimeSeriesDisplay

Unit

frameModpathTimeSeriesDisplayUnit

Declaration

type TframeModpathTimeSeriesDisplay = class(TFrame)

Description

Hierarchy

• TFrame
• TframeModpathTimeSeriesDisplay

Overview

Fields

	pcMain: TPageControl;
	tabBasic: TTabSheet;
	lblModpathFile: TLabel;
	lblTimeToPlot: TLabel;
	lblColorScheme: TLabel;
	pbColorScheme: TPaintBox;
	lblColorAdjustment: TLabel;
	lblCycles: TLabel;
	fedModpathFile: TJvFilenameEdit;
	comboTimeToPlot: TComboBox;
	udTimeToPlot: TJvUpDown;
	cbShowPathlines: TCheckBox;
	cbLimitToCurrentIn2D: TCheckBox;
	comboColorScheme: TComboBox;
	jsColorExponent: TJvxSlider;
	seColorExponent: TJvSpinEdit;
	seCycles: TJvSpinEdit;
	tabOptions: TTabSheet;
	rgShow2D: TRadioGroup;
	rgColorBy: TRadioGroup;
	rdgLimits: TRbwDataGrid4;
	comboModelSelection: TComboBox;
	lblModelSelection: TLabel;
	FTimeSeriesList: TimeSeriesObjectList;

Methods

	procedure rdgLimitsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure rdgLimitsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure rdgLimitsStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);
	procedure rgShow2DClick(Sender: TObject);
	procedure rgColorByClick(Sender: TObject);
	procedure fedModpathFileBeforeDialog(Sender: TObject; var AName: string; var AAction: Boolean);
	procedure fedModpathFileChange(Sender: TObject);
	procedure udTimeToPlotChangingEx(Sender: TObject; var AllowChange: Boolean; NewValue: SmallInt; Direction: TUpDownDirection);
	procedure pbColorSchemePaint(Sender: TObject);
	procedure comboColorSchemeChange(Sender: TObject);
	procedure seColorExponentChange(Sender: TObject);
	procedure seCyclesChange(Sender: TObject);
	procedure jsColorExponentChanged(Sender: TObject);
	procedure comboTimeToPlotChange(Sender: TObject);
	procedure comboModelSelectionChange(Sender: TObject);
	procedure Loaded; override;
	procedure AssignTimesToComboBox(Times: TRealList);
	procedure ReadIntLimit(IntLimits: TShowIntegerLimit; ALimitRow: TTimeSeriesLimits);
	procedure SetIntLimit(LimitRow: TTimeSeriesLimits; DefaultLimit: integer; IntLimit: TShowIntegerLimit);
	procedure GetData;
	procedure SetData;
	constructor Create(Owner: TComponent); override;
	destructor Destroy; override;

Description

Fields

	pcMain: TPageControl;

	tabBasic: TTabSheet;

	lblModpathFile: TLabel;

	lblTimeToPlot: TLabel;

	lblColorScheme: TLabel;

	pbColorScheme: TPaintBox;

	lblColorAdjustment: TLabel;

	lblCycles: TLabel;

	fedModpathFile: TJvFilenameEdit;

	comboTimeToPlot: TComboBox;

	udTimeToPlot: TJvUpDown;

	cbShowPathlines: TCheckBox;

	cbLimitToCurrentIn2D: TCheckBox;

	comboColorScheme: TComboBox;

	jsColorExponent: TJvxSlider;

	seColorExponent: TJvSpinEdit;

	seCycles: TJvSpinEdit;

	tabOptions: TTabSheet;

	rgShow2D: TRadioGroup;

	rgColorBy: TRadioGroup;

	rdgLimits: TRbwDataGrid4;

	comboModelSelection: TComboBox;

	lblModelSelection: TLabel;

	FTimeSeriesList: TimeSeriesObjectList;

Methods

	procedure rdgLimitsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

	procedure rdgLimitsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

	procedure rdgLimitsStateChange(Sender: TObject; ACol, ARow: Integer; const Value: TCheckBoxState);

	procedure rgShow2DClick(Sender: TObject);

	procedure rgColorByClick(Sender: TObject);

	procedure fedModpathFileBeforeDialog(Sender: TObject; var AName: string; var AAction: Boolean);

	procedure fedModpathFileChange(Sender: TObject);

	procedure udTimeToPlotChangingEx(Sender: TObject; var AllowChange: Boolean; NewValue: SmallInt; Direction: TUpDownDirection);

	procedure pbColorSchemePaint(Sender: TObject);

	procedure comboColorSchemeChange(Sender: TObject);

	procedure seColorExponentChange(Sender: TObject);

	procedure seCyclesChange(Sender: TObject);

	procedure jsColorExponentChanged(Sender: TObject);

	procedure comboTimeToPlotChange(Sender: TObject);

	procedure comboModelSelectionChange(Sender: TObject);

	procedure Loaded; override;

	procedure AssignTimesToComboBox(Times: TRealList);

	procedure ReadIntLimit(IntLimits: TShowIntegerLimit; ALimitRow: TTimeSeriesLimits);

	procedure SetIntLimit(LimitRow: TTimeSeriesLimits; DefaultLimit: integer; IntLimit: TShowIntegerLimit);

	procedure GetData;
Private declarations

	procedure SetData;

	constructor Create(Owner: TComponent); override;

	destructor Destroy; override;