Class TFitClient

Description

Hierarchy

Fields

Methods

Properties

Unit

fit_client

Declaration

type TFitClient = class(TInterfacedObject, IClientCallback)

Description

Implements all client logic of the application. Must be completely independent from UI.

Hierarchy

TInterfacedObject
TFitClient

Overview

Fields

	`FAnimationMode: boolean;`
	`FAsyncOperationFinished: TAsyncOperationFinished;`
	`FAsyncState: TAsyncState;`
	`FBackgroundPoints: TTitlePointsSet;`
	`FComputedProfile: TTitlePointsSet;`
	`FCurMin: double;`
	`FCurveAttributes: TMSCRCurveList;`
	`FCurvePositions: TTitlePointsSet;`
	`FCurves: TSelfCopiedCompList;`
	`FDataLoader: IDataLoader;`
	`FDataLoaderInjector: IDataLoaderInjector;`
	`FDeltaProfile: TTitlePointsSet;`
	`FExperimentalProfile: TTitlePointsSet;`
	`FFitService: IFitService;`
	`FFitViewer: IFitViewer;`
	`FOpenState: TOpenState;`
	`FRFactorBounds: TTitlePointsSet;`
	`FSelectedArea: TTitlePointsSet;`
	`FSelectedAreaMode: boolean;`
	`FSelectedPoints: TTitlePointsSet;`
	`FSelectionMode: TSelMode;`
	`FWaveLength: double;`

Methods

	`constructor CreateWithInjector( ADataLoaderInjector: IDataLoaderInjector);`
	`destructor Destroy; override;`
	`function AsyncOper: boolean;`
	`function GetBackgroundPoints: TNeutronPointsSet;`
	`function GetCalcTimeStr: string;`
	`function GetCurrentPointsSet: TTitlePointsSet;`
	`function GetCurveList: TMSCRCurveList;`
	`function GetCurvePositions: TNeutronPointsSet;`
	`function GetProfilePoints: TTitlePointsSet;`
	`function GetRFactorBounds: TNeutronPointsSet;`
	`function GetRFactorStr: string;`
	`function GetSelectedPoints: TNeutronPointsSet;`
	`function GetSpecialCurveParameters: Curve_parameters;`
	`function GetWaveLength: double;`
	`function GetBackFactor: double;`
	`function GetBackgroundVariationEnabled: boolean;`
	`function GetCurveScalingEnabled: boolean;`
	`function GetCurveThresh: double;`
	`function GetCurveType: TCurveTypeId;`
	`function GetMaxRFactor: double;`
	`function GetSelectionMode: TSelMode;`
	`procedure AddPointToActive(XValue, YValue: double);`
	`procedure AddPointToBackground(XValue, YValue: double);`
	`procedure AddPointToCurvePositions(XValue, YValue: double);`
	`procedure AddPointToRFactorBounds(XValue, YValue: double);`
	`procedure AddPointToSelected(XValue, YValue: double);`
	`procedure ComputeBackgroundPoints;`
	`procedure ComputeBackgroundPointsDone;`
	`procedure ComputeCurveBounds;`
	`procedure ComputeCurveBoundsDone;`
	`procedure ComputeCurvePositions;`
	`procedure ComputeCurvePositionsDone;`
	`procedure CreateCurveList;`
	`procedure DoAllAutomatically;`
	`procedure Done;`
	`procedure LoadDataSet(FileName: string);`
	`procedure MinimizeDifference;`
	`procedure MinimizeNumberOfCurves;`
	`procedure Reload;`
	`procedure RemoveBackgroundPoints;`
	`procedure RemoveCurvePositions;`
	`procedure RemoveRFactorBounds;`
	`procedure ReplacePointInBackground( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`
	`procedure ReplacePointInCurvePositions( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`
	`procedure ReplacePointInProfile( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`
	`procedure ReplacePointInRFactorBounds( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`
	`procedure ReplacePointInSelected( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`
	`procedure SelectAllPointsAsCurvePositions;`
	`procedure SelectEntireProfile;`
	`procedure SelectProfileInterval(StartPointIndex, StopPointIndex: longint);`
	`procedure SetSpecialCurveParameters(ACurveExpr: string; CP: Curve_parameters);`
	`procedure SetWaveLength(AWaveLength: double);`
	`procedure ShowCurMin(Min: double);`
	`procedure ShowProfile;`
	`procedure SmoothProfile;`
	`procedure StopAsyncOper;`
	`procedure SubtractBackground(Auto: boolean);`
	`procedure AddPoint(var Points: TTitlePointsSet; XValue, YValue: double; Plot: TPlotProc);`
	`procedure Clear;`
	`procedure ClearExpProfile;`
	`procedure CopyProfileDataFromLoader;`
	`procedure FillDatasheetTable;`
	`procedure Hide(ToRefresh: TNeutronPointsSet);`
	`procedure HideBackground;`
	`procedure HideCurvePositions;`
	`procedure HideCurves;`
	`procedure HideExpProfile;`
	`procedure HideRFactorBounds;`
	`procedure PlotBackground;`
	`procedure PlotComputedProfile;`
	`procedure PlotCurvePositions;`
	`procedure PlotCurves;`
	`procedure PlotDeltaProfile;`
	`procedure PlotExpProfile;`
	`procedure PlotRFactorBounds;`
	`procedure PlotSelectedPoints;`
	`procedure PlotSelectedProfileInterval;`
	`procedure RecreateAndShowSelectedPoints(Title: string);`
	`procedure Refresh;`
	`procedure RefreshPointsSet(ToRefresh: TNeutronPointsSet);`
	`procedure RemoveComputedProfile;`
	`procedure RemoveDeltaProfile;`
	`procedure RemoveSelectedArea;`
	`procedure RemoveSelectedPoints;`
	`procedure ReplacePoint(Points: TTitlePointsSet; PrevXValue, PrevYValue, NewXValue, NewYValue: double; Plot: TPlotProc);`
	`procedure SelectProfileIntervalActual(ANeutronPoints: TNeutronPointsSet; StartPointIndex, StopPointIndex: longint);`
	`procedure SetBackFactor(ABackFactor: double);`
	`procedure SetBackgroundVariationEnabled(AEnable: boolean);`
	`procedure SetCurveScalingEnabled(AEnabled: boolean);`
	`procedure SetCurvesListLambda;`
	`procedure SetCurveThresh(ACurveThresh: double);`
	`procedure SetCurveType(ACurveType: TCurveTypeId);`
	`procedure SetExpProfile(AExpProfile: TTitlePointsSet);`
	`procedure SetMaxRFactor(AMaxRFactor: double);`
	`procedure SetSelectionMode(ASelectionMode: TSelMode);`
	`procedure UpdateComputedData(ShowExtraData: boolean);`

Properties

	`property AnimationMode: boolean read FAnimationMode write FAnimationMode;`
	`property AsyncState: TAsyncState read FAsyncState;`
	`property BackFactor: double read GetBackFactor write SetBackFactor;`
	`property BackgroundVariationEnabled: boolean read GetBackgroundVariationEnabled write SetBackgroundVariationEnabled;`
	`property CurveScalingEnabled: boolean read GetCurveScalingEnabled write SetCurveScalingEnabled;`
	`property CurveThresh: double read GetCurveThresh write SetCurveThresh;`
	`property CurveTypeId: TCurveTypeId read GetCurveType write SetCurveType ;`
	`property FitService: IFitService read FFitService write FFitService;`
	`property MaxRFactor: double read GetMaxRFactor write SetMaxRFactor;`
	`property OnAsyncOperationFinished: TAsyncOperationFinished read FAsyncOperationFinished write FAsyncOperationFinished;`
	`property OpenState: TOpenState read FOpenState;`
	`property SelectedAreaMode: boolean read FSelectedAreaMode;`
	`property SelectionMode: TSelMode read FSelectionMode write SetSelectionMode;`

Description

Fields

	`FAnimationMode: boolean;`
Enables animation mode in which UI is updated on every computation cycle not only on finishing. By default is false.

	`FAsyncOperationFinished: TAsyncOperationFinished;`
Callback on asynchronous operation finishing.

	`FAsyncState: TAsyncState;`

	`FBackgroundPoints: TTitlePointsSet;`
List of background points which is used for transmission between manual and automatic selection modes.

	`FComputedProfile: TTitlePointsSet;`
Sum of all model curces which is compared with experimental data.

	`FCurMin: double;`

	`FCurveAttributes: TMSCRCurveList;`
Containers of parameters of curves.

	`FCurvePositions: TTitlePointsSet;`
Positions of curves. Only X-coordinates are used.

	`FCurves: TSelfCopiedCompList;`
Containers of calculated curves. Each object contains data of specimen curve.

	`FDataLoader: IDataLoader;`

	`FDataLoaderInjector: IDataLoaderInjector;`

	`FDeltaProfile: TTitlePointsSet;`

	`FExperimentalProfile: TTitlePointsSet;`
All the data displayed on the chart. They are required to be able control of X-coordinate.

	`FFitService: IFitService;`

	`FFitViewer: IFitViewer;`

	`FOpenState: TOpenState;`

	`FRFactorBounds: TTitlePointsSet;`
List of point pairs which limit interval of R-factor calculation. Always must be displayed in order to show user in which mode R-factor is calculated.

	`FSelectedArea: TTitlePointsSet;`
Region of given profile data with which user is working at the given moment.

	`FSelectedAreaMode: boolean;`
If True then in all operations only data belonging to selected ared are used otherwise all profile data are used.

	`FSelectedPoints: TTitlePointsSet;`
Set of points selected by user.

	`FSelectionMode: TSelMode;`

	`FWaveLength: double;`
TODO: remove this attribute.

Methods

	`constructor CreateWithInjector( ADataLoaderInjector: IDataLoaderInjector);`

	`destructor Destroy; override;`

	`function AsyncOper: boolean;`
Gets state of asynchronous operation from the server.

	`function GetBackgroundPoints: TNeutronPointsSet;`

	`function GetCalcTimeStr: string;`

	`function GetCurrentPointsSet: TTitlePointsSet;`
Returns a set with which user works at the moment.

	`function GetCurveList: TMSCRCurveList;`

	`function GetCurvePositions: TNeutronPointsSet;`

	`function GetProfilePoints: TTitlePointsSet;`
Returns full profile or part of profile selected at the moment.

	`function GetRFactorBounds: TNeutronPointsSet;`

	`function GetRFactorStr: string;`

	`function GetSelectedPoints: TNeutronPointsSet;`

	`function GetSpecialCurveParameters: Curve_parameters;`

	`function GetWaveLength: double;`

	`function GetBackFactor: double;`

	`function GetBackgroundVariationEnabled: boolean;`

	`function GetCurveScalingEnabled: boolean;`

	`function GetCurveThresh: double;`

	`function GetCurveType: TCurveTypeId;`

	`function GetMaxRFactor: double;`

	`function GetSelectionMode: TSelMode;`

	`procedure AddPointToActive(XValue, YValue: double);`

	`procedure AddPointToBackground(XValue, YValue: double);`

	`procedure AddPointToCurvePositions(XValue, YValue: double);`

	`procedure AddPointToRFactorBounds(XValue, YValue: double);`

	`procedure AddPointToSelected(XValue, YValue: double);`
All call AddPoint method.

	`procedure ComputeBackgroundPoints;`

	`procedure ComputeBackgroundPointsDone;`

	`procedure ComputeCurveBounds;`

	`procedure ComputeCurveBoundsDone;`

	`procedure ComputeCurvePositions;`

	`procedure ComputeCurvePositionsDone;`

	`procedure CreateCurveList;`

	`procedure DoAllAutomatically;`

	`procedure Done;`

	`procedure LoadDataSet(FileName: string);`

	`procedure MinimizeDifference;`

	`procedure MinimizeNumberOfCurves;`

	`procedure Reload;`

	`procedure RemoveBackgroundPoints;`

	`procedure RemoveCurvePositions;`

	`procedure RemoveRFactorBounds;`
Do only cleaning of sets.

	`procedure ReplacePointInBackground( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`

	`procedure ReplacePointInCurvePositions( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`

	`procedure ReplacePointInProfile( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`
All call ReplacePoint method.

	`procedure ReplacePointInRFactorBounds( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`

	`procedure ReplacePointInSelected( PrevXValue, PrevYValue, NewXValue, NewYValue: double);`

	`procedure SelectAllPointsAsCurvePositions;`

	`procedure SelectEntireProfile;`

	`procedure SelectProfileInterval(StartPointIndex, StopPointIndex: longint);`
Cleans chart and moves data from full profile to data of selected iterval.

	`procedure SetSpecialCurveParameters(ACurveExpr: string; CP: Curve_parameters);`

	`procedure SetWaveLength(AWaveLength: double);`

	`procedure ShowCurMin(Min: double);`
Callbacks from the server.

	`procedure ShowProfile;`

	`procedure SmoothProfile;`
Wrappers for server methods. Mustn't create messages because this is responsibility of GUI. Instead of this must throw exceptions.

	`procedure StopAsyncOper;`

	`procedure SubtractBackground(Auto: boolean);`

	`procedure AddPoint(var Points: TTitlePointsSet; XValue, YValue: double; Plot: TPlotProc);`
Adds new point to the given set. Second call removes point from the set. In last case the set is recreated.

	`procedure Clear;`

	`procedure ClearExpProfile;`

	`procedure CopyProfileDataFromLoader;`

	`procedure FillDatasheetTable;`

	`procedure Hide(ToRefresh: TNeutronPointsSet);`

	`procedure HideBackground;`

	`procedure HideCurvePositions;`

	`procedure HideCurves;`

	`procedure HideExpProfile;`

	`procedure HideRFactorBounds;`

	`procedure PlotBackground;`

	`procedure PlotComputedProfile;`

	`procedure PlotCurvePositions;`

	`procedure PlotCurves;`
Wrappers for calls to external displaying methods. They are necessary to check that external interface methods are connected. Opposite means that there aren't corresponding GUI elements.

	`procedure PlotDeltaProfile;`

	`procedure PlotExpProfile;`

	`procedure PlotRFactorBounds;`

	`procedure PlotSelectedPoints;`

	`procedure PlotSelectedProfileInterval;`

	`procedure RecreateAndShowSelectedPoints(Title: string);`
Creates list of selected points and inserts new item into chart legend (CheckListBox).

	`procedure Refresh;`

	`procedure RefreshPointsSet(ToRefresh: TNeutronPointsSet);`

	`procedure RemoveComputedProfile;`

	`procedure RemoveDeltaProfile;`

	`procedure RemoveSelectedArea;`

	`procedure RemoveSelectedPoints;`

	`procedure ReplacePoint(Points: TTitlePointsSet; PrevXValue, PrevYValue, NewXValue, NewYValue: double; Plot: TPlotProc);`
Replaces point and updates chart.

	`procedure SelectProfileIntervalActual(ANeutronPoints: TNeutronPointsSet; StartPointIndex, StopPointIndex: longint);`
Copies data from the given point set to the set of selected interval.

	`procedure SetBackFactor(ABackFactor: double);`

	`procedure SetBackgroundVariationEnabled(AEnable: boolean);`

	`procedure SetCurveScalingEnabled(AEnabled: boolean);`

	`procedure SetCurvesListLambda;`

	`procedure SetCurveThresh(ACurveThresh: double);`

	`procedure SetCurveType(ACurveType: TCurveTypeId);`

	`procedure SetExpProfile(AExpProfile: TTitlePointsSet);`

	`procedure SetMaxRFactor(AMaxRFactor: double);`

	`procedure SetSelectionMode(ASelectionMode: TSelMode);`

	`procedure UpdateComputedData(ShowExtraData: boolean);`
Updates all the data and refreshes chart.

Properties

	`property AnimationMode: boolean read FAnimationMode write FAnimationMode;`

	`property AsyncState: TAsyncState read FAsyncState;`

	`property BackFactor: double read GetBackFactor write SetBackFactor;`

	`property BackgroundVariationEnabled: boolean read GetBackgroundVariationEnabled write SetBackgroundVariationEnabled;`
Server attributes.

	`property CurveScalingEnabled: boolean read GetCurveScalingEnabled write SetCurveScalingEnabled;`

	`property CurveThresh: double read GetCurveThresh write SetCurveThresh;`

	`property CurveTypeId: TCurveTypeId read GetCurveType write SetCurveType ;`

	`property FitService: IFitService read FFitService write FFitService;`

	`property MaxRFactor: double read GetMaxRFactor write SetMaxRFactor;`

	`property OnAsyncOperationFinished: TAsyncOperationFinished read FAsyncOperationFinished write FAsyncOperationFinished;`
Callbacks for updating user interface. They are called from main thread of client application. Callbacks can throw exceptions. They can be not assigned (nil).

	`property OpenState: TOpenState read FOpenState;`

	`property SelectedAreaMode: boolean read FSelectedAreaMode;`

	`property SelectionMode: TSelMode read FSelectionMode write SetSelectionMode;`

Generated by PasDoc 0.15.0.