anchor.diff:          Dec(P.Y, NCellSize);
           if P.Y<=WorkRect.Top then
             Inc(P.Y, 2*NCellSize);
  -        //smaller width
  -        StatusForm.Width:= StatusFormLabel.Canvas.TextWidth(AText)+30;
         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;
   
  
positive.code:   if ASeconds>cMaxSeconds then
      ASeconds:= cMaxSeconds;
  
    StatusForm.Width:= Self.Width;
    StatusFormLabel.Caption:= AText;
    StatusForm.Height:=
      //StatusFormLabel.Height + 2*cSpacing;
      StatusFormLabel.Canvas.TextHeight('W') * (SFindCharCount(AText, #10)+1) + 2*cSpacing;
  
    case UiOps.AltTooltipPosition of
      0:
  
negative.code:   end;
  
    StatusForm.FormStyle:= fsSystemStayOnTop;
    StatusForm.Color:= clInfoBk; //GetAppColor(apclListBg);
    StatusForm.Font.Name:= EditorOps.OpFontName;
    StatusForm.Font.Size:= AppScaleFont(EditorOps.OpFontSize);
    StatusForm.Font.Color:= clInfoText; //GetAppColor(apclListFont);
  
    if ASeconds<=0 then
    begin
  