[lazarus] Patch to TCustomNotebook

[Júnior Gonçalves]

Patch to Issue 0001903:
In customnotebook.inc, procedure ShowCurrentPage:

procedure TCustomNotebook.ShowCurrentPage;
begin
  if (FPageIndex >= 0) and (FPageIndex < PageCount) then
    begin
      Page[FPageIndex].Visible := true;
      If IsVisible=True then SetFocus;
    end;
end;

Júnior Gonçalves.

---

Yahoo! Acesso Grátis
Internet rápida e grátis. Instale o discador agora!