anchor.diff:    OptUnprintedReplaceSpec:= Op.OpUnprintedReplaceSpec;
     OptUnprintedReplaceSpecToCode:= StrToInt('$'+Op.OpUnprintedReplaceToCode);
   
  -  if AForceApply then
  +  if AApplyUnprintedAndWrap then
     begin
       if Op.OpWrapMode<=Ord(High(TATSynWrapMode)) then
         Ed.OptWrapMode:= TATSynWrapMode(Op.OpWrapMode);
  
positive.code: procedure EditorMouseClick_NearCaret(Ed: TATSynEdit; AParams: string; AAndSelect: boolean);
  
  function EditorGetCurrentChar(Ed: TATSynEdit): Widechar;
  procedure EditorApplyOps(Ed: TATSynEdit; const Op: TEditorOps; AForceApply, AApplyTabSize: boolean);
  
  type
    TEditorFoldOp = (cEditorFold, cEditorUnfold, cEditorFoldUnfold);
  
negative.code: end;
  
  procedure EditorApplyOps(Ed: TATSynEdit; const Op: TEditorOps;
    AApplyUnprintedAndWrap, AApplyTabSize: boolean);
  begin
    Ed.Font.Name:= Op.OpFontName;
    Ed.Font.Size:= Op.OpFontSize;
  