mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-20 11:59:26 +02:00
Iphtml tabbing obeys .WantTabs now
git-svn-id: trunk@40506 -
This commit is contained in:
parent
7bd498e426
commit
7b4dde3499
@ -17516,7 +17516,7 @@ procedure TIpHtmlInternalPanel.KeyDown(var Key: Word; Shift: TShiftState);
|
||||
var
|
||||
TabList: TIpHtmlTabList;
|
||||
begin
|
||||
if key = VK_TAB then
|
||||
if (key = VK_TAB) and TIpHtmlCustomPanel(Owner).WantTabs then
|
||||
begin
|
||||
TabList := FHyper.FTabList;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user