anchor.diff:    ls: string;
     ls2: string;
     hasChanged: boolean;
  -  
  -  procedure StopSelection;
  -  begin
  -    FSelStartLine := FCursorLine;
  -    FSelStartPos  := FCursorPos;
  -    FSelEndLine   := -1;
  -  end;
  -  
   begin
     fpgApplication.HideHint;
     Consumed := True;
  
positive.code:         FSelEndLine := FCursorLine;
        end
        else
          StopSelection;
      end;
    end;
  
  
negative.code:                     while (FCursorPos < length(CurrentLine)) and not pgfIsAlphaNum(copy(CurrentLine,FCursorPos+1,1))
                        do Inc(FCursorPos);
                *);
          end;// right
  
        keyUp:
  