anchor.diff:    strkey:= TATKeymapItem(keymapList[AIndex]).Keys1.ToString;
     //add key2
     strfind:= TATKeymapItem(keymapList[AIndex]).Keys2.ToString;
  -  if strfind<>'' then strkey:= strkey+' / '+strfind;
  -
  -  strfind:= Utf8Encode(Trim(edit.Text));
  +  if strfind<>'' then
  +    strkey:= strkey+' / '+strfind;
  +
  +  strfind:= Trim(edit.Text);
  +  _GetPrefix(strfind, 'p');
  +  _GetPrefix(strfind, 'l');
  +  _GetPrefix(strfind, 'f');
  +  _GetPrefix(strfind, 'r');
   
     pnt:= Point(ARect.Left+4, ARect.Top);
     c.TextOut(pnt.x, pnt.y, strname);
  
positive.code: 
  {$R *.lfm}
  
  { TfmCommands }
  
  procedure TfmCommands.FormShow(Sender: TObject);
  
negative.code:   list.Invalidate;
  end;
  
  function TfmCommands.IsFiltered(Item: TATKeymapItem): boolean;
  var
    NCmd: integer;
  