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

天云上人

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

. \* ^$ j) [' O  u　　实现效果及实现方法：

　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
0 l$ ?9 x/ B6 l* |" Z& Q8 D# A
　　实现部分：

　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。
! A* Q' `# Y9 X4 N0 d9 i! E3 s
* Q+ S8 F2 \& C. y1 z　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)

　　{
3 Y. j) i0 T, i/ t* |& ~4 e0 j' o: w
. Y( @9 _* y/ g( O　　　// TODO: Add your message handler code here and/or call default
( Y. x0 ]* H( _3 i5 d3 a' j
　　　m_lPicOldLeft = point.x;

　　　m_lPicOldTop = point.y;
* L/ b  q& @0 G
　　　CDialog::OnLButtonDown(nFlags, point);
4 R" L% H4 x; T
  j# e6 [3 d- {3 M4 h　　}
4 L( y; g. O& w! r. s
9 S+ @2 K* y1 q/ Q( A　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
! Y9 O5 c0 E$ X! _; T9 [. g  g
1 t" t  I! U3 ~( t& Z( }　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)

" M3 q9 I. E! C' J3 S' a　　{

　　　// TODO: Add your message handler code here and/or call default

　　　file://如果鼠标按下

5 N3 x4 T4 S0 V, Y9 q. r3 z　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

% G/ B! w- ^, d8 Y7 r8 h9 d) Q# J6 l- o　　　{
: n) n6 x  D( f7 _/ }( p
　　　　m_lPicNewLeft = point.x;

　　　　m_lPicNewTop = point.y;
0 O9 J# n$ k- q0 s  |4 K
0 I3 b. v3 l% P6 ]& U　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
. ~; \+ D/ k0 Y  ~* B0 [" |
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

  v% O8 Z, I- N/ L　　　　file://改变图像显示的起始点
! g* F* B: Z; j1 c! p# [0 X/ w. T
　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
- n2 r  U+ l$ Z6 H3 T
　　　　m_lPicTop = m_lPicTop - dwTBShift;
6 @/ e) m1 K: K/ p# \
3 }6 e* j) S9 a! j- p( X( q  @& G　　　　file://判断边界的语句，省去。
5 e' X) \9 ^  x5 f$ [6 j0 w0 @
+ i2 C. b  _# b# S: k! ?　　　　m_lPicOldLeft = m_lPicNewLeft;
9 d$ z2 I# V/ T0 T! |! ?
　　　　m_lPicOldTop = m_lPicNewTop;

; v( Q# _+ Q5 k( ~+ S　　　　file://进行刷新的语句，见第四步。

& O) ?7 z0 z% N, w/ A# [　　　}
/ q. X! X* Q* g3 N+ ?% A
5 V2 Y( `6 z' [' ]9 o3 k　　　CDialog::OnMouseMove(nFlags, point);
9 _; A+ o9 S6 _. C( S3 x1 R- x
6 w& U( C0 x& p5 B　　}
" ~. o! c9 X# o& f* G, z
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
& }: ?9 e. I, G( r, j) g% j
2 k* k# u) w& N4 J' |# _7 v　　void CWingImgDlg::OnPaint()
8 s7 n; D9 v; J' K& g: J
6 ~6 f1 ~" I# ]$ E% |　　　{

: d1 G: H7 i- {8 K( c+ v　　　　CPaintDC dc(this); // device context for painting

5 }+ K6 V/ g& k" |5 N0 K　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
+ Y' e9 b/ E) R
　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);
" P/ M6 }+ V- O" Y6 `% }, w
　　　　　CDialog::OnPaint();

* y2 V% `& j' G- F; \* `, |　　　　}
3 ]4 x2 c7 Z' l+ d7 F% U　　第四步：刷新处理。
% q, F/ L5 A5 p9 ], N: V+ ~1 f; \
　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区

　　　UpdateWindow()；
0 N  }. E$ ?7 T5 o% [, q( G% L
　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
4 _9 t$ t, A2 B
! [5 x5 J7 G, @6 n6 r　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
6 @' M# \1 l( Q! k6 j! p# g. M7 K
/ z/ ]8 P5 c' E: U9 e' T. E　　　　UpdateWindow();

　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

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

　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

8 ^- F6 P: d: q" ?& P% |6 a进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
! x  m  d1 v6 F" M2 H
: s5 s, C. R3 g) a* y　　OnPaint();

0 L2 Y& ?. [, g6 s; V　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
1 d8 E! E. T8 o' ]/ s* C
+ S3 s" b% D) \, x7 x9 j+ M2 b　　CDC *pDC;

8 Y( M* V) R- A, N　　pDC = GetDC();

2 C7 S" t8 L3 ?; V* ~, A　　if(m_pImgInfo != NULL)
( d" H& N1 e; @& s8 o8 f' [
　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
- Q3 v! N5 L0 V, x0 y- O/ ?
　　　ReleaseDC(pDC);

- M; Y$ d$ [7 n, K4 Z' E3 m* t* {　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
6 c6 W+ I# p0 p2 A: _
　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。