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

Finishes fixing IndexOfTabAt

Browse Source 
git-svn-id: trunk@31781 -
This commit is contained in:
sekelsenmat 2011-07-22 11:34:43 +00:00
parent f49a57bd08
commit 2214a142af
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customnotebook.inc
View File

@ -393,7 +393,7 @@ end;
function TCustomTabControl.IndexOfTabAt(X, Y: Integer): Integer;
begin
Result := TWSCustomTabControlClass(WidgetSetClass).IndexOfTabAt(X, Y);
Result := TabIndexAtClientPos(Point(X, Y));
end;
function TCustomTabControl.TabToPageIndex(AIndex: integer): integer;

6
lcl/widgetset/wscomctrls.pp
View File

@ -77,7 +77,6 @@ type
class procedure SetTabPosition(const ATabControl: TCustomTabControl; const ATabPosition: TTabPosition); virtual;
class procedure ShowTabs(const ATabControl: TCustomTabControl; AShowTabs: boolean); virtual;
class procedure UpdateProperties(const ATabControl: TCustomTabControl); virtual;
class function IndexOfTabAt(const X, Y: Integer): Integer; virtual;
end;
TWSCustomTabControlClass = class of TWSCustomTabControl;
@ -387,11 +386,6 @@ begin
end;
class function TWSCustomTabControl.IndexOfTabAt(const X, Y: Integer): Integer;
begin
Result := -1;
end;
{ TWSStatusBar }
class procedure TWSStatusBar.PanelUpdate(const AStatusBar: TStatusBar; PanelIndex: integer);