Class TFitViewer

Description

Hierarchy

Fields

Methods

Properties

Unit

fit_viewer

Declaration

type TFitViewer = class(TComponent, IFitViewer)

Description

Component responsible for displaying client data by means of UI components. Supports correspondence between series of Chart and items of CheckListBox. On turning off CheckListBox item serie can be only hidden but not deleted because there is no direct connection between items of CheckListBox and items of PointsSetList.

Hierarchy

TComponent
TFitViewer

Overview

Fields

	`FFitClient: TFitClient;`
	`FForm: TForm;`
	`FMaxX: double;`
	`FMaxY: double;`
	`FMinX: double;`
	`FMinY: double;`
	`FPointsSetList: TComponentList;`
	`FUpdateGrids: boolean;`
	`FUpdateLegends: boolean;`
	`FViewMarkers: boolean;`
	`FXCoordMode: longint;`

Methods

	`constructor Create(AOwner: TComponent); override;`
	`destructor Destroy; override;`
	`function GetActiveCurveIndex: longint;`
	`function GetActivePointsSet: TNeutronPointsSet;`
	`function GetMaxX: double;`
	`function GetMaxY: double;`
	`function GetMinX: double;`
	`function GetMinY: double;`
	`function GetPointsSet(ActiveCurveIndex: longint): TNeutronPointsSet;`
	`function GetMaxCurveNum(CurvesList: TSelfCopiedCompList; RFactorBounds: TTitlePointsSet): longint;`
	`function GetPointsNumInBounds(Profile: TTitlePointsSet; RFactorBounds: TTitlePointsSet): longint;`
	`function ValToStr(Value: double): string;`
	`procedure Clear(Sender: TObject);`
	`procedure FillDatasheetTable(ExperimentalProfile: TTitlePointsSet; CurvesList: TSelfCopiedCompList; ComputedProfile: TTitlePointsSet; DeltaProfile: TTitlePointsSet; RFactorBounds: TTitlePointsSet);`
	`procedure GetMinMax(var AMinX, AMaxX, AMinY, AMaxY: double);`
	`procedure Hide(Sender: TObject; PointsSet: TNeutronPointsSet);`
	`procedure HideBackground(Sender: TObject; BackgroundPoints: TTitlePointsSet);`
	`procedure HideCurvePositions(Sender: TObject; CurvePositions: TTitlePointsSet);`
	`procedure HideExpProfile(Sender: TObject; DataPoints: TTitlePointsSet);`
	`procedure HideRFactorBounds(Sender: TObject; RFactorBounds: TTitlePointsSet);`
	`procedure Plot;`
	`procedure PlotBackground(Sender: TObject; BackgroundPoints: TTitlePointsSet);`
	`procedure PlotComputedProfile(Sender: TObject; ComputedProfile: TTitlePointsSet);`
	`procedure PlotCurvePositions(Sender: TObject; CurvePositions: TTitlePointsSet);`
	`procedure PlotCurves(Sender: TObject; CurvePointsSetList: TSelfCopiedCompList; CurveList: TMSCRCurveList);`
	`procedure PlotDeltaProfile(Sender: TObject; DeltaProfile: TTitlePointsSet);`
	`procedure PlotExpProfile(Sender: TObject; ExpProfile: TTitlePointsSet);`
	`procedure PlotRFactorBounds(Sender: TObject; RFactorBounds: TTitlePointsSet);`
	`procedure PlotSelectedPoints(Sender: TObject; SelectedPoints: TTitlePointsSet);`
	`procedure PlotSelectedProfileInterval(Sender: TObject; SelectedArea: TTitlePointsSet);`
	`procedure Refresh(Sender: TObject);`
	`procedure RefreshPointsSet(Sender: TObject; PointsSet: TNeutronPointsSet);`
	`procedure SetFitClient(AFitClient: TFitClient);`
	`procedure SetUpdateGrids(Update: boolean);`
	`procedure SetUpdateLegends(Update: boolean);`
	`procedure SetViewMarkers(AViewMarkers: boolean);`
	`procedure ShowHint(Hint: string);`
	`procedure ShowRFactor;`
	`procedure ShowTime;`
	`procedure ViewAllMarkers;`
	`procedure AddSerieToChart(Serie: TTASerie);`
	`procedure ClearBackgroundTable;`
	`procedure ClearBoundsTable;`
	`procedure ClearCurveTable;`
	`procedure ClearDatasheetTable;`
	`procedure ClearDataTable;`
	`procedure ClearPositionsTable;`
	`procedure FillBackgroundTable(BackgroundPoints: TTitlePointsSet);`
	`procedure FillBoundsTable(RFactorBounds: TTitlePointsSet);`
	`procedure FillCurveTable(CurveList: TMSCRCurveList);`
	`procedure FillDataTable(Profile: TTitlePointsSet);`
	`procedure FillPositionsTable(CurvePositions: TTitlePointsSet);`
	`procedure PlotPointsSet(PointsSet: TNeutronPointsSet);`
	`procedure SetXCoordMode(AMode: longint);`

Properties

	`property Form: TForm read FForm write FForm;`
	`property XCoordMode: longint read FXCoordMode write SetXCoordMode;`

Description

Fields

	`FFitClient: TFitClient;`

	`FForm: TForm;`

	`FMaxX: double;`

	`FMaxY: double;`

	`FMinX: double;`

	`FMinY: double;`

	`FPointsSetList: TComponentList;`
List of data sets for each item of which chart serie is related. The list is passive, it contains pointers to external data.

	`FUpdateGrids: boolean;`
Enables updating grids. By default is true.

	`FUpdateLegends: boolean;`
Enables updating legend. By default is true.

	`FViewMarkers: boolean;`

	`FXCoordMode: longint;`

Methods

	`constructor Create(AOwner: TComponent); override;`

	`destructor Destroy; override;`

	`function GetActiveCurveIndex: longint;`
Returns number of the first visible curve from curve list. This function actually gives the number of active curve when only single curve is visible in the chart. This should be checked separately.

	`function GetActivePointsSet: TNeutronPointsSet;`

	`function GetMaxX: double;`
Return boundary values among all curves.

	`function GetMaxY: double;`

	`function GetMinX: double;`

	`function GetMinY: double;`

	`function GetPointsSet(ActiveCurveIndex: longint): TNeutronPointsSet;`

	`function GetMaxCurveNum(CurvesList: TSelfCopiedCompList; RFactorBounds: TTitlePointsSet): longint;`
Returns maximum number of curves in one of given R-factor intervals.

	`function GetPointsNumInBounds(Profile: TTitlePointsSet; RFactorBounds: TTitlePointsSet): longint;`
Returns total number of profile points belonging to any of intervals.

	`function ValToStr(Value: double): string;`

	`procedure Clear(Sender: TObject);`
Method of IFitViewer interface.

	`procedure FillDatasheetTable(ExperimentalProfile: TTitlePointsSet; CurvesList: TSelfCopiedCompList; ComputedProfile: TTitlePointsSet; DeltaProfile: TTitlePointsSet; RFactorBounds: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure GetMinMax(var AMinX, AMaxX, AMinY, AMaxY: double);`

	`procedure Hide(Sender: TObject; PointsSet: TNeutronPointsSet);`
Method of IFitViewer interface.

	`procedure HideBackground(Sender: TObject; BackgroundPoints: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure HideCurvePositions(Sender: TObject; CurvePositions: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure HideExpProfile(Sender: TObject; DataPoints: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure HideRFactorBounds(Sender: TObject; RFactorBounds: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure Plot;`
Clears all series and fills them again saving parameter values.

	`procedure PlotBackground(Sender: TObject; BackgroundPoints: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotComputedProfile(Sender: TObject; ComputedProfile: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotCurvePositions(Sender: TObject; CurvePositions: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotCurves(Sender: TObject; CurvePointsSetList: TSelfCopiedCompList; CurveList: TMSCRCurveList);`
Method of IFitViewer interface.

	`procedure PlotDeltaProfile(Sender: TObject; DeltaProfile: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotExpProfile(Sender: TObject; ExpProfile: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotRFactorBounds(Sender: TObject; RFactorBounds: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotSelectedPoints(Sender: TObject; SelectedPoints: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure PlotSelectedProfileInterval(Sender: TObject; SelectedArea: TTitlePointsSet);`
Method of IFitViewer interface.

	`procedure Refresh(Sender: TObject);`
Method of IFitViewer interface.

	`procedure RefreshPointsSet(Sender: TObject; PointsSet: TNeutronPointsSet);`
Does not clear series but only refreshes intencities.

	`procedure SetFitClient(AFitClient: TFitClient);`

	`procedure SetUpdateGrids(Update: boolean);`
Method of IFitViewer interface.

	`procedure SetUpdateLegends(Update: boolean);`
Method of IFitViewer interface.

	`procedure SetViewMarkers(AViewMarkers: boolean);`

	`procedure ShowHint(Hint: string);`
Method of IFitViewer interface.

	`procedure ShowRFactor;`
Method of IFitViewer interface.

	`procedure ShowTime;`
Method of IFitViewer interface.

	`procedure ViewAllMarkers;`

	`procedure AddSerieToChart(Serie: TTASerie);`

	`procedure ClearBackgroundTable;`

	`procedure ClearBoundsTable;`

	`procedure ClearCurveTable;`

	`procedure ClearDatasheetTable;`

	`procedure ClearDataTable;`

	`procedure ClearPositionsTable;`

	`procedure FillBackgroundTable(BackgroundPoints: TTitlePointsSet);`

	`procedure FillBoundsTable(RFactorBounds: TTitlePointsSet);`

	`procedure FillCurveTable(CurveList: TMSCRCurveList);`

	`procedure FillDataTable(Profile: TTitlePointsSet);`

	`procedure FillPositionsTable(CurvePositions: TTitlePointsSet);`

	`procedure PlotPointsSet(PointsSet: TNeutronPointsSet);`
Clears serie set and fills it again.

	`procedure SetXCoordMode(AMode: longint);`

Properties

	`property Form: TForm read FForm write FForm;`

	`property XCoordMode: longint read FXCoordMode write SetXCoordMode;`

Generated by PasDoc 0.15.0.