TD2Control

type TD2Control = class(TD2VisualObject)

protected

  FResourceLink: TD2Object;

  FNeedResource: Boolean;

  FBindingObjects: TList;

  FBindingSource: TD2Control;

  FAutoTranslate: Boolean;

  FActionLink: TD2ControlActionLink;

  FHelpType: THelpType;

  FHelpKeyword: string;

  FHelpContext: THelpContext;

  function IsHelpContextStored;

  procedure SetHelpContext();

  procedure SetHelpKeyword();

  function GetAction; virtual;

  procedure SetAction();

  procedure DoActionChange();

  procedure ActionChange(); virtual;

  procedure InitiateAction; virtual;

  procedure Notification(); override;

  procedure Loaded; override;

  procedure ApplyStyle; virtual;

  procedure FreeStyle; virtual;

  procedure EnterFocus; override;

  procedure BeforePaint; override;

  function GetResourceObject;

  procedure SetData(); override;

  procedure ToBindingObjects;

  procedure AddBindingObject();

  procedure RemoveBindingObject();

public

  FResource: string;

  constructor Create(); override;

  destructor Destroy; override;

  function FindResource(); override;

  procedure Paint; override;

  procedure ApplyResource; override;

  procedure UpdateResource; override;

  property BindingSource: TD2Control; [rw]

  property AutoTranslate: Boolean; [rw]

  property Action: TBasicAction; [rw]

published

  property HelpType: THelpType; [rw]

  property HelpKeyword: string; [rws]

  property HelpContext: THelpContext; [rws]

  property Resource: string; [rw]

  property TabOrder: TTabOrder;

end;

TD2Control

TD2VisualObject

TD2Object

TObject