mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-28 09:02:48 +02:00
7bd498e426
Fixed bug #21326 - PgUp PgDown etc didn't do anything. Now up, down left, right, space, return, pgup and pgdown are handled. git-svn-id: trunk@40505 -
44 lines
610 B
ObjectPascal
44 lines
610 B
ObjectPascal
unit IpHtmlTabList;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
|
|
{ TIpHtmlTabList }
|
|
|
|
TIpHtmlTabList = class(TFPList)
|
|
private
|
|
FIndex: Integer;
|
|
function GetTabItem: TObject;
|
|
public
|
|
constructor Create;
|
|
property Index: Integer read FIndex write FIndex;
|
|
property TabItem: TObject read GetTabItem;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TIpHtmlTabList }
|
|
|
|
function TIpHtmlTabList.GetTabItem: TObject;
|
|
begin
|
|
if FIndex = -1 then
|
|
Exit(nil)
|
|
else
|
|
Result := TObject(Items[FIndex]);
|
|
end;
|
|
|
|
constructor TIpHtmlTabList.Create;
|
|
begin
|
|
Inherited Create;
|
|
FIndex:=-1;
|
|
end;
|
|
|
|
end.
|
|
|