TJointLayers = class(TPersistent)
private
...(removed for brevity)
protected
procedure Changed;
procedure AssignTo(Dest: TPersistent); override;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
public
constructor Create(AOwner: TComponent);
destructor Destroy; override;
procedure Assign(Source: TPersistent);
procedure ResetComp;
published
property L01xControlledBy: integer index 1
read GetControlledLayerX write SetControlledLayerX;
property L01yControlledBy: integer index 1
read GetControlledLayerY write SetControlledLayerY;
property L02xControlledBy: integer index 2
read GetControlledLayerX write SetControlledLayerX;
property L02yControlledBy: integer index 2
read GetControlledLayerY write SetControlledLayerY;
{$IFDEF PAIDVERS}
property L03xControlledBy: integer index 3
read GetControlledLayerX write SetControlledLayerX;
property L03yControlledBy: integer index 3
read GetControlledLayerY write SetControlledLayerY;
...
...(removed for brevity)
...
property L16xControlledBy: integer index 16
read GetControlledLayerX write SetControlledLayerX;
property L16yControlledBy: integer index 16
read GetControlledLayerY write SetControlledLayerY;
{$ENDIF}
end;
|