paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Adds the skeleton of the missing method IndexOfTabAt

Browse Source 
git-svn-id: trunk@31780 -
This commit is contained in:
sekelsenmat 2011-07-22 11:31:15 +00:00
parent fa6d9fafc4
commit f49a57bd08
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/comctrls.pp
View File

@ -414,6 +414,7 @@ type
function GetCapabilities: TNoteBookCapabilities; virtual;
function TabToPageIndex(AIndex: integer): integer;
function PageToTabIndex(AIndex: integer): integer;
function IndexOfTabAt(X, Y: Integer): Integer;
public
procedure DoCloseTabClicked(APage: TCustomPage); virtual;
property Images: TImageList read FImages write SetImages;

5
lcl/include/customnotebook.inc
View File

@ -391,6 +391,11 @@ begin
end;
end;
function TCustomTabControl.IndexOfTabAt(X, Y: Integer): Integer;
begin
Result := TWSCustomTabControlClass(WidgetSetClass).IndexOfTabAt(X, Y);
end;
function TCustomTabControl.TabToPageIndex(AIndex: integer): integer;
var
I: integer;

6
lcl/widgetset/wscomctrls.pp
View File

@ -77,6 +77,7 @@ 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;
@ -386,6 +387,11 @@ 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);