9 lines
139 B
ObjectPascal
9 lines
139 B
ObjectPascal
|
unit u_rect1;
|
||
|
|
{$reference 'System.Drawing.dll'}
|
||
|
|
|
||
|
|
uses
|
||
|
|
System.Drawing;
|
||
|
|
|
||
|
|
begin
|
||
|
|
assert((new Rectangle(0, 0, 8, 8)).Contains(4, 4));
|
||
|
|
end.
|