anchor.diff:    end;
   end; // UpdateWordWrap
   
  -(*
  -procedure TForm_Main.RxRTFDragOver(Sender, Source: TObject; X,
  -  Y: Integer; State: TDragState; var Accept: Boolean);
  -begin
  -  // Accept := true;
  -  statusbar.panels[0].text := inttostr( random( 100 ));
  -end; // RxRTFDragOver
  -*)
  -
  -
   procedure TForm_Main.MMEditSelectAllClick(Sender: TObject);
   begin
  -  {if Res_RTF.Focused then
  -    Res_RTF.SelectAll
  -  else}
       PerformCmd( ecSelectAll );
   end;
   
   procedure TForm_Main.MMFormatWordWrapClick(Sender: TObject);
   begin
  -  {
  -  if Res_RTF.Focused then
  -  begin
  -    Res_RTF.WordWrap := ( not Res_RTF.WordWrap );
  -    if ( _LoadedRichEditVersion > 2 ) then
  -    begin
  -      Res_RTF.Undo; // kluge for loss of formatting!
  -      Res_RTF.SelLength := 0;
  -    end;
  -  end
  -  else
  -  }
       PerformCmd( ecWordWrap );
   end;
   
  
positive.code: 
  procedure TForm_Main.Splitter_ResMoved(Sender: TObject);
  begin
    {
    if ( ResPanelOptions.TabOrientation in [tabposTop, tabposBottom] ) then
      Combo_ResFind.Width := Pages_Res.Width - 22
    else
      Combo_ResFind.Width := Pages_Res.Width - 40;
    }
    Combo_ResFind.Width := ResTab_Find.Width - 15;
  end;
  
  
negative.code: 
  procedure TForm_Main.MMEditDeleteClick(Sender: TObject);
  begin
      PerformCmd( ecDelete );
  end; // DELETE
  
  procedure TForm_Main.MMEditUndoClick(Sender: TObject);
  begin
      PerformCmd( ecUndo );
  end;
  
  procedure TForm_Main.MMEditRedoClick(Sender: TObject);
  begin
      PerformCmd( ecRedo );
  end;
  
  