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

* TAutoObject.GetTypeInfo function should return DispTypeInfo instead of ClassInfo. Fix by Korba812. Fixes Eventsinks for openoffice.

Browse Source 
https://forum.lazarus.freepascal.org/index.php/topic,68806.0/topicseen.html
This commit is contained in:
marcoonthegit 2025-01-04 18:33:30 +01:00
parent 90c03c7e70
commit ac510d391f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1862,7 +1862,7 @@ HKCR
Result := DISP_E_BADINDEX
else
begin
ITypeInfo(TypeInfo) := TAutoObjectFactory(Factory).ClassInfo;
ITypeInfo(TypeInfo) := TAutoObjectFactory(Factory).DispTypeInfo;
Result := S_OK;
end;
end;