Class TframeHeadObservationResults

Unit

frameHeadObservationResultsUnit

Declaration

type TframeHeadObservationResults = class(TFrame)

Description

Hierarchy

• TFrame
• TframeHeadObservationResults

Overview

Fields

	pgcHeadObs: TPageControl;
	tabControls: TTabSheet;
	lblNegativeColor: TLabel;
	lblColorPositive: TLabel;
	lblMaxSymbolSize: TLabel;
	lblHeadObsResults: TLabel;
	flnmedHeadObsResults: TJvFilenameEdit;
	grpbxFilter: TGroupBox;
	lblMaximumTime: TLabel;
	lblMaxResidual: TLabel;
	lblMinimumTime: TLabel;
	lblMinResidual: TLabel;
	framelmtMaximumTime: TframeDisplayLimit;
	framelmtMaxResidual: TframeDisplayLimit;
	framelmtMinimumTime: TframeDisplayLimit;
	framelmtMinResidual: TframeDisplayLimit;
	clrbtnNegative: TJvColorButton;
	clrbtnPositive: TJvColorButton;
	spinSymbolSize: TJvSpinEdit;
	cbShow: TCheckBox;
	tabValues: TTabSheet;
	rdgHeadObs: TRbwDataGrid4;
	pnlBottom: TPanel;
	comboModels: TComboBox;
	btnHightlightObjects: TButton;
	FUndoType: TUndoType;
	FCurrentModelLink: TObsHeadLink;
	FGettingDate: Boolean;
	FImportResult: Boolean;
	ObsLinkList: TObsHeadLinkList;

Methods

	procedure flnmedHeadObsResultsChange(Sender: TObject);
	procedure comboModelsChange(Sender: TObject);
	procedure btnHightlightObjectsClick(Sender: TObject);
	procedure rdgHeadObsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure SetCurrentModelLink(Value: TObsHeadLink);
	procedure Initialize(AHeadObsColl: THeadObsCollection);
	procedure DisplayValues(AHeadObsColl: THeadObsCollection);
	procedure GetDataForAModel(AHeadObsColl: THeadObsCollection);
	function ReadFileForAModel(AHeadObsColl: THeadObsCollection; const FileName: string; ShowDialog: boolean): Boolean;
	procedure SetDataForAModel(HeadObs: THeadObsCollection);
	procedure TestForNewFiles;
	procedure Loaded; override;
	procedure GetData;
	procedure SetData;
	function ReadFile(const FileName: string): Boolean;
	procedure UpdateChildModels;
	constructor Create(Owner: TComponent); override;
	destructor Destroy; override;
	procedure UpdateSelectedModel;

Properties

property CurrentModelLink: TObsHeadLink read FCurrentModelLink write SetCurrentModelLink;

Description

Fields

	pgcHeadObs: TPageControl;

	tabControls: TTabSheet;

	lblNegativeColor: TLabel;

	lblColorPositive: TLabel;

	lblMaxSymbolSize: TLabel;

	lblHeadObsResults: TLabel;

	flnmedHeadObsResults: TJvFilenameEdit;

	grpbxFilter: TGroupBox;

	lblMaximumTime: TLabel;

	lblMaxResidual: TLabel;

	lblMinimumTime: TLabel;

	lblMinResidual: TLabel;

	framelmtMaximumTime: TframeDisplayLimit;

	framelmtMaxResidual: TframeDisplayLimit;

	framelmtMinimumTime: TframeDisplayLimit;

	framelmtMinResidual: TframeDisplayLimit;

	clrbtnNegative: TJvColorButton;

	clrbtnPositive: TJvColorButton;

	spinSymbolSize: TJvSpinEdit;

	cbShow: TCheckBox;

	tabValues: TTabSheet;

	rdgHeadObs: TRbwDataGrid4;

	pnlBottom: TPanel;

	comboModels: TComboBox;

	btnHightlightObjects: TButton;

	FUndoType: TUndoType;

	FCurrentModelLink: TObsHeadLink;

	FGettingDate: Boolean;

	FImportResult: Boolean;

	ObsLinkList: TObsHeadLinkList;

Methods

	procedure flnmedHeadObsResultsChange(Sender: TObject);

	procedure comboModelsChange(Sender: TObject);

	procedure btnHightlightObjectsClick(Sender: TObject);

	procedure rdgHeadObsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

	procedure SetCurrentModelLink(Value: TObsHeadLink);

	procedure Initialize(AHeadObsColl: THeadObsCollection);

	procedure DisplayValues(AHeadObsColl: THeadObsCollection);

	procedure GetDataForAModel(AHeadObsColl: THeadObsCollection);

	function ReadFileForAModel(AHeadObsColl: THeadObsCollection; const FileName: string; ShowDialog: boolean): Boolean;

	procedure SetDataForAModel(HeadObs: THeadObsCollection);

	procedure TestForNewFiles;

	procedure Loaded; override;
Private declarations

	procedure GetData;

	procedure SetData;

	function ReadFile(const FileName: string): Boolean;

	procedure UpdateChildModels;

	constructor Create(Owner: TComponent); override;

	destructor Destroy; override;

	procedure UpdateSelectedModel;

Properties

	property CurrentModelLink: TObsHeadLink read FCurrentModelLink write SetCurrentModelLink;