图像平滑滚动效果的VC实现

天云上人

前言：
% Q% i; e2 Z6 t) W
  A2 _9 d! Q) D3 K　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。

) T$ O$ D3 g4 }' E　　实现效果及实现方法：

　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
2 o& ~( e& F- d2 x4 q! _6 L6 O0 ^
1 A0 Y4 m2 S; K6 C5 y　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
# _" R' B" _( l% ^( o6 Q/ e
　　实现部分：
$ \% ^# b' b# r$ C/ ~7 ?
1 O, y' F6 `" D0 B! }# {+ \3 D　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。
( B/ N+ p, q; D- \/ @! @
　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)

　　{
. `" ]1 H8 Z1 h% H1 J
　　　// TODO: Add your message handler code here and/or call default
+ M  Q6 W+ _$ Q
　　　m_lPicOldLeft = point.x;

　　　m_lPicOldTop = point.y;
+ z' Z  B$ ?( b# Y* l* B
　　　CDialog::OnLButtonDown(nFlags, point);
* U8 J$ t+ ^& b% W$ }
3 H" o" ~; }9 T8 y: W　　}
: E8 P0 ]1 N$ y: E8 n8 ^4 s" M
2 }* ?* Q/ _. \. |0 G2 h　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
- i) I, x. }  O+ Q9 H
8 ?; o- ?4 F, w5 u　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)

5 @& c. |  Q5 j3 h! R4 j9 R" K* G　　{
2 T' o3 [/ K+ @
- ^5 F4 X* X- S　　　// TODO: Add your message handler code here and/or call default
* r9 L( C$ y# i. @6 v$ G2 H* ?
　　　file://如果鼠标按下
4 l3 n; K4 @  S2 t; y! t  |9 ^
! v( t, F' T& ~5 O. Y　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

　　　{
" K. G1 {$ E! ]- S  r% ^
　　　　m_lPicNewLeft = point.x;

7 _8 A2 X; @. F8 z　　　　m_lPicNewTop = point.y;
7 `: C1 F' ?1 e# G: ?
　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
0 m' O/ I( h& ^3 Z
8 o" _/ U+ D8 b; G+ w  ?　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

　　　　file://改变图像显示的起始点
* b1 I: q0 R* l% e. S* l  `
6 @; t  A  t  C# ~) V0 G　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

- Z$ G: X. K9 H& P+ I　　　　m_lPicTop = m_lPicTop - dwTBShift;

　　　　file://判断边界的语句，省去。

　　　　m_lPicOldLeft = m_lPicNewLeft;
6 M0 }7 k* c; k7 O4 L. H5 o0 A
, b- E8 c- }8 F0 b% W% e　　　　m_lPicOldTop = m_lPicNewTop;

　　　　file://进行刷新的语句，见第四步。
& u1 p$ U3 q# Q2 m/ Z0 x. E
7 K8 F4 @0 G' n) c4 P　　　}
2 [6 q4 _2 r: C$ r' j+ W: O) U& J( E
　　　CDialog::OnMouseMove(nFlags, point);

9 ]8 g- }$ a& U! H" t5 B4 C　　}
5 I& D+ ~# g; v3 c2 \- o% ?: g% J! `
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

　　void CWingImgDlg::OnPaint()

3 E* t, q# h! o+ w　　　{
7 ^4 O) B' h- ?3 Z! k8 z
# _. f; j3 d$ [* p0 s　　　　CPaintDC dc(this); // device context for painting

5 o- g4 M- T, g$ d- U( g- p. P4 T　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
1 I6 ^# c; T. ?0 _, J. |
　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
' l  i' D' t# K/ m6 X1 u
　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

' |0 G5 k! T' m- ]　　　　　CDialog::OnPaint();

  E" H; V( i+ ~2 r/ i　　　　}
' F1 r6 F; m! U( x2 Q& t$ m　　第四步：刷新处理。
  ^/ V% S  W" E3 R: s  ^' f* q
　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
2 o6 ?; B4 j8 x" f3 R
　　　UpdateWindow()；

　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
- O- k3 Z+ j! \% a9 l
　　　　UpdateWindow();
' m/ p2 s$ V! e+ r) K5 V
　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
' |- p6 @# M( E/ |" g# m
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
% }0 r+ c" O" {4 U, q3 H
　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
( C6 X2 d' ^2 A
. g2 O0 y! L! z. s( P; E* ]进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
6 k) G6 P; d' V1 T: _+ V. O
　　OnPaint();

- j9 d1 u9 h) b9 B2 `1 R" I: f; G　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
  B* z+ [: f* K  h% y( u% V8 {
　　CDC *pDC;
9 C( B( q( F7 _" ]+ ~, o+ ]* x
　　pDC = GetDC();

3 A9 ~( y- e3 i& f; S2 u7 s/ n$ \: O　　if(m_pImgInfo != NULL)
+ g3 ]7 v5 p* x( n* f( t6 y0 r4 q- |
　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

% n/ N4 Y9 s( v5 N- u　　　ReleaseDC(pDC);

　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。