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

天云上人

前言：

9 |/ ]- t0 L" ?  h　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
% D9 h( s, N" Z
7 w3 W6 H' }1 l/ q　　实现效果及实现方法：

& R7 @$ b. Q% b6 \2 U% X　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

( R8 |* P1 ]3 v% P! V' X) t　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
5 K8 M" f& q, f( ~6 y
3 D9 T9 a+ q6 H7 j: j! ^5 w/ ]　　实现部分：

3 D; m% c+ D+ ]. a　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

: q+ q& {% E. W# r9 ~2 V6 x　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)

4 u: M! @0 d6 V# {5 `4 _4 X　　{

6 J) U; {" Z& |. r8 t　　　// TODO: Add your message handler code here and/or call default
3 w0 Z- o. g/ I
) m* U7 B0 W2 E8 d　　　m_lPicOldLeft = point.x;

　　　m_lPicOldTop = point.y;
5 ~# R; p$ z8 p4 w+ L
9 {1 R' m+ i3 n  u1 P　　　CDialog::OnLButtonDown(nFlags, point);
5 W8 o9 m# ^" S. R6 j- A& W9 Q
　　}
1 q: }6 r/ D% x- _
　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
# m+ B" ]/ j+ s* h. a% K, N2 K$ F
" `( A) W+ B; D. y/ ^　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
7 H$ M4 \# d$ m: @# |
0 M1 P2 z6 z* e/ R　　{

! R7 ~; I/ H; c3 j* F6 B　　　// TODO: Add your message handler code here and/or call default

　　　file://如果鼠标按下
% \+ F# A3 Y! X8 A
　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
8 F' i2 Y  w. G
　　　{

　　　　m_lPicNewLeft = point.x;

9 z7 H, N( f; `6 @. h　　　　m_lPicNewTop = point.y;
- k0 |; |  u. ~$ Q; P0 K! t0 O
$ \/ q7 |+ \7 n% \, }5 I: h　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;

　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;
3 g7 x$ i4 `" J
　　　　file://改变图像显示的起始点
  C( p; H* |5 N% L% W5 `4 s
: \. q5 |+ C# Z+ C; v2 g1 ~8 f0 r. ]　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
* N; D; ^  i2 B6 V$ ~8 e
% e5 c5 n, S) V( \1 Z　　　　m_lPicTop = m_lPicTop - dwTBShift;

9 M8 ^+ f, G& |: M! H0 Y　　　　file://判断边界的语句，省去。
7 X5 @9 C! i7 N- S8 G. }  T
) U. d' M- s: e7 a& ~$ ~2 p　　　　m_lPicOldLeft = m_lPicNewLeft;

　　　　m_lPicOldTop = m_lPicNewTop;

0 R6 h" J  b' R4 p7 N　　　　file://进行刷新的语句，见第四步。
. T! D- Y- X8 Y' a
　　　}
, n4 p! _7 f6 V! M" W
5 _) b1 x% M* i# }( H　　　CDialog::OnMouseMove(nFlags, point);

' W% X9 Y: C* O6 N* K　　}

2 F% J0 K  T# }4 f1 o: `　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
6 I  W! I( e1 ~8 b% l* x+ c8 d
9 h$ T+ t4 W. f* v& O　　void CWingImgDlg::OnPaint()
4 }! }' f0 z  ~' c, a; F: W
　　　{

- Z: A9 I0 N$ J6 m# ]. @7 b　　　　CPaintDC dc(this); // device context for painting
2 z; V+ S9 C2 l$ C2 l1 P
& z# s# s2 Q1 a. {7 T　　　　file://其他的显示内容，省去。
+ o2 {* b& K) ?5 Q# W! c3 P  v! I
　　　　if(m_pImgInfo != NULL)

$ S4 S$ N, F' Q) Y　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
6 C: _. C( I& z" m
　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

　　　　　CDialog::OnPaint();

8 w& h& A, N  T" b  G; w. w: n) z　　　　}
　　第四步：刷新处理。

　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区

9 I9 W! H, b( B　　　UpdateWindow()；
! O( F! M( U0 J& H  v
　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

4 l; A" ]4 o, T! @; B9 g　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
% `1 G4 q, w6 p% O3 Z
　　　　UpdateWindow();

4 P" n8 K+ N/ `2 s: p: H　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
/ \. U# Y9 W  ]: }
3 K% ^( r" `) q: g/ |) S; P　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
) `2 d  v4 R2 w* P! y
　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
  p4 n$ I+ W" V$ d" P) t/ j3 h! ]
　　OnPaint();

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

% g) R# m6 l/ w$ ?; O# A" L% y　　CDC *pDC;
, ^# L, K- I, ?) V7 b9 P8 z3 h( Z
　　pDC = GetDC();
' k- B4 k0 U9 }9 m: Q% ~
5 b; i. a) w, d　　if(m_pImgInfo != NULL)

0 z, O6 B7 x6 K$ H% G% F　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
6 J1 Q$ a2 x, A
　　　ReleaseDC(pDC);
6 J( A/ m3 A0 ^2 ]3 b1 N
) X1 s9 t3 D; O　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
* v1 R# X3 u6 V8 N
　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。