paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 13:39:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

widgetset: fix ClassParent for TWSClass

Browse Source 
git-svn-id: trunk@12496 -
This commit is contained in:
paul 2007-10-16 23:16:33 +00:00
parent e4a0241fcb
commit b9fbf093e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/widgetset/wslclclasses.pp
View File

@ -356,7 +356,7 @@ procedure RegisterWSComponent(const AComponent: TComponentClass;
ANode^.VClassName := '(V)' + ANode^.WSClass.ClassName;
PPointer(ANode^.VClass + vmtClassName)^ := @ANode^.VClassName;
// Adjust classparent
PPointer(ANode^.VClass + vmtParent)^ := PPointer(Pointer(ParentWSNode^.WSClass) + vmtParent)^;
PPointer(ANode^.VClass + vmtParent)^ := ParentWSNode^.WSClass;
// Delete methodtable entry
PPointer(ANode^.VClass + vmtMethodTable)^ := nil;
end;