anchor.diff:    params: TStringList;
     Frame: TEditorFrame;
     NLine, NColumn, i: integer;
  +  bReadOnly: boolean;
   begin
     if not IsAllowedToOpenFileNow then Exit;
   
  
positive.code:       if FileExistsUTF8(SFilename) then
        begin
          Frame:= DoFileOpen(SFilename, '');
          if Assigned(Frame) and (NLine>0) then
            Frame.DoGotoPos(Frame.Ed1, NColumn-1, NLine-1);
        end;
      end;
    finally
  
negative.code:     for i := 0 to params.Count - 1 do
      begin
        SFilename := params[i];
        if SFilename='' then
          Continue;
        if SFilename='-r' then
        begin
          bReadOnly:= true;
          Continue;
        end;
  
        SParseFilenameWithTwoNumbers(SFilename, NLine, NColumn);
        //if dir, open in ProjManager
        if DirectoryExistsUTF8(SFilename) then
  