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

天云上人

前言：
% u. }; i0 U. ?
% ~( e3 u4 a# l" I1 z　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。

　　实现效果及实现方法：
2 x* j* s; O' I
+ o0 \5 ]) Z% O- N　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
0 p; |+ }. I/ [% J( J4 i% V# I- `
　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
+ x7 Y8 P* ^4 {$ C1 o2 E2 j' \& ?1 y
- U" _/ b  t7 i　　实现部分：

+ v: I: ^4 N* _  }3 L* H　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
$ `( T0 W/ Z. e0 U/ ^. a* z
　　{
( K( i, A6 U4 e! q) O
　　　// TODO: Add your message handler code here and/or call default

　　　m_lPicOldLeft = point.x;
5 e( s+ u" k( X- A
　　　m_lPicOldTop = point.y;

) a* `8 l7 m8 W: ^0 B' b　　　CDialog::OnLButtonDown(nFlags, point);

8 X# i! L/ e" ?6 t, t: V$ c0 J/ V　　}

　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)

/ K, |3 K) ?8 ]+ C7 \/ O　　{
2 F' Y* d# Q2 Y4 }
  H5 C' J0 l3 M; H0 Q　　　// TODO: Add your message handler code here and/or call default
; c' W. W5 K, V" t' V% [8 }
+ b. N: _; N1 o( L　　　file://如果鼠标按下

　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

　　　{
6 `# L1 m3 _5 _5 o+ k* @; I# t( l
+ j0 v! G: ?& v. l4 i　　　　m_lPicNewLeft = point.x;

# u- F0 d! A! d; e7 k) X" r% ?　　　　m_lPicNewTop = point.y;
% n; n4 V: ?& }+ \* V
　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
9 H0 Q! A' ?' F. |' Q" `  g
6 q* _9 Y/ s1 W/ i　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

/ Z# C; j! Z9 @5 \0 U7 E　　　　file://改变图像显示的起始点
( t/ Q) z) N: d
* I  ^. t7 L* [! k: S; [7 x* I/ k　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
+ t7 W) |' B/ J+ |3 ^/ B! o  |3 F
　　　　m_lPicTop = m_lPicTop - dwTBShift;
+ }9 c2 U8 N! L; l2 f0 j
: S; q9 f% ?( @0 V3 m　　　　file://判断边界的语句，省去。

) ^. o2 A* b  ^　　　　m_lPicOldLeft = m_lPicNewLeft;

" t4 N) B& z, p$ r　　　　m_lPicOldTop = m_lPicNewTop;

3 D  j# D& m! k+ A' G　　　　file://进行刷新的语句，见第四步。

- z+ X" g1 y5 X  Y* o　　　}

　　　CDialog::OnMouseMove(nFlags, point);

　　}
4 X$ g' q7 z6 V" z
- z* m4 `0 P% h　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

2 C0 o1 J  k% E" O0 a5 c" b　　void CWingImgDlg::OnPaint()

$ @# W2 I8 q+ n　　　{
5 w& o7 E) t$ G( _) \; o
　　　　CPaintDC dc(this); // device context for painting

2 u  R% J/ l' ?# c* r/ Q8 g( U　　　　file://其他的显示内容，省去。
" t  j2 N; Y; M2 t5 P4 ]- X
* G, _3 c4 [# A. B$ G# y- ~; b7 \　　　　if(m_pImgInfo != NULL)
0 B% X' _4 o" l2 e/ s: c
+ i# ^* K( U! W　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
1 n' W& P8 S& c! m" W4 J/ m" d
　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);
3 G* N. [! N4 T0 |  ^+ M
7 `" @1 K3 F/ m; X5 w5 \  W* i3 R. z　　　　　CDialog::OnPaint();

　　　　}
　　第四步：刷新处理。
" C- ^& z  R, X5 u& I  G
1 Y& {% t/ r4 Q5 r( R7 p2 v　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
6 s# r: @$ b0 s. l3 Z$ H
　　　UpdateWindow()；
  g- s- Y! ^" u1 c
7 ]0 N5 k; f, |+ Q8 X  V　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
0 ^* R8 c  y8 p
! u5 Y5 M# h8 {; e& w& h. a' C　　　　UpdateWindow();
9 ^6 y5 H2 J" I. P. z
　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

& E  b1 w7 X* }2 X; a  X　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
7 E. L. n# u) c
进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
* F9 t6 |' B- |0 J: D$ C2 j
　　OnPaint();

5 J0 Q: T- ?: ~, r) L. y, e2 n5 N　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
2 Q: w! F) I& X# G7 z
/ a3 L1 ~2 g( ?6 R. W' x! ?& P　　CDC *pDC;

2 k8 T1 a4 K% T# `; W" i  I" s8 Z$ u: T　　pDC = GetDC();

　　if(m_pImgInfo != NULL)

　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

　　　ReleaseDC(pDC);
! G6 q# R( [  @7 k$ ]8 [
& N' O9 g: E" o! O( N: ~　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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