anchor.diff:          begin
             YY := DrawYY - ParentSectionList.YOff;
             case VertAlign of
  -            {ALeft, ARight,} ATop:
  +            ATop, ANone:
                 WrapTextW(Canvas, DrawXX + 24, YY + Ofst, DrawXX + AltWidth - 2, YY + AltHeight - 1, FAltW);
               AMiddle:
                 WrapTextW(Canvas, DrawXX + 24, YY + Ofst, DrawXX + AltWidth - 2, YY + AltHeight - 1, FAltW);
  
positive.code:       SaveColor := SetTextColor(Handle, clBlack);
        Brush.Color := clWhite;
        case VertAlign of
          {ALeft, ARight,} ATop:
            ARect := Rect(X, TopY + VSpaceT, X + ImageWidth, TopY + VSpaceT + ImageHeight);
          AMiddle:
            ARect := Rect(X, MiddleAlignTop, X + ImageWidth, MiddleAlignTop + ImageHeight);
  
negative.code:           end;
          end;
          case VertAlign of {draw border}
            {ALeft, ARight,} ATop, ANone: Rectangle(X, TopY + VSpaceT, X + ImageWidth, TopY + VSpaceT + ImageHeight);
            AMiddle: Rectangle(X, MiddleAlignTop, X + ImageWidth, MiddleAlignTop + ImageHeight);
            ABottom, ABaseline: Rectangle(X, YBaseLine - ImageHeight - VSpaceB, X + ImageWidth, YBaseLine - VSpaceB);
          end;
  