TTitanScriptObject

type TTitanScriptObject = class(TPersistent)

public

  PropertyList: TTitanPropertyList;

  ClassRec: TTitanClassRec;

  HasFordiddenProperties: Boolean;

  function GetClassDef;

  Instance: TObject;

  PClass: TClass;

  RefCount: Integer;

  IsClass: Boolean;

  Intf: IUnknown;

  PIntf: PUnknown;

  ExtraPtr: Pointer;

  ExtraPtrSize: Integer;

  ExternalExtraPtr: Boolean;

  ThreadID: Cardinal;

  _ObjCount: Int64;

  constructor Create(); virtual;

  destructor Destroy; override;

  function HasProperty(); virtual;

  function Get();

  function SafeGet(); virtual;

  function Put();

  function GetAddress();

  procedure ClearProperty();

  function GetProperty(); virtual;

  procedure PutProperty(); virtual;

  function GetDefaultProperty();

  procedure PutDefaultProperty();

  function CreateProperty();

  procedure PutPublishedProperty();

  function GetPublishedProperty();

  function HasPublishedProperty();

  function Duplicate;

  function ToString; virtual;

  function Scripter;

  function IsImported;

  function DefaultValue; virtual;

  function GetPropertyName(); virtual;

  function ExtraInstance; virtual;

  procedure CallAutoDestructor;

  procedure SetDefaultValue(); virtual;

  procedure FreeExtraPtr;

  property ClassDef: TTitanClassDefinition; [r]

end;

TTitanScriptObject

TObject