anchor.diff:              end;
             end;
   
  -          TB_EditCut.Enabled := ( ActiveNote.Editor.SelLength > 0 );
  +          TB_EditCut.Enabled := ( SelLength > 0 );
   
             TB_EditCopy.Enabled := TB_EditCut.Enabled;
             MMEditCut.Enabled := TB_EditCut.Enabled;
  
positive.code:           if EditorOptions.TrackCaretPos then
            begin
              p := ActiveNote.Editor.CaretPos;
              if ( ActiveNote.Editor.SelLength = 0 ) then begin
                //p := ActiveNote.Editor.CaretPos;
                StatusBar.Panels[PANEL_CARETPOS].Text :=
                  Format( STR_10, [succ( p.y ), ActiveNote.Editor.Lines.Count, succ( p.x )] );
                end
              else begin
                  StatusBar.Panels[PANEL_CARETPOS].Text :=
                  Format( STR_11, [ActiveNote.Editor.SelLength, GetWordCount( ActiveNote.Editor.SelText )] );
              end;
            end
            else begin
              if EditorOptions.WordCountTrack  then begin
                 if ( ActiveNote.Editor.SelLength > 0 ) then
                    UpdateWordCount;
              end else
                StatusBar.Panels[PANEL_CARETPOS].Text := '';
  
negative.code: procedure UpdateCursorPos;
  var
    p : TPoint;
    SelectedVisibleText: string;
    SelLength: integer;
  begin
    with Form_Main do begin
          if assigned( ActiveNote ) then
  