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

天云上人

前言：
6 i9 c/ z% L& r$ u
6 u3 o" {3 B  o　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。

　　实现效果及实现方法：
7 K) q2 H& C* e/ Y- S$ T1 n0 f
　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

1 |+ [  T9 D( d' K7 h　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
, J" W* U* N3 V3 z0 }
　　实现部分：

　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

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

　　{
! l6 ^' u7 f" t3 K
　　　// TODO: Add your message handler code here and/or call default
1 e4 e" p" S. x% Z$ V: X
　　　m_lPicOldLeft = point.x;

) U) w+ n& S( A" i　　　m_lPicOldTop = point.y;
9 B9 Z8 v8 c7 W& m& n
3 s0 V9 G& h7 j9 u. s　　　CDialog::OnLButtonDown(nFlags, point);

　　}

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

1 l* q7 G* ]: o2 e1 ^: B" Y$ L　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
1 v3 Y3 K+ h# A% L
1 X3 W0 w: H/ o　　{
6 b1 z8 Z7 Q# p/ v8 V
　　　// TODO: Add your message handler code here and/or call default
8 p. r, {) }; C: I. M) v/ S: u
　　　file://如果鼠标按下

2 _& R# x; A/ u　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
) k/ C1 {, d  f, z+ w
　　　{

4 h7 k- n# n8 c4 i8 U/ [　　　　m_lPicNewLeft = point.x;
3 r. ~! ]. N: I' p2 M! f. o3 f
　　　　m_lPicNewTop = point.y;

　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
7 G+ R5 P3 M, i& a- z
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

8 D4 k5 L) z% Y- b+ I( h　　　　file://改变图像显示的起始点
  M& ?. n$ |/ ^
* l! b4 h% s- c0 L" i% V　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

　　　　m_lPicTop = m_lPicTop - dwTBShift;
. a) Z8 T  q; K: ~7 s
　　　　file://判断边界的语句，省去。
! Z# e: d7 Q. I$ C$ Y" y5 i: n$ ^
　　　　m_lPicOldLeft = m_lPicNewLeft;
! l- Z# Z. k; L& G
　　　　m_lPicOldTop = m_lPicNewTop;
( p5 m8 i5 j3 o" C* ]8 O" F
　　　　file://进行刷新的语句，见第四步。

　　　}
% ]9 N# J; A% F4 t5 M
; }, R% |% L7 Z　　　CDialog::OnMouseMove(nFlags, point);
- y  d0 V7 S5 m6 q0 ]$ S
/ x# N& c" A4 s7 Z0 e% d( d　　}
0 }2 a! l. B- u* \% G$ p
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

　　void CWingImgDlg::OnPaint()

0 q  ^5 p6 {' u3 n6 |0 x! m) E* d5 s　　　{
# i4 g7 f7 }. j1 @
　　　　CPaintDC dc(this); // device context for painting
# A9 ^; W0 o9 x2 V9 `( I# _) w: |
# \& a1 O& g0 G7 `7 U# `　　　　file://其他的显示内容，省去。

3 d; D# `3 H6 S, i8 }7 d0 L8 o8 z　　　　if(m_pImgInfo != NULL)

　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

" P! L  K6 R. b2 J0 F+ f. I　　　　　CDialog::OnPaint();

- q" t* M( H, w  T　　　　}
% t5 }4 \) X) ^1 S　　第四步：刷新处理。
  B7 y1 Y; d* g4 V! @: l- b/ K
1 a: r/ b9 e! ^1 X  p. @# q  [　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
2 `: Q: J! I" E) ]4 V# [  m
; d. |7 h! ?# i( d/ i4 x. C- n/ g　　　UpdateWindow()；

' f4 D) s! e- u) H. n( O& V　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

7 y4 E% |( V' G/ F) k　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

　　　　UpdateWindow();
( e& \/ D" l# U" X" v9 s
　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

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

) t! [3 W3 C9 w/ T2 J5 V8 E　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
3 T6 u. Q3 P2 c6 \8 R5 d0 \
进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
1 x3 x  V, b/ ~4 X" R7 V
% U) j( N, D+ _6 E- |$ B　　OnPaint();

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

　　CDC *pDC;
* k0 A7 B( U( N/ g. Y7 w- g( j* o% N9 w
　　pDC = GetDC();
! e8 p. z( q* g# m+ J7 o
% t$ E' @! M! t; v. P" L# M　　if(m_pImgInfo != NULL)

　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
) E6 O5 u- X  X5 Q; K4 g# y! c
　　　ReleaseDC(pDC);

& L9 ?* K3 Z2 ?  i5 B; i　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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