anchor.diff:      procedure MMRenamenodeClick(Sender: TObject);
       procedure MMViewTBTreeClick(Sender: TObject);
       procedure TVDeleteNodeClick(Sender: TObject);
  -    procedure TVMouseDown(Sender: TObject; Button: TMouseButton;
  -      Shift: TShiftState; X, Y: Integer);
       procedure TVDeletion(Sender: TObject; Node: TTreeNTNode);
       procedure MMTreeFullExpandClick(Sender: TObject);
       procedure MMTreeFullCollapseClick(Sender: TObject);
  
positive.code:       end;
        VK_HOME: begin
            getInformationOfCurrentLine(TRxRichEdit(sender));
            if TRxRichEdit(sender).SelStart > (posFirstChar + indent) then begin
               TRxRichEdit(sender).SelStart:= posFirstChar + indent;
               key:= 0;
            end;
        end;
  
negative.code: procedure TForm_Main.RxRTFKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  var
    line, col, indent, maxIndent, posFirstChar : integer;
    s : string;
    ptCursor :  TPoint;
  
  