paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 11:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ IInterfaceList added

Browse Source
This commit is contained in:
florian 2002-07-15 18:35:04 +00:00
parent c3f4220f3b
commit de6026e309
1 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
fcl/inc/classesh.inc
View File

@ -103,7 +103,7 @@ type
TShiftState = set of (ssShift, ssAlt, ssCtrl,
ssLeft, ssRight, ssMiddle, ssDouble,
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum,
ssScroll,ssTriple,ssQuad);
THelpContext = -MaxLongint..MaxLongint;
@ -1293,6 +1293,31 @@ type
TActiveXRegType = (axrComponentOnly, axrIncludeDescendants);
{$ifdef HASINTF}
IInterfaceList = interface ['{285DEA8A-B865-11D1-AAA7-00C04FB17A72}']
function Get(i : Integer) : IUnknown;
function GetCapacity : Integer;
function GetCount : Integer;
procedure Put(i : Integer;item : IUnknown);
procedure SetCapacity(NewCapacity : Integer);
procedure SetCount(NewCount : Integer);
procedure Clear;
procedure Delete(index : Integer);
procedure Exchange(index1,index2 : Integer);
function First : IUnknown;
function IndexOf(item : IUnknown) : Integer;
function Add(item : IUnknown) : Integer;
procedure Insert(i : Integer;item : IUnknown);
function Last : IUnknown;
function Remove(item : IUnknown): Integer;
procedure Lock;
procedure Unlock;
property Capacity : Integer read GetCapacity write SetCapacity;
property Count : Integer read GetCount write SetCount;
property Items[index : Integer] : IUnknown read Get write Put;default;
end;
{$endif HASINTF}
var
RegisterComponentsProc: procedure(const Page: string;
ComponentClasses: array of TComponentClass);
@ -1390,7 +1415,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{
$Log$
Revision 1.19 2002-03-28 12:08:47 michael
Revision 1.20 2002-07-15 18:35:04 florian
+ IInterfaceList added
Revision 1.19 2002/03/28 12:08:47 michael
+ Added sstriple and ssquad in shiftstate
Revision 1.18 2002/01/06 21:54:49 peter