[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Fixes the Top, Bottom and Left, Right to always represent a valid rectangle
Source position: line 0
procedure SortRect( |
var ARect: TRect |
); |
var ARect: TfpgRect |
); |
var left: Integer; |
var top: Integer; |
var right: Integer; |
var bottom: Integer |
); |
This function fixes a rectangle so that the Left point is always smaller than the Right. And the Top is always smaller than the Bottom.