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

lcl: formatting

Browse Source 
git-svn-id: trunk@20769 -
This commit is contained in:
paul 2009-06-30 11:58:06 +00:00
parent b3be50f764
commit dcc7044d85
2 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customnotebook.inc
View File

@ -478,7 +478,8 @@ begin
UpdateDesignerFlags(Index);
if HandleAllocated and (not (csLoading in ComponentState)) then begin
if HandleAllocated and (not (csLoading in ComponentState)) then
begin
AddRemovePageHandle(APage);
if PageIndex = Index then
DoSendPageIndex;

5
lcl/include/custompage.inc
View File

@ -243,7 +243,8 @@ var
List: TList;
i: Integer;
begin
if (Parent<>nil) and (Parent is TCustomNotebook) then begin
if (Parent <> nil) and (Parent is TCustomNotebook) then
begin
Result := 0;
List := TCustomNotebook(Parent).PageList;
i := 0;
@ -253,7 +254,7 @@ begin
if TCustomPage(List[i]).TabVisible or (csDesigning in ComponentState)
then inc(Result);
inc(i);
until false;
until False;
end else
Result := -1;
end;