you may try this:
TSomeObjToSerial = class(TPersistent) private FPoint: TPoint; public property Point: TPoint read FPoint write FPoint; published property PointX: Integer read FPoint.x write FPoint.x; property PointY: Integer read FPoint.y write FPoint.y; end; not tested by compiler, but as I remeber it's work. _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
