mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
17 lines
488 B
ObjectPascal
17 lines
488 B
ObjectPascal
{ %FAIL }
|
|
{$mode objfpc}
|
|
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.
|