anchor.diff:  
   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;
   
  
positive.code:   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;
  
  
negative.code: end;
  
  procedure TForm_Main.MMNotePrintPreview_Click(Sender: TObject);
  begin
    if ( not HaveNotes( true, true )) then exit;
    if ( not assigned( ActiveNote )) then exit;
  