anchor.diff:  begin
     FKeyboardName := Value;
     DoNavigate;
  -end;
  -
  -function TfrmKeyboardOptions.ShouldProcessAllCommands: Boolean;
  -begin
  -  Result := True;
  -end;
  -
  -procedure TfrmKeyboardOptions.webBeforeNavigate2(ASender: TObject;
  -  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  -  Headers: OleVariant; var Cancel: WordBool);
  -begin
  -  if Pos('options.htm', URL) > 0 then Exit
  -  else inherited;
  -end;
  -
  -procedure TfrmKeyboardOptions.webNewWindow3(ASender: TObject;
  -  var ppDisp: IDispatch; var Cancel: WordBool; dwFlags: Cardinal;
  -  const bstrUrlContext, bstrUrl: WideString);
  -begin
  -  if Pos('options.htm', string(bstrURL)) > 0 then
  -  begin
  -    Cancel := True;
  -  end
  -  else inherited;
   end;
   
   procedure TfrmKeyboardOptions.DoNavigate;
  
positive.code:   s := ExtractFilePath(kbd.OwnerPackage.Filename) + 'options.htm' + s;
  
    cef.Navigate(s);
  {$MESSAGE HINT 'TODO: Override the onbeforenavigate'}
  //  web.OnBeforeNavigate2 := nil;
  //  v := navNoHistory or navNoReadFromCache or navNoWriteToCache;
  //  web.Navigate(s, v);
  //  web.OnBeforeNavigate2 := webBeforeNavigate2;
  end;
  
  procedure TfrmKeyboardOptions.WMUser_ContentRender(var Message: TMessage);
  
negative.code: 
  type
    TfrmKeyboardOptions = class(TfrmWebContainer)
    private
      kbd: IKeymanKeyboardInstalled;
      FKeyboardName: WideString;
  