Delphi Programming RTL Reference|By Category|Alphabetically|By Unit
function Rect(aLeft, aTop, aRight, aBottom: Integer): TRect;
Returns the TRect type variable from a rectangle given with top-left and bottom-right coordinate.
Rect returns a rectangle with upper left corner at the point (aLeft, aTop) with width aLeft+aRight and height aTop + aBottom.
// see whether the mouse
// is inside the form
var r: TRect;
CurPos: TPoint;
GetCursorPos(CurPos);
r := Rect(Form1.Left, Form1.Top,
Form1.Left + Form1.Width,
Form1.Top + Form1.Height);
if PtInRect(r, CurPos) then
ShowMessage('Mouse is inside Form1!')
Note r equals Form1.BoundsRect;
|
Zoom
How to write a Delphi application that is able to zoom in portion of your desktop screen.
Bounds, CenterPoint,
|
Free Delphi code snippet inside every Delphi Newsletter! |
|
|
|
Got some code to share? Got a question? Need some help? |
|
|
