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

天云上人

前言：
  _6 ^0 w# N+ b# p! ]4 J6 C
　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
" {" U' z1 _' x+ K3 ]
　　实现效果及实现方法：
) h8 M1 m% C+ R  s2 Z
　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
# a& L3 I0 e* U) k6 i
( X# X) l+ ?* B% }2 p2 u; H　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
8 y) H5 [* U7 w! r. a
　　实现部分：

　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。
7 y% _, i. l* C2 H' `% @
　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
$ n2 Q; C2 D+ m$ ^7 J" U
　　{
) v, u/ W+ S+ _( B
　　　// TODO: Add your message handler code here and/or call default

　　　m_lPicOldLeft = point.x;

. N5 ?1 I$ v! n" N% T! i　　　m_lPicOldTop = point.y;
2 q5 ?$ K2 Q& R8 e' X6 D
/ |+ J& T5 |0 T6 A　　　CDialog::OnLButtonDown(nFlags, point);
- ]0 C) g1 h8 x; X
　　}

　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
6 z9 l) J# I* @; |: W2 ?
　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
& F) F/ a5 W6 s3 O" s. b* |0 r
7 [- W2 q& q) p/ a7 s; [  _　　{

, }. L# q# b$ Q& ~+ \4 K7 I　　　// TODO: Add your message handler code here and/or call default

  q7 c2 d9 ]$ W5 |" H3 Q　　　file://如果鼠标按下

　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

  G) a' ?; y) I! c; }　　　{
, E: h3 e- P3 j
　　　　m_lPicNewLeft = point.x;

　　　　m_lPicNewTop = point.y;
9 Y- s1 e$ O# y5 S
3 F8 k& B7 t: t5 h- H$ A　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
9 Q" U% \! W5 K# m, g+ U6 J  T
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;
' c  S  S+ _! j+ D
　　　　file://改变图像显示的起始点
8 X; c+ P. Z9 y% f# K+ O
. t+ _+ q: h+ O# @" S) v　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

( |+ J) E" v' p  e0 I8 a2 C　　　　m_lPicTop = m_lPicTop - dwTBShift;

8 ?7 p* ^$ K6 A0 T' |　　　　file://判断边界的语句，省去。
1 z. o$ t7 \* ~
　　　　m_lPicOldLeft = m_lPicNewLeft;
# L+ p; h* M: z: D; A1 g$ s0 I
& d) W. t+ V8 L) r+ H1 }　　　　m_lPicOldTop = m_lPicNewTop;

　　　　file://进行刷新的语句，见第四步。

# z. Q* Y/ i7 p( d) U' e( S, q　　　}

　　　CDialog::OnMouseMove(nFlags, point);
# X  o: ^8 z3 o' y$ c" n
　　}
6 a* r; g  q. X$ E
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
8 f& o" A* i1 n  E
, u: Q# ]/ J0 P2 [( j5 v　　void CWingImgDlg::OnPaint()

& \7 n/ n  A$ u8 O7 o. N. i1 }　　　{

; M+ _* s7 M$ H( T0 j5 n3 ?' G& Q" W　　　　CPaintDC dc(this); // device context for painting

　　　　file://其他的显示内容，省去。

: ^% |5 e$ z+ e" @6 i8 ^　　　　if(m_pImgInfo != NULL)

　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
: ]! g8 s9 F& V- J3 v  T
  Q* a4 z4 N* x6 I, C( w　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

, V, f( I' k$ i3 J5 k　　　　　CDialog::OnPaint();
$ D* O$ M3 d4 r* `
$ P* U. j4 ^! |0 A3 }1 [　　　　}
　　第四步：刷新处理。

　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
4 g3 m5 T7 j1 D, G
  s) b6 l4 p5 s% D! k' J! [　　　UpdateWindow()；
9 H1 `: T$ r3 {7 N& ~. Q
# U9 r- e9 r7 [7 F0 z, t  y　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
0 E: h# @( p  Z+ g
　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
; X: _0 S- G: S; E+ a" w) u
　　　　UpdateWindow();
# H6 b  [4 H) k& i
3 F3 b1 g3 F- b- H- F" ?# g　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

/ B* f& V! x: v' d　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
) ^$ H9 \, K  k0 n
4 y; U" d; h- I进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

8 F& Y( ?9 y7 s　　OnPaint();

" n3 Z4 ~: t$ Q1 _　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：
- @0 i& Q! J$ g" L
　　CDC *pDC;

　　pDC = GetDC();
$ @9 v# m, N2 S: n) h4 V
　　if(m_pImgInfo != NULL)

　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
4 A. `4 ]7 F5 O7 m0 I
, A) q/ t' E$ Q) S$ ]5 |　　　ReleaseDC(pDC);

* J" a. k$ R$ S& F8 C. `　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
6 F6 }, ~  c  P: ~+ Z$ ?# t6 A
　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。