29.10.2018, 18:58
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Так сойдет?
Код:
function GetRectByCoord(x1,y1,x2,y2 : Integer) : TRect;
begin
Result.Left := Min(x1,x2);
Result.Right := Max(x1,x2);
Result.Top := Min(y1,y2);
Result.Bottom := Max(y1,y2);
end;
|