09-18-2019, 02:08 PM
IW has a history running back over 20 years so I cant say why Font was not added in a base or given an interface, but it wasnt. As you've seen Font is introduced on various end classes.
Thus the way to do what you want is RTTI and dynamically check for the Font properties.
Delphi since 2006 or so has Extended RTTI which is a bit easier to work with. It works from C++ builder as well.
17 uses RTTI extensively.
A small snippet:
function T17Reflector.GetProperty(aObj: TPersistent; const aName: string): TRttiInstanceProperty;
begin
Result := _Context.GetType(aObj.ClassType).GetProperty(aName) as TRttiInstanceProperty;
end;
Thus the way to do what you want is RTTI and dynamically check for the Font properties.
Delphi since 2006 or so has Extended RTTI which is a bit easier to work with. It works from C++ builder as well.
17 uses RTTI extensively.
A small snippet:
function T17Reflector.GetProperty(aObj: TPersistent; const aName: string): TRttiInstanceProperty;
begin
Result := _Context.GetType(aObj.ClassType).GetProperty(aName) as TRttiInstanceProperty;
end;