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

lcl: DoSendPageIndex should set LastChangePageIndex for correct page reporting on page show/hide

Browse Source 
git-svn-id: trunk@25419 -
This commit is contained in:
paul 2010-05-15 12:48:30 +00:00
parent 7faf34fbcc
commit c66dfcc85c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customnotebook.inc
View File

@ -395,9 +395,9 @@ end;
function TCustomNotebook.GetActivePageComponent: TCustomPage;
begin
if (FPageIndex >= 0) and (FPageIndex < PageCount) then
Result:=Page[FPageIndex]
Result := Page[FPageIndex]
else
Result:=nil;
Result := nil;
end;
{------------------------------------------------------------------------------
@ -937,6 +937,7 @@ begin
//DebugLn('[TCustomNotebook.DoSendPageIndex] B ',dbgsName(Self),' PageIndex=',dbgs(fPageIndex));
{$ENDIF}
ShowCurrentPage;
FPageIndexOnLastChange := FPageIndex;
TWSCustomNotebookClass(WidgetSetClass).SetPageIndex(Self, FPageIndex);
{$IFDEF NOTEBOOK_DEBUG}
//DebugLn('[TCustomNotebook.DoSendPageIndex] END ',dbgs(FPageIndex));