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

天云上人

前言：
5 X  N: L! H+ L8 S+ g; l9 m' U
　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
# f. ~$ M# C4 P3 ]" }
3 l, j% h7 T1 m' a: z& C　　实现效果及实现方法：

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

　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
% U1 M; f# v: w3 m2 ]
　　实现部分：
8 X, {; S& z2 {/ X/ e  m2 R
　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。
, G: F& _  H; h$ ]
" ~" C2 y% X) q2 ~. h* [　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)

% T! C( s) N" R- d/ T9 p& _" y! Q: n　　{
1 d. N( o% s) }+ q
　　　// TODO: Add your message handler code here and/or call default
+ \0 Q3 M* X& k& N' ?9 a9 _7 V
3 _4 m* J/ ]# o$ l8 p3 e　　　m_lPicOldLeft = point.x;

0 m! t  w$ n7 P4 i' a　　　m_lPicOldTop = point.y;
: J2 L. L" r8 a! F/ R" v
( L1 Q/ [) h9 B% S　　　CDialog::OnLButtonDown(nFlags, point);
2 f7 E: X- i8 Z1 H8 x8 j5 |
+ `% @6 B$ g  q　　}
1 R" _4 k$ v/ E! i  H8 p
, U# i7 @6 h0 a1 q" @　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

& H8 R4 @6 H$ c( m* N+ K　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)

# `+ x% ]9 [; {. W% M; o( m! _　　{

) x1 U/ c" v/ H3 u7 m; E) h　　　// TODO: Add your message handler code here and/or call default

- l9 J' q. ?* t9 Q, i/ S　　　file://如果鼠标按下

　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

　　　{

2 C- O$ F& m+ L- `　　　　m_lPicNewLeft = point.x;

1 M# s8 L8 u- r( S+ G! c( w　　　　m_lPicNewTop = point.y;
! B2 D# \7 S. y/ f2 L/ p& l
　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
3 u7 A9 j9 z8 Q/ w5 ?9 ?
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

　　　　file://改变图像显示的起始点

　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

: p$ X0 E$ \, j' r$ W) r; ^& g4 Q　　　　m_lPicTop = m_lPicTop - dwTBShift;

$ v7 w" d1 z( y　　　　file://判断边界的语句，省去。

　　　　m_lPicOldLeft = m_lPicNewLeft;
7 n* J) v  L8 `$ W# O4 q
/ `2 J; V% w$ Y( r1 I　　　　m_lPicOldTop = m_lPicNewTop;

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

　　　}

　　　CDialog::OnMouseMove(nFlags, point);
4 w* t9 }8 ~4 I- Y4 Q) m6 ?4 U4 D
0 q9 {; ~3 S7 R% J8 U' R　　}
: ^& v$ p0 n# W$ e3 h: ?% y" p
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

　　void CWingImgDlg::OnPaint()

　　　{

6 W2 r$ H( B! N! B) _/ p- @; P　　　　CPaintDC dc(this); // device context for painting

5 N' m9 R( C3 e# N  ~" I+ S　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
9 X; I% l0 p$ D. T; w5 o
　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
1 k9 X, V/ M' p$ @
. e7 A+ E' U  m; j　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

* j0 w' X/ [7 S7 ~　　　　　CDialog::OnPaint();

　　　　}
　　第四步：刷新处理。

　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
7 f# b" c8 J- Y! @- y5 Q
6 z( q; s% c" o# q. m4 m- F　　　UpdateWindow()；

　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
7 J" i) Y, i+ H" B' M
; ^9 Q6 x0 v. z; W! B, H　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

/ C' b8 r; F: H, w2 q　　　　UpdateWindow();

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

　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
7 A- k0 Z. b# S- Y% O# f; P& l
/ ]4 w3 a: S6 m: T9 F0 o: m　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
# _2 i4 G9 d  e2 b4 o; }: s
进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

5 g" u0 j: z# p1 X, j; y* h1 N　　OnPaint();
" Y( Q# C, Y. ?" x2 s
　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：

　　CDC *pDC;
0 ]& @1 G+ _/ {2 h2 ?
" G8 i/ ^9 \9 H7 U2 T- ]* P- x9 |, k　　pDC = GetDC();

　　if(m_pImgInfo != NULL)

　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
0 |2 b( q- b9 t! ?
$ |  N7 b" Y# o, z7 k! W　　　ReleaseDC(pDC);

$ ?( }3 @4 f+ x0 T, D+ {3 v　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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