//////////// // STATIC CLASS MultilineCell_ FROM XbpCellGroup ///// EXPORTED: INLINE METHOD Create( oParent, oOwner, aPos, aSize, aPP, lVisible ) LOCAL xHeadFoot, cStrRef, nLines, nMaxLen, nLen xHeadFoot := ::XbpCellGroup:referenceString if ValType(xHeadFoot) == 'C' nLines := 1 cStrRef := xHeadFoot else nLines := Len(xHeadFoot) nMaxLen := 0 AEval(xHeadFoot, {|x,y| (nLen := Len(Var2Char(x)),; iif(nLen >= nMaxLen, (nMaxLen := nLen, cStrRef := Var2Char(x)), NIL))}) endif ::XbpCellGroup:referenceString := cStrRef ::XbpCellgroup:create(oParent, oOwner, aPos, aSize, aPP, lVisible) aSize := ::currentSize() aSize[02] := Int((aSize[02] * (nLines * 0.95))) ::setSize(aSize) RETURN Self ENDCLASS