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