FakeInheritance -
GetBoolProperty -
GetOrdProperty -
GetProperty - AnyProps = [succ(low(TTypeKind)).
GetStringProperty -
HasProperty -
SetProperty -
AnyProps
BoolProp
ClassProp
FloatProps
OrdProps
StringProps
procedure FakeInheritance(Instance: TObject; FakeClassParent: TClass);
function GetBoolProperty( Instance : TPersistent;
const PropName : string;
var Value : boolean) : boolean;
function GetOrdProperty( Instance : TPersistent;
const PropName : string;
PropKind : TTypeKind;
var Value : Longint) : boolean;
function GetProperty( Instance : TPersistent;
const PropName : string;
PropKinds: TTypeKinds;
var Value : variant) : boolean;
AnyProps = [succ(low(TTypeKind))..High(TTypeKind)]; <-- this caused some strange compiler error} {$IFNDEF VER80
function GetStringProperty( Instance : TPersistent;
const PropName : string;
var Value : string) : boolean;
function HasProperty( Instance : TObject;
const PropName : string;
PropKind : TTypeKinds;
var PropInfo : PPropInfo) : boolean;
function SetProperty( Instance : TPersistent;
const PropName : string;
PropKinds: TTypeKinds;
Value : variant) : boolean;
AnyProps = [low(TTypeKind)..High(TTypeKind)] - [low(TTypeKind)]
BoolProp = [tkEnumeration]
ClassProp = [tkClass]
FloatProps = [tkFloat]
OrdProps = [tkInteger, tkChar, tkEnumeration, tkSet, tkClass]
StringProps = [tkString, tkLString ]
****************************************************************************
some internal Utility routines
******************************************************************************) {$I dnInc.INC