unit GetClick;

interface
	procedure GetClick (var p: point);
	procedure GetRect (var r: Rect);

implementation

	procedure GetClick (var p: point);
	begin
		repeat
			GetMouse(p)
		until Button;
	end;


	procedure GetRect (var r: Rect);
		var
			p1, p2: Point;
	begin
		repeat
			GetMouse(p1)
		until Button;
		while Button do
			GetMouse(p2);
		r.left := p1.h;
		r.right := p2.h;
		r.top := p1.v;
		r.bottom := p2.v;
	end;
end.