On Tuesday 03 July 2007 09:20:04 pm Florian Klaempfl wrote:
> Hmm, I wouldn't bet that no lazarus etc. code depends on the layout ...
with different member names, there already is a defintion
rtl/macos/macostp.inc:
Point = record
case INTEGER of
0: (
v: INTEGER;
h: INTEGER;
);
1: (
vh: array[0..1] of INTEGER;
);
end;
PointPtr = ^Point;
Rect = record
case INTEGER of
0: (
top: INTEGER;
left: INTEGER;
bottom: INTEGER;
right: INTEGER;
);
1: (
topLeft: Point;
botRight: Point;
);
end;
RectPtr = ^Rect;
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
