I drew a rectangle in a TImage object.
The size of TImage is for example width = W and Height = H.
The rectangle has 4 coordinate positions, X1, Y1, X2, Y2.
Then, I proportionally shrink the TImage to be this size: width = W1 and Height = H1.
So, anyone know a formula to calculate the new X1, Y1, X2, and Y2, so the rectangle will still be proportional ?