procedure MSSL_ResizeBox

procedure MSSL_ResizeBox(var bx: TBox; pixels, method: Integer);
{==============================================================================]
  Created: September 30th, 2012.
  Contributors: Janilabo
  Explanation: Resizes bx by pixels as the amount.. Contains 11 methods for every direction.
               Directions (methods) are listed and commented below.
[==============================================================================}
begin
  if (pixels <> 0) then
    case method of
      0: bx := Box((bx.X1 - pixels), (bx.Y1 - pixels), (bx.X2 + pixels), (bx.Y2 + pixels)); // ALL AREAS
      1: bx := Box((bx.X1 - pixels), bx.Y1, (bx.X2 + pixels), bx.Y2); // WIDTH
      2: bx := Box(bx.X1, (bx.Y1 - pixels), bx.X2, (bx.Y2 + pixels)); // HEIGHT
      3: bx := Box(bx.X1, (bx.Y1 - pixels), bx.X2, bx.Y2); // UP
      4: bx := Box(bx.X1, bx.Y1, bx.X2, (bx.Y2 + pixels)); // DOWN
      5: bx := Box((bx.X1 - pixels), bx.Y1, bx.X2, bx.Y2); // LEFT
      6: bx := Box(bx.X1, bx.Y1, (bx.X2 + pixels), bx.Y2); // RIGHT
      7: bx := Box((bx.X1 - pixels), (bx.Y1 - pixels), bx.X2, bx.Y2); // TOP-LEFT
      8: bx := Box(bx.X1, (bx.Y1 - pixels), (bx.X2 + pixels), bx.Y2); // TOP-RIGHT
      9: bx := Box((bx.X1 - pixels), bx.X1, bx.X2, (bx.Y2 + pixels)); // BOTTOM-LEFT
      10: bx := Box(bx.X1, bx.Y1, (bx.X2 + pixels), (bx.Y2 + pixels)); // BOTTOM-RIGHT
    end;
end;