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

fixed typo in TPageControl.FindNextPage caused SIGSEGV (report 0007302)

Browse Source 
git-svn-id: trunk@10971 -
This commit is contained in:
paul 2007-04-19 07:50:43 +00:00
parent 5bb7426696
commit a9aeafd85d
1 changed files with 20 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lcl/include/pagecontrol.inc
View File

@ -69,28 +69,34 @@ function TPageControl.FindNextPage(CurPage: TTabSheet; GoForward,
var
I, StartIndex: Integer;
begin
Result:=nil;
if PageCount=0 then exit;
StartIndex:=IndexOf(CurPage);
if StartIndex<0 then
Result := nil;
if PageCount = 0 then
exit;
StartIndex := IndexOf(CurPage);
if StartIndex < 0 then
if GoForward then
StartIndex:=PageCount-1
StartIndex := PageCount - 1
else
StartIndex:=0;
i:=StartIndex;
StartIndex := 0;
i := StartIndex;
repeat
if GoForward then begin
if GoForward then
begin
Inc(i);
if i=PageCount then i:=0;
end else begin
if i=0 then i:=PageCount;
if i = PageCount then
i := 0;
end else
begin
if i = 0 then
i := PageCount;
Dec(I);
end;
if not CheckTabVisible or Result.TabVisible then begin
Result:=Pages[i];
if not CheckTabVisible or Pages[i].TabVisible then
begin
Result := Pages[i];
exit;
end;
until i=StartIndex;
until i = StartIndex;
end;
procedure TPageControl.SelectNextPage(GoForward: Boolean);