anchor.diff:    cSpacing = 3;
   var
     Ed: TATSynEdit;
  +  WorkRect: TRect;
  +  NCellSize, NSizeX, NSizeY: integer;
     P: TPoint;
  -  WorkRect: TRect;
  -  NCellSize: integer;
   begin
     WorkRect:= Screen.WorkAreaRect;
     if StatusForm=nil then
  
positive.code:     2:
        begin
          Ed:= CurrentEditor;
          NCellSize:= Ed.TextCharSize.Y+2*cSpacing;
          P.X:= Ed.Carets[0].PosX;
          P.Y:= Ed.Carets[0].PosY;
          P:= Ed.CaretPosToClientPos(P);
          P:= Ed.ClientToScreen(P);
          Dec(P.Y, NCellSize);
          if P.Y<=WorkRect.Top then
            Inc(P.Y, 2*NCellSize);
        end;
    end;
  
    P.X:= Min(P.X, WorkRect.Right-StatusForm.Width);
    P.Y:= Min(P.Y, WorkRect.Bottom-StatusForm.Height);
  
    StatusForm.Left:= P.X;
    StatusForm.Top:= P.Y;
  
  
negative.code:     ASeconds:= cMaxSeconds;
  
    StatusFormLabel.Caption:= AText;
    NSizeX:= StatusFormLabel.Canvas.TextWidth(AText) + 3*cSpacing;
    NSizeY:= StatusFormLabel.Canvas.TextHeight('W') * (SFindCharCount(AText, #10)+1) + 2*cSpacing;
    StatusForm.Width:= NSizeX;
    StatusForm.Height:= NSizeY;
  
    case UiOps.AltTooltipPosition of
      0:
  