[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Expand rectangle with certain size.
Source position: objects.pp line 242
procedure TRect.Grow( |
ADX: Sw_Integer; |
ADY: Sw_Integer |
); |
Grow expands the rectangle with an amount ADX in the X direction (both on the left and right side of the rectangle, thus adding a length 2*ADX to the width of the rectangle), and an amount ADY in the Y direction (both on the top and the bottom side of the rectangle, adding a length 2*ADY to the height of the rectangle.
ADX and ADY can be negative. If the resulting rectangle is empty, it is set to the empty rectangle at (0,0).
None.
|
Move rectangle along a vector. |
Program ex6; { Program to demonstrate TRect.Grow } Uses objects; Var ARect,BRect : TRect; begin ARect.Assign(10,10,20,20); ARect.Grow(5,5); // Brect should be where new ARect is. BRect.Assign(5,5,25,25); If ARect.Equals(BRect) Then Writeln ('ARect equals BRect') Else Writeln ('ARect does not equal BRect !'); end.
lazarus-ccr.sourceforge.net |