Class TframeModpathDisplay

Unit

frameModpathDisplayUnit

Declaration

type TframeModpathDisplay = class(TFrame)

Description

Hierarchy

• TFrame
• TframeModpathDisplay

Overview

Fields

	pcMain: TPageControl;
	tabBasic: TTabSheet;
	lblModpathFile: TLabel;
	lblColorScheme: TLabel;
	pbColorScheme: TPaintBox;
	lblColorAdjustment: TLabel;
	lblCycles: TLabel;
	lblMaxTime: TLabel;
	fedModpathFile: TJvFilenameEdit;
	cbShowPathlines: TCheckBox;
	cbLimitToCurrentIn2D: TCheckBox;
	comboColorScheme: TComboBox;
	jsColorExponent: TJvxSlider;
	seColorExponent: TJvSpinEdit;
	seCycles: TJvSpinEdit;
	tabOptions: TTabSheet;
	rgShow2D: TRadioGroup;
	rgColorBy: TRadioGroup;
	rdgLimits: TRbwDataGrid4;
	comboModelSelection: TComboBox;
	lblModelSelection: TLabel;
	FPathLines: TPathLinesObjectList;

Methods

	procedure pbColorSchemePaint(Sender: TObject);
	procedure rgColorByClick(Sender: TObject);
	procedure comboColorSchemeChange(Sender: TObject);
	procedure seColorExponentChange(Sender: TObject);
	procedure jsColorExponentChange(Sender: TObject);
	procedure rgShow2DClick(Sender: TObject);
	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 fedModpathFileBeforeDialog(Sender: TObject; var AName: string; var AAction: Boolean);
	procedure comboModelSelectionChange(Sender: TObject);
	procedure Loaded; override;
	procedure ReadIntLimit(IntLimits: TShowIntegerLimit; ALimitRow: TPathlineLimits);
	procedure ReadFloatLimits(FloatLimits: TShowFloatLimit; ALimitRow: TPathlineLimits);
	procedure SetIntLimit(LimitRow: TPathlineLimits; DefaultLimit: integer; IntLimit: TShowIntegerLimit);
	procedure SetFloatLimit(LimitRow: TPathlineLimits; MinLimit, MaxLimit: Double; FloatLimit: TShowFloatLimit);
	procedure GetData;
	procedure SetData;
	constructor Create(Owner: TComponent); override;
	destructor Destroy; override;

Description

Fields

	pcMain: TPageControl;

	tabBasic: TTabSheet;

	lblModpathFile: TLabel;

	lblColorScheme: TLabel;

	pbColorScheme: TPaintBox;

	lblColorAdjustment: TLabel;

	lblCycles: TLabel;

	lblMaxTime: TLabel;

	fedModpathFile: TJvFilenameEdit;

	cbShowPathlines: TCheckBox;

	cbLimitToCurrentIn2D: TCheckBox;

	comboColorScheme: TComboBox;

	jsColorExponent: TJvxSlider;

	seColorExponent: TJvSpinEdit;

	seCycles: TJvSpinEdit;

	tabOptions: TTabSheet;

	rgShow2D: TRadioGroup;

	rgColorBy: TRadioGroup;

	rdgLimits: TRbwDataGrid4;

	comboModelSelection: TComboBox;

	lblModelSelection: TLabel;

	FPathLines: TPathLinesObjectList;

Methods

	procedure pbColorSchemePaint(Sender: TObject);

	procedure rgColorByClick(Sender: TObject);

	procedure comboColorSchemeChange(Sender: TObject);

	procedure seColorExponentChange(Sender: TObject);

	procedure jsColorExponentChange(Sender: TObject);

	procedure rgShow2DClick(Sender: TObject);

	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 fedModpathFileBeforeDialog(Sender: TObject; var AName: string; var AAction: Boolean);

	procedure comboModelSelectionChange(Sender: TObject);

	procedure Loaded; override;

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

	procedure ReadFloatLimits(FloatLimits: TShowFloatLimit; ALimitRow: TPathlineLimits);

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

	procedure SetFloatLimit(LimitRow: TPathlineLimits; MinLimit, MaxLimit: Double; FloatLimit: TShowFloatLimit);

	procedure GetData;
Private declarations

	procedure SetData;

	constructor Create(Owner: TComponent); override;

	destructor Destroy; override;