anchor.diff:    inherited;
   end; // DestroyWnd
   
  -(*
  -procedure TForm_Main.TVBeforeItemPaint(Sender: TObject;
  -      Node: TTreeNTNode; ItemRect: TRect; NodeStates: TNodeStates;
  -      var OwnerDraw: Boolean);
  -begin
  -  Node.ParentFont := true;
  -end; // TVBeforeItemPaint
  -*)
  -
   procedure TForm_Main.TVDeletion(Sender: TObject; Node: TTreeNTNode);
   var
      myTNote : TTreeNote;
  
positive.code: 
  procedure TForm_Main.MMEditDeleteClick(Sender: TObject);
  begin
    {if Res_RTF.Focused then
    begin
      Res_RTF.Perform( WM_CLEAR, 0, 0 );
    end
    else}
      PerformCmd( ecDelete );
  end; // DELETE
  
  procedure TForm_Main.MMEditUndoClick(Sender: TObject);
  begin
    {if Res_RTF.Focused then
      Res_RTF.Undo
    else}
      PerformCmd( ecUndo );
  end;
  
  procedure TForm_Main.MMEditRedoClick(Sender: TObject);
  begin
    { if Res_RTF.Focused then
      Res_RTF.Redo
    else}
      PerformCmd( ecRedo );
  end;
  
  
negative.code: begin
    InsertTemplate( '' );
  end;
  
  procedure TForm_Main.TVCheckNodeClick(Sender: TObject);
  var
  