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

- fixed little bug in WS component reregistration (with new private)

Browse Source 
git-svn-id: trunk@11213 -
This commit is contained in:
paul 2007-05-29 09:11:34 +00:00
parent 1eff85d939
commit 469c195b08
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/widgetset/wslclclasses.pp
View File

@ -243,9 +243,10 @@ procedure RegisterWSComponent(const AComponent: TComponentClass;
end
else begin
// keep original WSPrivate (only when different than default class)
if (PClass(ANode^.VClass + vmtWSPrivate)^ <> nil)
and (PClass(ANode^.VClass + vmtWSPrivate)^ <> TWSPrivate)
then WSPrivate := PClass(ANode^.VClass + vmtWSPrivate)^;
if (AWSPrivate = nil) and
(PClass(ANode^.VClass + vmtWSPrivate)^ <> nil) and
(PClass(ANode^.VClass + vmtWSPrivate)^ <> TWSPrivate) then
WSPrivate := PClass(ANode^.VClass + vmtWSPrivate)^;
end;
// Initially copy the WSClass