litecad的一个鼠标拖动实现

//鼠标移动
void CALLBACK CCoalCADView::ProcMouseMove( HANDLE hLcWnd, int Button, int Flags, int Xwin, int Ywin, double X, double Y )
{
 if (Button == LC_LBUTTON )
  {
   if (!isClicked) {
     HANDLE hView = lcPropGetHandle( hLcWnd, LC_PROP_WND_VIEW );
     baseLeft = lcPropGetFloat( hView, LC_PROP_VIEW_LEF );
     baseTop = lcPropGetFloat( hView, LC_PROP_VIEW_TOP );
      baseRight = lcPropGetFloat( hView, LC_PROP_VIEW_RIG );
      baseBottom = lcPropGetFloat( hView, LC_PROP_VIEW_BOT );

     winBaseX = Xwin;
      winBaseY = Ywin;
      baseX = X;
      baseY = Y;

      a = (baseX-baseLeft)/winBaseX;
      b = (baseY-baseTop)/winBaseY;

     isClicked = true;
   }

   HANDLE hView = lcPropGetHandle( hLcWnd, LC_PROP_WND_VIEW );
   float left = lcPropGetFloat( hView, LC_PROP_VIEW_PIXELSIZE );

   double xt;
    double yt;
    xt = a*(-Xwin+winBaseX+(baseRight+baseLeft)/(2*a));
   yt = b*(-Ywin+winBaseY+(baseBottom+baseTop)/(2*b));

   lcViewSetRect(hView, xt, yt, 0, 0);
   lcWndRedraw( hLcWnd );
  }
}