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

lcl: allow TabStop for notebook (bug #0012959)

Browse Source 
git-svn-id: trunk@18267 -
This commit is contained in:
paul 2009-01-13 07:15:14 +00:00
parent 10ad596863
commit 542c7d66c3
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -201,7 +201,6 @@ type
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
function TabIndexAtClientPos(ClientPos: TPoint): integer;
function CanTab: boolean; override;
function GetImageIndex(ThePageIndex: Integer): Integer; virtual;
function IndexOf(APage: TCustomPage): integer;
function CustomPage(Index: integer): TCustomPage;

5
lcl/include/customnotebook.inc
View File

@ -300,11 +300,6 @@ begin
Result:=-1;
end;
function TCustomNotebook.CanTab: boolean;
begin
Result:=false;
end;
function TCustomNotebook.GetImageIndex(ThePageIndex: Integer): Integer;
var
APage: TCustomPage;