Class TframeCustomCellObservation

Unit

frameCustomCellObservationUnit

Declaration

type TframeCustomCellObservation = class(TFrame)

Description

Hierarchy

• TFrame
• TframeCustomCellObservation

Overview

Fields

	pcData: TJvPageControl;
	tabTimes: TTabSheet;
	Panel5: TPanel;
	rdeMultiValueEdit: TRbwDataEntry;
	Panel2: TPanel;
	lblNumberOfTimes: TLabel;
	seTimes: TJvSpinEdit;
	btnDeleteValue: TButton;
	btnInsertValue: TButton;
	rdgObservations: TRbwDataGrid4;
	tabLayers: TTabSheet;
	Panel4: TPanel;
	lblNumberOfLayers: TLabel;
	seLayers: TJvSpinEdit;
	btnDeleteLayer: TButton;
	btnInsertLayer: TButton;
	Panel6: TPanel;
	rdeMultiLayerEdit: TRbwDataEntry;
	rdgLayers: TRbwDataGrid4;
	pnlCaption: TPanel;
	pnlName: TPanel;
	lblTreatment: TLabel;
	edObsName: TLabeledEdit;
	comboTreatment: TComboBox;
	FDeletingTime: Boolean;
	FDeletingLayer: Boolean;
	FChanged: Boolean;
	FLayerCountChanged: Boolean;
	FTimesCountChanged: Boolean;

Methods

	procedure edObsNameChange(Sender: TObject);
	procedure edObsNameExit(Sender: TObject);
	procedure comboTreatmentChange(Sender: TObject); virtual;
	procedure seTimesChange(Sender: TObject); virtual;
	procedure btnDeleteValueClick(Sender: TObject);
	procedure btnInsertValueClick(Sender: TObject);
	procedure rdgObservationsColSize(Sender: TObject; ACol, PriorWidth: Integer);
	procedure rdgObservationsExit(Sender: TObject);
	procedure rdgObservationsHorizontalScroll(Sender: TObject);
	procedure rdgObservationsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); virtual;
	procedure rdgObservationsSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure rdeMultiLayerEditChange(Sender: TObject);
	procedure seLayersChange(Sender: TObject);
	procedure btnDeleteLayerClick(Sender: TObject);
	procedure btnInsertLayerClick(Sender: TObject);
	procedure rdgLayersExit(Sender: TObject);
	procedure rdgLayersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
	procedure rdgLayersSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
	procedure FrameResize(Sender: TObject);
	procedure EnableMultiEditControl(Grid: TRbwDataGrid4; AControl: TControl; const StartCol, EndCol: integer);
	procedure DeleteSelectedRow(rdgGrid: TRbwDataGrid4; SpinEdit: TJvSpinEdit; DeleteButton: TButton);
	procedure UpdateSpinEdit(Grid: TRbwDataGrid4; SpinEdit: TJvSpinEdit);
	procedure InsertRow(Grid: TRbwDataGrid4; SpinEdit: TJvSpinEdit; DeleteButton: TButton);
	procedure EnableDeleteButton(DeleteButton: TButton; SpinEdit: TJvSpinEdit);
	procedure SetSpinCount(SpinEdit: TJvSpinEdit; Grid: TRbwDataGrid4);
	procedure AssignValuesToSelectedGridCells(const NewText: string; Grid: TRbwDataGrid4; const StartCol, EndCol: integer);
	procedure ClearGrid(Grid: TRbwDataGrid4);
	procedure LayoutMultiCellEditControls; virtual; abstract;
	procedure InitializeControls; virtual;

Description

Fields

	pcData: TJvPageControl;

	tabTimes: TTabSheet;

	Panel5: TPanel;

	rdeMultiValueEdit: TRbwDataEntry;

	Panel2: TPanel;

	lblNumberOfTimes: TLabel;

	seTimes: TJvSpinEdit;

	btnDeleteValue: TButton;

	btnInsertValue: TButton;

	rdgObservations: TRbwDataGrid4;

	tabLayers: TTabSheet;

	Panel4: TPanel;

	lblNumberOfLayers: TLabel;

	seLayers: TJvSpinEdit;

	btnDeleteLayer: TButton;

	btnInsertLayer: TButton;

	Panel6: TPanel;

	rdeMultiLayerEdit: TRbwDataEntry;

	rdgLayers: TRbwDataGrid4;

	pnlCaption: TPanel;

	pnlName: TPanel;

	lblTreatment: TLabel;

	edObsName: TLabeledEdit;

	comboTreatment: TComboBox;

	FDeletingTime: Boolean;

	FDeletingLayer: Boolean;

	FChanged: Boolean;
Private declarations

	FLayerCountChanged: Boolean;

	FTimesCountChanged: Boolean;

Methods

	procedure edObsNameChange(Sender: TObject);

	procedure edObsNameExit(Sender: TObject);

	procedure comboTreatmentChange(Sender: TObject); virtual;

	procedure seTimesChange(Sender: TObject); virtual;

	procedure btnDeleteValueClick(Sender: TObject);

	procedure btnInsertValueClick(Sender: TObject);

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

	procedure rdgObservationsExit(Sender: TObject);

	procedure rdgObservationsHorizontalScroll(Sender: TObject);

	procedure rdgObservationsSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); virtual;

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

	procedure rdeMultiLayerEditChange(Sender: TObject);

	procedure seLayersChange(Sender: TObject);

	procedure btnDeleteLayerClick(Sender: TObject);

	procedure btnInsertLayerClick(Sender: TObject);

	procedure rdgLayersExit(Sender: TObject);

	procedure rdgLayersSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);

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

	procedure FrameResize(Sender: TObject);

	procedure EnableMultiEditControl(Grid: TRbwDataGrid4; AControl: TControl; const StartCol, EndCol: integer);

	procedure DeleteSelectedRow(rdgGrid: TRbwDataGrid4; SpinEdit: TJvSpinEdit; DeleteButton: TButton);

	procedure UpdateSpinEdit(Grid: TRbwDataGrid4; SpinEdit: TJvSpinEdit);

	procedure InsertRow(Grid: TRbwDataGrid4; SpinEdit: TJvSpinEdit; DeleteButton: TButton);

	procedure EnableDeleteButton(DeleteButton: TButton; SpinEdit: TJvSpinEdit);

	procedure SetSpinCount(SpinEdit: TJvSpinEdit; Grid: TRbwDataGrid4);

	procedure AssignValuesToSelectedGridCells(const NewText: string; Grid: TRbwDataGrid4; const StartCol, EndCol: integer);

	procedure ClearGrid(Grid: TRbwDataGrid4);

	procedure LayoutMultiCellEditControls; virtual; abstract;

	procedure InitializeControls; virtual;
Public declarations