Janilabo | ResizeBox() [Simba]

procedure ResizeBox(var bx: TBox; pixels, method: Integer);
begin
  case method of
    0: bx := IntToBox((bx.X1 - pixels), (bx.Y1 - pixels), (bx.X2 + pixels), (bx.Y2 + pixels)); // ALL AREAS
    1: bx := IntToBox((bx.X1 - pixels), bx.Y1, (bx.X2 + pixels), bx.Y2); // WIDTH
    2: bx := IntToBox(bx.X1, (bx.Y1 - pixels), bx.X2, (bx.Y2 + pixels)); // HEIGHT
    3: bx := IntToBox(bx.X1, (bx.Y1 - pixels), bx.X2, bx.Y2); // UP
    4: bx := IntToBox(bx.X1, bx.Y1, bx.X2, (bx.Y2 + pixels)); // DOWN
    5: bx := IntToBox((bx.X1 - pixels), bx.Y1, bx.X2, bx.Y2); // LEFT
    6: bx := IntToBox(bx.X1, bx.Y1, (bx.X2 + pixels), bx.Y2); // RIGHT
    7: bx := IntToBox((bx.X1 - pixels), (bx.Y1 - pixels), bx.X2, bx.Y2); // TOP-LEFT
    8: bx := IntToBox(bx.X1, (bx.Y1 - pixels), (bx.X2 + pixels), bx.Y2); // TOP-RIGHT
    9: bx := IntToBox((bx.X1 - pixels), bx.X1, bx.X2, (bx.Y2 + pixels)); // BOTTOM-LEFT
    10: bx := IntToBox(bx.X1, bx.Y1, (bx.X2 + pixels), (bx.Y2 + pixels)); // BOTTOM-RIGHT
  end;
end;

var
  i: Integer;
  bx, bx2: TBox;

begin
  ClearDebug;
  bx := IntToBox(50, 50, 100, 100);
  WriteLn('MAIN BOX: ' + ToStr(bx));
  for i := 0 to 10 do
  begin
    bx2 := bx;
    ResizeBox(bx2, 1, i);
    WriteLn('MAIN BOX: ' + ToStr(bx2) + ' [resize method: ' + IntToStr(i) + ']');
  end;
end.