paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 10:47:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: WidgetSet: fix VMT parent class entry for FPC changes r34171 #7571057b7d-r34179. Issue #30407

Browse Source 
git-svn-id: trunk@52744 -
This commit is contained in:
ondrej 2016-07-24 12:28:50 +00:00
parent bd6876da17
commit e14417c1f8
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/widgetset/wslclclasses.pp
View File

@ -381,7 +381,11 @@ procedure RegisterWSComponent(const AComponent: TComponentClass;
ANode^.VClassName := '(V)' + ANode^.WSClass.ClassName;
PPointer(ANode^.VClass + vmtClassName)^ := @ANode^.VClassName;
// Adjust classparent
{$IF (FPC_FULLVERSION >= 30101)}
PPointer(ANode^.VClass + vmtParent)^ := @ParentWSNode^.WSClass;
{$ELSE}
PPointer(ANode^.VClass + vmtParent)^ := ParentWSNode^.WSClass;
{$ENDIF}
// Delete methodtable entry
PPointer(ANode^.VClass + vmtMethodTable)^ := nil;
end;