Class TframeLocationMethod

Unit

frameLocationMethodUnit

Declaration

type TframeLocationMethod = class(TFrame)

Description

Hierarchy

• TFrame
• TframeLocationMethod

Overview

Fields

	lblLocationMethod: TLabel;
	pcLocationChoice: TJvPageControl;
	tabNone: TTabSheet;
	tabObject: TTabSheet;
	comboObject: TComboBox;
	tabLocation: TTabSheet;
	lblX: TLabel;
	lblY: TLabel;
	lblZ: TLabel;
	rdeX: TRbwDataEntry;
	rdeY: TRbwDataEntry;
	rdeZ: TRbwDataEntry;
	tabCell: TTabSheet;
	lblCol: TLabel;
	lblRow: TLabel;
	lblLay: TLabel;
	rdeLay: TRbwDataEntry;
	rdeRow: TRbwDataEntry;
	rdeCol: TRbwDataEntry;
	comboLocationChoice: TJvImageComboBox;
	FOnChange: TNotifyEvent;
	FChanging: Boolean;

Methods

	procedure comboLocationChoiceChange(Sender: TObject);
	procedure ControlChange(Sender: TObject);
	procedure Changed;
	procedure InitializeControls(var TargetObjects: TStringList);
	procedure FillListWithMnwBoundaries(ScreenObjectList: TScreenObjectEditCollection; LocalList: TList);
	function GetEnabled: boolean; override;
	procedure SetEnabled(Value: boolean); override;
	procedure GetData(ScreenObjectList: TScreenObjectEditCollection);
	procedure SetData(List: TScreenObjectEditCollection; SetAll, ClearAll: boolean);

Properties

	property OnChange: TNotifyEvent read FOnChange write FOnChange;
	property Changing: Boolean read FChanging write FChanging;

Description

Fields

	lblLocationMethod: TLabel;

	pcLocationChoice: TJvPageControl;

	tabNone: TTabSheet;

	tabObject: TTabSheet;

	comboObject: TComboBox;

	tabLocation: TTabSheet;

	lblX: TLabel;

	lblY: TLabel;

	lblZ: TLabel;

	rdeX: TRbwDataEntry;

	rdeY: TRbwDataEntry;

	rdeZ: TRbwDataEntry;

	tabCell: TTabSheet;

	lblCol: TLabel;

	lblRow: TLabel;

	lblLay: TLabel;

	rdeLay: TRbwDataEntry;

	rdeRow: TRbwDataEntry;

	rdeCol: TRbwDataEntry;

	comboLocationChoice: TJvImageComboBox;

	FOnChange: TNotifyEvent;

	FChanging: Boolean;

Methods

	procedure comboLocationChoiceChange(Sender: TObject);

	procedure ControlChange(Sender: TObject);

	procedure Changed;

	procedure InitializeControls(var TargetObjects: TStringList);

	procedure FillListWithMnwBoundaries(ScreenObjectList: TScreenObjectEditCollection; LocalList: TList);

	function GetEnabled: boolean; override;

	procedure SetEnabled(Value: boolean); override;

	procedure GetData(ScreenObjectList: TScreenObjectEditCollection);

	procedure SetData(List: TScreenObjectEditCollection; SetAll, ClearAll: boolean);

Properties

	property OnChange: TNotifyEvent read FOnChange write FOnChange;
Private declarations

	property Changing: Boolean read FChanging write FChanging;