paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

select last item when a page is selected, using tab to navigate will then be ablke te select all items

Browse Source
This commit is contained in:
peter 2004-12-18 16:19:35 +00:00
parent 270976180b
commit cc3523b554
1 changed files with 27 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fv/tabs.pas
View File

@ -42,6 +42,8 @@ type
destructor Done; virtual;
private
InDraw: boolean;
function FirstSelectable: PView;
function LastSelectable: PView;
end;
function NewTabItem(AView: PView; ANext: PTabItem): PTabItem;
@ -164,17 +166,8 @@ begin
end;
end;
procedure TTab.HandleEvent(var Event: TEvent);
var Index : integer;
I : integer;
X : integer;
Len : byte;
P : TPoint;
V : PView;
CallOrig: boolean;
LastV : PView;
FirstV: PView;
function FirstSelectable: PView;
function TTab.FirstSelectable: PView;
var
FV : PView;
begin
@ -185,7 +178,9 @@ begin
if (FV^.Options and ofSelectable)=0 then FV:=nil;
FirstSelectable:=FV;
end;
function LastSelectable: PView;
function TTab.LastSelectable: PView;
var
LV : PView;
begin
@ -196,6 +191,17 @@ begin
if (LV^.Options and ofSelectable)=0 then LV:=nil;
LastSelectable:=LV;
end;
procedure TTab.HandleEvent(var Event: TEvent);
var Index : integer;
I : integer;
X : integer;
Len : byte;
P : TPoint;
V : PView;
CallOrig: boolean;
LastV : PView;
FirstV: PView;
begin
if (Event.What and evMouseDown)<>0 then
begin
@ -487,9 +493,17 @@ end;
procedure TTab.SetState(AState: Word; Enable: Boolean);
var
LastV : PView;
begin
inherited SetState(AState,Enable);
if (AState and sfFocused)<>0 then DrawView;
{ Select first item }
if (AState and sfSelected)<>0 then
begin
LastV:=LastSelectable;
if LastV<>nil then
LastV^.Select;
end;
end;
destructor TTab.Done;