关于逻辑坐标转化为设置坐标的使用

关于逻辑坐标转化为设置坐标的使用 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006121110211770.html
我原在一个大的区域作一个大图,现在显示时已小图,并在小的区域内居中显示  
   
  代码如下:  
   
  procedure   TmlCadDataModule.DrawInRect(Canvas:   TCanvas;   ARect:   TRect);  
  var  
      Rect   :   TRect;  
      HZoom,   VZoom,myZoom:   Integer;  
      fOrgPt   :   TPoint;  
      MemDC:   HDC;  
   
      myWinExtSize     :   TSize;  
      myWinOrgSize     :   TPoint;  
      myViewExtSize   :   TSize;  
      myViewOrgSize   :   TPoint;  
      myMode   :   integer;  
      w,h   :   integer;  
   
  begin  
      //当前层  
      try  
          if   not   Assigned(fLayermanager)   then   Exit;  
          if   not   Assigned(fLayermanager.Layers[0])   then   Exit;  
          fLayermanager.Layers[0].GetRect(Rect);     //真实的大小  
          InflateRect(Rect,10,10);  
   
        //   Rect   是大图时的区  
   
          HZoom   :=   MulDiv(100,   ARect.Right   -   ARect.Left,   Rect.Right   -   Rect.Left);  
          VZoom   :=   MulDiv(100,   ARect.Bottom   -   ARect.Top,   Rect.Bottom   -   Rect.Top);  
           
          if   VZoom   >   HZoom   then  
              myZoom   :=   HZoom  
          else  
              myZoom   :=   VZoom;  
         
        //取原点,关键在这,缩放后的原因是有变化的  
          w   :=   (   Rect.Right   -   Rect.Left)*myZoom   div   100;     //缩放后的宽度  
          h   :=   (Rect.Bottom   -   Rect.Top)*myZoom   div   100;       //缩放后的高度  
   
          fOrgPt   :=   Point(ARect.Left   +   (ARect.Right-ARect.Left-w)   div   2,  
                                          ARect.Top     +   (ARect.Bottom-ARect.Top-h)   div   2);          
   
   
   
          myMode   :=   GetMapMode(Canvas.Handle);  
          GetWindowExtEx(Canvas.Handle,myWinExtSize);  
          GetWindowOrgEx(Canvas.Handle,myWinOrgSize);  
          GetViewPortExtEx(Canvas.Handle,myViewExtSize);  
          GetViewPortOrgEx(Canvas.Handle,myViewOrgSize);  
   
          SetMapMode(Canvas.Handle,   MM_ANISOTROPIC);  
          SetViewPortOrgEx(Canvas.Handle,   -fOrgPt.X   ,   -fOrgPt.Y   ,nil);  
          SetWindowExtEx(Canvas.handle,100,100,   nil);  
   
          SetViewPortExtEx(Canvas.Handle,myZoom,myZoom,nil);  
   
          fLayermanager.Layers[0].Draw(Canvas);     //画内容  
   
          //恢复原来的值  
          SetMapMode(Canvas.Handle,myMode);  
          SetWindowOrgEx(Canvas.Handle,myWinOrgSize.X,myWinOrgSize.Y,nil);  
          SetViewportOrgEx(Canvas.Handle,   myViewOrgSize.X,   myViewOrgSize.Y,   nil);  
          SetWindowExtEx(Canvas.Handle,myWinExtSize.cx,myWinExtSize.cy,nil);  
          SetViewportExtEx(Canvas.Handle,myViewExtSize.cx,myViewExtSize.cy,nil);  
   
      finally  
   
      end;  
  end;  
 

有人回答吗

up

自己顶

自己顶

顶

帮up

我来帮顶！  
  你是不是要做预览？

自己顶