[Lazarus] Fix for bug in TTabcontrol/TPageControl/TNotebook

Vincent Snijders vincent.snijders at gmail.com
Wed Nov 5 10:23:54 CET 2008


2008/11/4 Michael Van Canneyt <michael at freepascal.org>:
>
> Hi,
>
> The TNBPages(TStrings) class does not implement the GetObect and PutObject
> calls of TStrings correctly.
>
> That is, If I do a
>  MyNoteBook.Pages.AddObject('SomeString',SomeObject);
>
> the SomeObject is simply lost. (logical, PutObject is not implemented)
> Instead, the MyNoteBook.Pages.Objects returns a reference to the
> TCustomPage used by the notebook. This is of course horribly wrong :(
>
> It's easy enough to fix this by correctly implementing TNBPages.PutObject
> and fixing TNBPages.GetObject. I can do this, but before I do this, I would
> like to know if there is LCL code that relies on the fact that
> Pages.Objects return references to the actual TCustomPage instances ?

I don't know. A quick scan indicates that this is not the case.

Vincent



More information about the Lazarus mailing list