mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-15 16:06:00 +02:00
28 lines
1021 B
PHP
28 lines
1021 B
PHP
type
|
|
AbsRectType = record
|
|
left : SWord;
|
|
top : SWord;
|
|
right : SWord;
|
|
bottom : SWord;
|
|
end;
|
|
|
|
PointType = record
|
|
x : SWord;
|
|
y : SWord;
|
|
end;
|
|
|
|
RectangleType = record
|
|
topLeft : PointType;
|
|
extent : PointType;
|
|
end;
|
|
|
|
RectanglePtr = ^RectangleType;
|
|
|
|
procedure RctSetRectangle(r:RectanglePtr; left:SWord; top:SWord; width:SWord; height:SWord);systrap sysTrapRctSetRectangle;
|
|
procedure RctCopyRectangle(srcRect:RectanglePtr; dstRect:RectanglePtr);systrap sysTrapRctCopyRectangle;
|
|
procedure RctInsetRectangle(r:RectanglePtr; insetAmt:SWord);systrap sysTrapRctInsetRectangle;
|
|
procedure RctOffsetRectangle(r:RectanglePtr; deltaX:SWord; deltaY:SWord);systrap sysTrapRctOffsetRectangle;
|
|
function RctPtInRectangle(x:SWord; y:SWord; r:RectanglePtr):Boolean;systrap sysTrapRctPtInRectangle;
|
|
procedure RctGetIntersection(r1:RectanglePtr; r2:RectanglePtr; r3:RectanglePtr);systrap sysTrapRctGetIntersection;
|
|
|