mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:28:00 +02:00
16 lines
478 B
ObjectPascal
16 lines
478 B
ObjectPascal
{$mode delphi}
|
|
type
|
|
IGUserData = interface(IInvokable)
|
|
['{35377B66-6B1B-11D9-8827-00055DDDEA00}']
|
|
(* userdata *)
|
|
function GetUserData(key: UTF8String): IInterface;
|
|
procedure SetUserData(key: UTF8String; const v: IInterface);
|
|
|
|
function GetUserDataVariant(key: UTF8String): Variant;
|
|
procedure SetUserDataVariant(key: UTF8String; const v: Variant);
|
|
|
|
property UserData[key: UTF8String]: IInterface read GetUserData write SetUserData;
|
|
end;
|
|
begin
|
|
end.
|