Поддержка жестов в TMapScreen и TMapView

#define WHEEL_DELTA   120

// Включение опции масштабирования колесом мышки
int WheelScale = 0;

//---------------------------------------------------------------------------
// Крутится колесико мышки
//---------------------------------------------------------------------------
void __fastcall TMDIChild::FormMouseWheel(TObject *Sender,
      TShiftState Shift, int WheelDelta, TPoint &MousePos, bool &Handled)
{
  int delta = max(48, abs(WheelDelta * 32/WHEEL_DELTA));

  if ((WheelScale == 0) &&11/04/07
      ((::GetKeyState(VK_CONTROL) & 0xFFF8000) == 0))      // 24/06/06
    {
      // Перемещение карты
      if (WheelDelta < 0)
        {
          if (Shift.Contains(ssShift))
            HorzScrollBar->Position += (delta * 2);
          else
           VertScrollBar->Position += delta;
        }
      else
        {
          if (Shift.Contains(ssShift))
            HorzScrollBar->Position -= (delta * 2);
          else
            VertScrollBar->Position -= delta;
        }

      // Уведомить об изменении позиции мышки           // 30/07/10
      POINT pos;
      GetCursorPos(&pos);

      MapWindowLink.OnMove(ShiftStateToKeys(Shift), pos);
    }
  else
    {
      // Масштабирование
      if (WheelDelta > 0)                          // 25/07/06
        {
          // Посылка символов > и < для пошагового масштабирования (но можно и плавно масштабировать...)
          MapWindowLink.OnKeyDown(190, 0, 0);
        }
      else
        {
          MapWindowLink.OnKeyDown(188, 0, 0);
        }
    }

  Handled = true;
}