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

fix notebook page out of bounds while destroying

Browse Source 
git-svn-id: trunk@4902 -
This commit is contained in:
micha 2003-12-18 10:59:51 +00:00
parent 1fa2d86980
commit 2fff46c571
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/interfaces/win32/win32object.inc
View File

@ -881,6 +881,7 @@ activate_time : the time at which the activation event occurred.
And ((Parent As TCustomNotebook).CustomPage(Page).HandleAllocated)
then ShowWindow(TCustomNotebook(Parent).CustomPage(Page).Handle, SW_SHOW);
if (OldPageIndex>=0) and (OldPageIndex<>Page)
and (OldPageIndex < TCustomNotebook(Parent).PageList.Count)
and (TCustomNotebook(Parent).CustomPage(OldPageIndex).HandleAllocated)
then ShowWindow(TCustomNotebook(Parent).CustomPage(OldPageIndex).Handle, SW_HIDE);
end;
@ -2887,6 +2888,9 @@ End;
{
$Log$
Revision 1.146 2003/12/18 10:59:51 micha
fix notebook page out of bounds while destroying
Revision 1.145 2003/12/18 10:27:26 micha
fix fpc 1.9.x compile, limittext, mem free