F1 opens help twice

[elman]

Hi,

I accidentaly pressed F1 hey and help opened twice. I tried it on my other computer and same thing happende.

Elman

[antp]

Hi,

I also noticed this problem in my other program, Ant Renamer. I'll try to correct that

[bad4u]

This bug is still there, is it ? I noticed it while working on shortcuts

[antp]

I haven't searched for a workaround yet.

[bad4u]

It seems to work properly if you change function OnAppHelp on unit main.pas to

Code: Select all

function TMainWindow.OnAppHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;
begin
  if Data <> 1005 then
    LaunchHelp(Data);
  CallHelp := False;
  Result := False;
end;

At least it does not open two helpfiles anymore and shows same behaviour as before on the other windows.. (i.e. on import/export window F1 works, on scripting window not)

[antp]

Thanks, that could indeed by a good solution, as the problem occurs for the help command of the main form itself. But instead of 1005 maybe it is better to put Self.HelpContext, in case it is changed

[bad4u]

Done