Call help window when pressing F1 in those query helpers tabs for which that makes sense.

This commit is contained in:
Ansgar Becker
2007-07-14 18:31:14 +00:00
parent d6da05aa13
commit 490e192ca9
2 changed files with 10 additions and 0 deletions

View File

@@ -1042,6 +1042,7 @@ object MDIChild: TMDIChild
TabOrder = 1
OnClick = lboxQueryHelpersClick
OnDblClick = lboxQueryHelpersDblClick
OnKeyUp = controlsKeyUp
end
end
end

View File

@@ -4488,7 +4488,16 @@ begin
else if ListColumns.Focused and (ListColumns.Selected <> nil) then
begin
keyword := ListColumns.Selected.SubItems[0];
end
else if lboxQueryHelpers.Focused then
begin
// Makes only sense if one of the tabs "SQL fn" or "SQL kw" was selected
if tabsetQueryHelpers.TabIndex in [1,2] then
begin
keyword := lboxQueryHelpers.Items[lboxQueryHelpers.ItemIndex];
end;
end;
// Clean existing paranthesis, fx: char(64)
if Pos( '(', keyword ) > 0 then
begin