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

天云上人

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

7 K' e$ r- a' O4 Q　　实现效果及实现方法：

　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
8 m- B) _2 @( W( Y
& [2 P, g% C# E$ F4 o' J' H* Z/ v　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
) v" L2 t4 [" T4 z' U- [+ _8 z
　　实现部分：

. t2 P/ t8 @7 @& n1 b2 i　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

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

5 W  Z7 D, O. y! t; m　　{

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

　　　m_lPicOldLeft = point.x;

' G4 ?5 }* a6 D* K) C　　　m_lPicOldTop = point.y;
# s6 t  ?' N2 R: q- ]; F
　　　CDialog::OnLButtonDown(nFlags, point);

　　}

　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
+ a5 n1 O4 V5 Z8 o- P+ p" k
8 O# x( J; R% p: E　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
$ W1 a- o. f8 |+ F( s7 U. m. R9 |
" A) k* z# W0 \5 I4 z: @　　{

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

　　　file://如果鼠标按下
* Z: z' C# I$ v/ S
　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
7 c# r8 j( u2 x" q! x# S; G) h6 ^
9 o# t" W. C5 r6 t0 X) f　　　{
% N, e# D( B/ s4 ^; n
　　　　m_lPicNewLeft = point.x;

　　　　m_lPicNewTop = point.y;
( z) ^( o  y3 o0 F1 T
　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
' R2 f" r" A; ~" z" b
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;
) a/ t% W- J7 e
1 E8 J4 z' d  N: y4 W7 a6 w　　　　file://改变图像显示的起始点
+ z/ G; S0 }) @
　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
% P7 h/ S( t( {2 @- Y  z- H
0 {+ ~' [( e( s+ R% e; k　　　　m_lPicTop = m_lPicTop - dwTBShift;

　　　　file://判断边界的语句，省去。

　　　　m_lPicOldLeft = m_lPicNewLeft;

　　　　m_lPicOldTop = m_lPicNewTop;
8 Q9 M# p+ U/ R% V, H
2 o: E, Y% U& e+ U" f　　　　file://进行刷新的语句，见第四步。

　　　}
: A5 Z4 p! u6 n# |
　　　CDialog::OnMouseMove(nFlags, point);

　　}
9 M" |* W2 B/ G) @" M
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
' p( @- A% b# k; K& D9 |
　　void CWingImgDlg::OnPaint()
+ }  A6 v* g. J
　　　{

　　　　CPaintDC dc(this); // device context for painting
4 P0 z3 o$ m5 ^! ?) w' ]4 z% Y# N
　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
& t: L0 M! G; k
　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
" {# X, k2 p2 c+ |
　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);
1 d: I3 f& D5 S
　　　　　CDialog::OnPaint();
9 [8 Q- H; p' \4 s) K- Q* l1 l
　　　　}
　　第四步：刷新处理。
# e8 f+ L) L# A7 G4 l- P) J, a
. b& w, `' J( @9 U; p+ s- ?　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区

2 b. V" A: K0 J$ h& G8 C　　　UpdateWindow()；

8 B& l" C4 e# j1 }　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

　　　　UpdateWindow();

　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
5 R& Z5 ^$ @# X
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

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

. f6 m. F6 O. x进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
  `9 l' l8 N, L$ }1 w
　　OnPaint();
; G7 H1 o) g6 [4 Z
　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：

) S% p( i' p7 c) v1 E　　CDC *pDC;

% N) y$ q7 z  X, x% {　　pDC = GetDC();
6 H! x: O; R3 z: q2 U/ S2 x
　　if(m_pImgInfo != NULL)
6 g5 e; g  V. U" z* ]( J. K0 Q
* y. E4 s0 D' U: q　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
9 G4 b, a4 [) F: N& _* U
　　　ReleaseDC(pDC);

2 u- ?3 }  d7 A) [　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
3 b4 E- T6 I. [( B5 E' n( `- I) N
　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。