blob: 4f1172544d45dda345bcb886139777c710d892d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ %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.
|
