Iphtml tabbing obeys .WantTabs now

git-svn-id: trunk@40506 -
This commit is contained in:
andrew 2013-03-07 18:45:40 +00:00
parent 7bd498e426
commit 7b4dde3499

View File

@ -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;