mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 16:19:33 +02:00
27 lines
1020 B
PHP
27 lines
1020 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;
|