anchor.diff:    UpdateFonts;
     FixFormPositionToDesktop(Self);
     OnResize(Self);
  +
  +  OnGetMainEditor(Ed);
  +  if Ed.Carets.Count>0 then
  +  begin
  +    Caret:= Ed.Carets[0];
  +    Caret.GetRange(X1, Y1, X2, Y2, bSel);
  +    FInitialCaretPos:= Point(X1, Y1);
  +  end;
   end;
   
   procedure TfmFind.DoResult(Str: TAppFinderOperation);
  
positive.code: 
  
  procedure TfmFind.FormShow(Sender: TObject);
  begin
    edFind.OptCaretBlinkEnabled:= EditorOps.OpCaretBlinkEn;
    edRep.OptCaretBlinkEnabled:= EditorOps.OpCaretBlinkEn;
  
negative.code:   ATPanelSimple,
    ATStringProc,
    ATSynEdit,
    ATSynEdit_Carets,
    ATSynEdit_Edits,
    ATSynEdit_Commands,
    ATSynEdit_Finder,
  