Class TframeSutraObservations

Unit

frameSutraObservationsUnit

Declaration

type TframeSutraObservations = class(TframeCustomSutraFeature)

Description

Hierarchy

• TFrame
• TframeCustomSutraFeature
• TframeSutraObservations

Overview

Fields

	lblObservationFormat: TLabel;
	comboObservationFormat: TComboBox;
	lblName: TLabel;
	edName: TEdit;
	FTimesIdentical: boolean;
	FDisplayingTime: Boolean;

Methods

	procedure comboScheduleChange(Sender: TObject);
	procedure rdgSutraFeatureEndUpdate(Sender: TObject);
	procedure edNameChange(Sender: TObject);
	procedure comboObservationFormatChange(Sender: TObject);
	procedure seNumberOfTimesChange(Sender: TObject);
	procedure btnDeleteClick(Sender: TObject);
	procedure btnInsertClick(Sender: TObject);
	procedure edNameExit(Sender: TObject);
	procedure DisplayTimes(Times: TRealCollection); overload;
	procedure DisplayTimes(TimeValues: TOneDRealArray); overload;
	procedure ClearTimes;
	procedure GetScheduleName(ObsList: TSutraObsList);
	procedure GetObservationFormat(ObsList: TSutraObsList);
	procedure GetObservationTimes(ObsList: TSutraObsList);
	procedure CheckStoredTimes(ObsList: TSutraObsList);
	procedure GetObservationName(ObsList: TSutraObsList);
	procedure GetData(ScreenObjects: TScreenObjectEditCollection); override;
	procedure SetData(ScreenObjects: TScreenObjectEditCollection; SetAll, ClearAll: boolean); override;

Description

Fields

	lblObservationFormat: TLabel;

	comboObservationFormat: TComboBox;

	lblName: TLabel;

	edName: TEdit;

	FTimesIdentical: boolean;
FTimesIdentical is True if all the features being displayed use the same set of times.

	FDisplayingTime: Boolean;

Methods

	procedure comboScheduleChange(Sender: TObject);

	procedure rdgSutraFeatureEndUpdate(Sender: TObject);

	procedure edNameChange(Sender: TObject);

	procedure comboObservationFormatChange(Sender: TObject);

	procedure seNumberOfTimesChange(Sender: TObject);

	procedure btnDeleteClick(Sender: TObject);

	procedure btnInsertClick(Sender: TObject);

	procedure edNameExit(Sender: TObject);

	procedure DisplayTimes(Times: TRealCollection); overload;

	procedure DisplayTimes(TimeValues: TOneDRealArray); overload;

	procedure ClearTimes;

	procedure GetScheduleName(ObsList: TSutraObsList);

	procedure GetObservationFormat(ObsList: TSutraObsList);

	procedure GetObservationTimes(ObsList: TSutraObsList);

	procedure CheckStoredTimes(ObsList: TSutraObsList);

	procedure GetObservationName(ObsList: TSutraObsList);

	procedure GetData(ScreenObjects: TScreenObjectEditCollection); override;
Private declarations

	procedure SetData(ScreenObjects: TScreenObjectEditCollection; SetAll, ClearAll: boolean); override;