Description | Hierarchy | Fields | Methods | Properties |
type TframeLocationMethod = class(TFrame)
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; |
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); |
property OnChange: TNotifyEvent read FOnChange write FOnChange; |
|
property Changing: Boolean read FChanging write FChanging; |
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; |
|
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); |
|
property OnChange: TNotifyEvent read FOnChange write FOnChange; |
|
Private declarations |
property Changing: Boolean read FChanging write FChanging; |
|