All pastes #2088629 Raw Edit

Stuff

public text v1 · immutable
#2088629 ·published 2011-10-10 09:37 UTC
rendered paste body
    case fDirection of
      mdUpLeft  : begin
                    Left := Left - Trunc(fCurrentPos);
                    Top := Top - Trunc(fCurrentPos)
                  end;
      mdUp      : Left := Left - Trunc(fCurrentPos);
      mdUpRight : begin
                    Left := Left + Trunc(fCurrentPos);
                    Top := Top - Trunc(fCurrentPos)
                  end;
    end;