Class TframeSutraBoundary

Unit

frameSutraBoundaryUnit

Declaration

type TframeSutraBoundary = class(TframeCustomSutraFeature)

Description

Hierarchy

• TFrame
• TframeCustomSutraFeature
• TframeSutraBoundary

Overview

Fields

	pnlEditGrid: TPanel;
	lblFormula: TLabel;
	rdeFormula: TRbwDataEntry;
	FInitialTime: Double;
	FBoundaryType: TSutraBoundaryType;
	FBoundariesTheSame: Boolean;

Methods

	procedure edNameChange(Sender: TObject);
	procedure seNumberOfTimesChange(Sender: TObject);
	procedure comboScheduleChange(Sender: TObject);
	procedure edNameExit(Sender: TObject);
	procedure rdgSutraFeatureColSize(Sender: TObject; ACol, PriorWidth: Integer);
	procedure rdgSutraFeatureHorizontalScroll(Sender: TObject);
	procedure rdgSutraFeatureMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure rdeFormulaChange(Sender: TObject);
	procedure rdgSutraFeatureSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure rdgSutraFeatureBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);
	procedure rdgSutraFeatureEndUpdate(Sender: TObject);
	procedure btnDeleteClick(Sender: TObject);
	procedure btnInsertClick(Sender: TObject);
	procedure GetScheduleName(BoundaryList: TSutraBoundaryList);
	procedure ClearBoundaries;
	procedure DisplayBoundaries(BoundColl: TCustomSutraBoundaryCollection);
	procedure SetBoundaryType(const Value: TSutraBoundaryType);
	procedure InitializeColumnHeadings;
	procedure GetBoundaryValues(BoundaryList: TSutraBoundaryList);
	procedure SetBoundaryValues(BoundValues: TCustomSutraBoundaryCollection);
	procedure AdjustBoundaryValues(SutraValues: TCustomSutraBoundaryCollection);
	procedure LayoutMultiEditControls;
	function GetValidTime(ACol, ARow: integer): Boolean;
	procedure UpdateColWidths;
	procedure GetData(ScreenObjects: TScreenObjectEditCollection); override;
	procedure SetData(ScreenObjects: TScreenObjectEditCollection; SetAll, ClearAll: boolean); override;

Properties

property BoundaryType: TSutraBoundaryType read FBoundaryType write SetBoundaryType;

Description

Fields

	pnlEditGrid: TPanel;

	lblFormula: TLabel;

	rdeFormula: TRbwDataEntry;

	FInitialTime: Double;

	FBoundaryType: TSutraBoundaryType;

	FBoundariesTheSame: Boolean;

Methods

	procedure edNameChange(Sender: TObject);

	procedure seNumberOfTimesChange(Sender: TObject);

	procedure comboScheduleChange(Sender: TObject);

	procedure edNameExit(Sender: TObject);

	procedure rdgSutraFeatureColSize(Sender: TObject; ACol, PriorWidth: Integer);

	procedure rdgSutraFeatureHorizontalScroll(Sender: TObject);

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

	procedure rdeFormulaChange(Sender: TObject);

	procedure rdgSutraFeatureSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);

	procedure rdgSutraFeatureBeforeDrawCell(Sender: TObject; ACol, ARow: Integer);

	procedure rdgSutraFeatureEndUpdate(Sender: TObject);

	procedure btnDeleteClick(Sender: TObject);

	procedure btnInsertClick(Sender: TObject);

	procedure GetScheduleName(BoundaryList: TSutraBoundaryList);

	procedure ClearBoundaries;

	procedure DisplayBoundaries(BoundColl: TCustomSutraBoundaryCollection);

	procedure SetBoundaryType(const Value: TSutraBoundaryType);

	procedure InitializeColumnHeadings;

	procedure GetBoundaryValues(BoundaryList: TSutraBoundaryList);

	procedure SetBoundaryValues(BoundValues: TCustomSutraBoundaryCollection);

	procedure AdjustBoundaryValues(SutraValues: TCustomSutraBoundaryCollection);

	procedure LayoutMultiEditControls;

	function GetValidTime(ACol, ARow: integer): Boolean;

	procedure UpdateColWidths;

	procedure GetData(ScreenObjects: TScreenObjectEditCollection); override;

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

Properties

	property BoundaryType: TSutraBoundaryType read FBoundaryType write SetBoundaryType;
Private declarations