TCustomPropertyLink

type TCustomPropertyLink = class(TPersistent)

protected

  function GetCanModify; virtual;

  procedure EditorChanged; virtual;

  procedure SetPropertyEditor(); virtual;

  function CheckPropInfo(); virtual;

  procedure CreateHook; virtual;

  procedure UpdateIdleHandler; virtual;

  procedure OnApplicationIdle(); virtual;

  procedure Notification(); virtual;

  procedure GetEditorValues(); virtual;

public

  constructor Create();

  destructor Destroy; override;

  procedure Assign(); override;

  procedure SetObjectAndProperty();

  procedure InvalidateEditor; virtual;

  procedure CreateEditor; virtual;

  procedure FetchValues; virtual;

  procedure LoadFromProperty; virtual;

  procedure SaveToProperty; virtual;

  procedure EditingDone; virtual;

  procedure SetAsText();

  function GetAsText;

  procedure SetAsInt();

  function GetAsInt;

  function CheckBeforeWrite;

  procedure CheckAfterWrite;

  procedure DoError(); virtual;

  procedure MapValues();

  procedure MapCollectedValues();

  procedure AssignCollectedAliasValuesTo();

  function HasAliasValues;

  procedure BuildEnumAliasValues();

  procedure AssignSetEnumsAliasTo();

  function GetSetElementValue();

  procedure SetSetElementValue();

  function GetIndexOfSetElement();

  function GetSetTypeData();

  property AliasValues: TAliasStrings; [r]

  property CanModify: Boolean; [r]

  property CollectedValues: TStrings; [rw]

  property CollectValues: Boolean; [rw]

  property Editor: TPropertyEditor; [rw]

  property Filter: TTypeKinds; [rw]

  property Hook: TPropertyEditorHook; [r]

  property LinkNotifier: TPropertyLinkNotifier; [r]

  property OnEditorChanged: TNotifyEvent; [rw]

  property OnLoadFromProperty: TNotifyEvent; [rw]

  property OnSaveToProperty: TNotifyEvent; [rw]

  property OnBeforeWrite: TBeforeWriteProperty; [rw]

  property OnAfterWrite: TNotifyEvent; [rw]

  property OnTestEditing: TTestEditing; [rw]

  property OnTestEditor: TPropertyEditorFilterFunc; [rw]

  property Options: TPropertyLinkOptions; [rw]

  property Owner: TComponent; [r]

  property SaveEnabled: Boolean; [rw]

  property PropertyLoaded: Boolean; [rw]

  property TIObject: TPersistent; [rw]

  property TIPropertyName: string; [rw]

  property TIElementName: string; [rw]

end;

TCustomPropertyLink

TObject