anchor.diff:      Ed.OptCaretBlinkTime:= EditorOps.OpCaretBlinkTime;
       Ed.OptCaretBlinkEnabled:= EditorOps.OpCaretBlinkEn;
     end;
  -
  -  Ed.OptDimUnfocusedBack:= 0; //fix issue #4346
   end;
   
   procedure DoControl_InitPropsObject(Ctl: TControl; AForm: TFormDummy; const ATypeName: string);
  
positive.code: 
    Ed.OptBorderFocusedActive:= EditorOps.OpActiveBorderInEditor;
    Ed.OptBorderWidthFocused:= ATEditorScale(EditorOps.OpActiveBorderWidth);
  
    Ed.OptThemed:= true;
    EditorApplyTheme(Ed);
  
negative.code:   if S='editor_edit' then
    begin
      Ctl:= TATEdit.Create(AForm);
      DoControl_ApplyEditorProps(TATSynEdit(Ctl), AForm, false, false, false, true);
      exit;
    end;
  