paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 11:05:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tconnectevent added to comobj

Browse Source 
git-svn-id: trunk@16673 -
This commit is contained in:
marco 2010-12-31 15:50:19 +00:00
parent fc33a2542b
commit dbb2a44286
1 changed files with 4 additions and 0 deletions

4
packages/winunits-base/src/comobj.pp
View File

@ -28,6 +28,10 @@ unit comobj;
type
EOleError = class(Exception);
// apparantly used by axctrls.
// http://lazarus.freepascal.org/index.php/topic,11612.0.html
TConnectEvent = procedure(const Sink: IUnknown; Connecting: Boolean) of object;
EOleSysError = class(EOleError)
private