Setting HelpContext or trap F1 key?

Comments

• gpi

  March 2017 edited 8:10AM

  See here: http://www.fast-report.com/en/forum/?p=/discussion/3717
• David Cox

  March 2017 edited 8:10AM

  http://www.fast-report.com/en/forum/?p=/discussion/3717 wrote:

  http://www.fast-report.com/en/forum/?p=/discussion/3717 [/url]

  
  Thanks, but that is not really what I am after. Many of our customer sites use web based help so we want to call our central web help file. Is there anyway to trap the F1 key press or other method to call our customized help?
  
  Dave
• gpi

  March 2017 edited 8:10AM

  You should modify FR's sources
  See frxEditMemo.pas

  procedure TfrxMemoEditorForm.FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  begin
    if Key = VK_F1 then
      frxResources.Help(Self);
  end;
  

  frxRes.pas

  procedure TfrxResources.Help(Sender: TObject);
  {$IFNDEF FPC}
  var
    i: Integer;
    topic: String;
  {$ENDIF}
  begin
    {$IFDEF FPC}
    {$note TfrxResources.Help not implemented.}
    {$ELSE}
    topic := '';
    if Sender <> nil then
      for i := 0 to helpTopicsCount - 1 do
        if CompareText(helpTopics[i].Sender, Sender.ClassName) = 0 then
          topic := '::/' + helpTopics[i].Topic;
  {$IFNDEF FR_COM}
    frxDisplayHHTopic(Application.Handle, ExtractFilePath(Application.ExeName) + FHelpFile + topic);
  {$ELSE}
    frxDisplayHHTopic(Application.Handle, FHelpFile + topic);
  {$ENDIF}
  {$ENDIF}
  end;
  

  for example
• David Cox

  March 2017 edited 8:10AM

  Thanks!
  
  (I missed this post earlier and just saw it now.)
  
  Dave