OffsetBox

[Janilabo]

[scar]procedure OffsetBox(var bx: TBox; xOffset, yOffset: Integer);

begin

bx := Box((bx.X1 + xOffset), (bx.Y1 + yOffset), (bx.X2 + xOffset), (bx.Y2 + yOffset));

end;

 

var

m_bx, o_bx: TBox;

 

begin

m_bx := Box(100, 100, 200, 200);

WriteLn('m_bx: ' + BoxToStr(m_bx));

o_bx := m_bx;

OffsetBox(o_bx, 10, 10);

WriteLn('m_bx: ' + BoxToStr(o_bx) + ' [x-offset: 10, y-offset: 10]');

o_bx := m_bx;

OffsetBox(o_bx, -10, -10);

WriteLn('m_bx: ' + BoxToStr(o_bx) + ' [x-offset: -10, y-offset: -10]');

o_bx := m_bx;

OffsetBox(o_bx, 10, 0);

WriteLn('m_bx: ' + BoxToStr(o_bx) + ' [x-offset: 10]');

o_bx := m_bx;

OffsetBox(o_bx, 0, 10);

WriteLn('m_bx: ' + BoxToStr(o_bx) + ' [y-offset: 10]');

end.[/scar]

Edited August 18, 2012 by Janilabo