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

notebook pageindex can be set to -1, if interface supports it

Browse Source 
git-svn-id: trunk@3699 -
This commit is contained in:
mattias 2002-12-16 09:17:20 +00:00
parent 4356dd7165
commit ca8385c210
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/customnotebook.inc
View File

@ -660,10 +660,6 @@ begin
if not HandleAllocated or (csLoading in ComponentState) then exit; if not HandleAllocated or (csLoading in ComponentState) then exit;
Msg.Parent := Self; Msg.Parent := Self;
Msg.fCompStyle := fCompStyle; Msg.fCompStyle := fCompStyle;
if (FPageIndex<0) and (PageCount>0) then begin
fPageIndex:=0;
UpdateAllDesignerFlags;
end;
Msg.Page := fPageIndex; Msg.Page := fPageIndex;
{$IFDEF NOTEBOOK_DEBUG} {$IFDEF NOTEBOOK_DEBUG}
writeln('[TCustomNotebook.DoSendPageIndex] A ',Name,' PageIndex=',fPageIndex); writeln('[TCustomNotebook.DoSendPageIndex] A ',Name,' PageIndex=',fPageIndex);
@ -736,6 +732,9 @@ end;}
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.29 2002/12/16 09:17:20 mattias
notebook pageindex can be set to -1, if interface supports it
Revision 1.28 2002/12/16 09:02:27 mattias Revision 1.28 2002/12/16 09:02:27 mattias
applied win32 notebook patch from Vincent applied win32 notebook patch from Vincent