anchor.diff:    if S='editor_combo' then
     begin
       Ctl:= TATComboEdit.Create(AForm);
  -    TATSynEdit(Ctl).Keymap:= AppKeymapMain;
  -    TATSynEdit(Ctl).OptUndoForMarkers:= false;
  -    TATSynEdit(Ctl).OptUndoForAttribs:= false;
       DoControl_ApplyEditorProps(TATSynEdit(Ctl), AForm, false, false, false, true);
       exit;
     end;
  
positive.code: procedure DoControl_ApplyEditorProps(Ed: TATSynEdit; AForm: TFormDummy;
    AApplyUnprintedAndWrap, AApplyTabSize, AApplyCentering, AOneLiner: boolean);
  begin
    Ed.Font.Name:= EditorOps.OpFontName;
    Ed.Font.Size:= EditorOps.OpFontSize;
  
  
negative.code:     Ed.OptCaretBlinkTime:= EditorOps.OpCaretBlinkTime;
      Ed.OptCaretBlinkEnabled:= EditorOps.OpCaretBlinkEn;
    end;
  end;
  
  procedure DoControl_InitPropsObject(Ctl: TControl; AForm: TFormDummy; const ATypeName: string);
  