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

天云上人

前言：

　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
1 L$ ~& f0 w8 V
# @# J7 B2 y5 U1 \5 P) `+ f1 D　　实现效果及实现方法：
/ A, R2 P( j9 B* |1 G8 ^% z
9 K' u1 c* P9 \5 U0 [　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

2 }% h6 F* b& e2 |; U　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
' ^( u; {+ t' z# f/ R! o
! q0 |4 f+ q2 H+ B; a3 G& o. O　　实现部分：

' \0 x2 \) [$ G7 y2 G' S　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

# B: [4 g" b! i3 B) ^8 c9 b: E. ?　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
8 U* v4 C1 P% h+ K& H- w
　　{
( B, t1 `/ H& S  `! k
8 G" M  t5 ?  c# r/ p  t　　　// TODO: Add your message handler code here and/or call default

　　　m_lPicOldLeft = point.x;
) P9 I* E! Y# X7 X( f7 l8 K5 I
　　　m_lPicOldTop = point.y;

0 G/ y& Q- ~7 J* Y2 Z' `　　　CDialog::OnLButtonDown(nFlags, point);

' F8 s; t) e- z. b　　}
8 C, s& ~, k6 D" a1 {' s
' R* E  Q: M- m! ?' `; Y/ m* k. X　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
4 x( u# F! Y" {0 L0 d5 a$ z
　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
& ~8 h4 B( _0 r- e( H
5 `  V/ |' F' k& Q7 e6 h　　{

　　　// TODO: Add your message handler code here and/or call default
7 v: R; O& _8 U
　　　file://如果鼠标按下

　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
, u7 u  U, o, K& A
　　　{

　　　　m_lPicNewLeft = point.x;
% h1 i; I6 f2 p' s" Q. C& T  F0 v9 j$ L
　　　　m_lPicNewTop = point.y;
8 Y2 F8 Y+ A- {4 N5 u5 _* O
　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;

7 Q! K9 O/ f( L" w7 L$ O　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

: ?. I' W( J; m, Z　　　　file://改变图像显示的起始点
% q! g" w) z5 T
　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
' |8 ~6 S* V9 r0 W6 K3 D4 J- l3 J
! G- x) r: y( N' V/ v  r　　　　m_lPicTop = m_lPicTop - dwTBShift;

2 Z/ a1 r+ C3 V8 `0 e/ `) `　　　　file://判断边界的语句，省去。
  f1 k; }. j, L" i3 b+ |
) E) F) I& G* }4 e5 y. e　　　　m_lPicOldLeft = m_lPicNewLeft;

0 M! \/ }# C+ Q! L5 e5 l" J　　　　m_lPicOldTop = m_lPicNewTop;
0 S$ W  n/ v+ p  f
, _' c% Z' G( t9 W　　　　file://进行刷新的语句，见第四步。
, x: t& R3 p( r% y8 \# Y( \
　　　}
  i& ~: {8 T; m
　　　CDialog::OnMouseMove(nFlags, point);

7 C. L$ h0 X5 E7 a3 f- D9 d4 ^, X　　}

% S- d5 Q; D% T2 K　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

& o( Q0 b; F; T$ `　　void CWingImgDlg::OnPaint()
. B4 k1 E, J! L) K$ U, e
5 @( G% v) u! f; b' G$ ]: R1 \3 h5 j　　　{

* Q0 L- j1 l% D. w( S　　　　CPaintDC dc(this); // device context for painting
+ z- p! M/ [- u3 E
* j6 i7 q! o8 S/ L* \　　　　file://其他的显示内容，省去。
* F: Y" l" |9 H& o2 O
　　　　if(m_pImgInfo != NULL)

/ R4 Z0 K, d$ _1 l+ C　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
% p$ i+ `) z. R, y# T6 Q
0 L" H" k0 |+ B- ]$ {% V　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

　　　　　CDialog::OnPaint();
. {' t- R6 D, c  I8 U
　　　　}
　　第四步：刷新处理。

4 r1 j5 U: v9 }4 m4 x/ G. J　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区

　　　UpdateWindow()；

　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
  w; w/ U' j; G  U3 K: j' n9 ]) m
　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

+ q* \7 J, S0 p! z( Q　　　　UpdateWindow();

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

　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
* t; }+ x8 J" c! n
, f; P+ ?+ b- I# Q( I2 A6 T6 b, T　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

　　OnPaint();
( J7 [# ]3 p) i( N! R# o
　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：

　　CDC *pDC;

　　pDC = GetDC();
' }" E0 M% Y6 A# c+ c
　　if(m_pImgInfo != NULL)
  t3 N' q6 d' t5 T
9 {8 |2 R3 a4 p/ O/ J　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
8 E4 h# d8 q5 w( P4 L5 h
2 P8 z* Y2 V0 u* X* }; c　　　ReleaseDC(pDC);

　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
$ \! @( S& x' t2 V
　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。