paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 08:49:25 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -29,6 +29,10 @@ unit comobj;
type type
EOleError = class(Exception); 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) EOleSysError = class(EOleError)
private private
FErrorCode: HRESULT; FErrorCode: HRESULT;