GitHub-Mirror/x2cl
1
0
Fork 0
mirror of synced 2024-11-22 10:03:51 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: SelectLast used the active group to start

Browse Source
This commit is contained in:
Mark van Renswoude 2010-03-30 13:31:51 +00:00
parent 7c3d746844
commit da24dfd4d0
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/X2CLMenuBar.pas
View File

@ -2656,12 +2656,26 @@ end;
function TX2CustomMenuBar.SelectLast: TX2CustomMenuBarItem; function TX2CustomMenuBar.SelectLast: TX2CustomMenuBarItem;
var
startGroup: TX2MenuBarGroup;
startItem: TX2CustomMenuBarItem;
begin begin
Result := nil; Result := nil;
if Groups.Count = 0 then
Exit;
if AllowInteraction then if AllowInteraction then
begin begin
Result := Iterate(FindEnabledItem, mbdUp); { Start from the last item in the last group }
startGroup := Groups[Pred(Groups.Count)];
if startGroup.Items.Count > 0 then
startItem := startGroup.Items[Pred(startGroup.Items.Count)]
else
startItem := startGroup;
Result := Iterate(FindEnabledItem, mbdUp, nil, startItem);
if Assigned(Result) then if Assigned(Result) then
SelectedItem := Result; SelectedItem := Result;
end; end;