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

天云上人

前言：

　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
+ z, X9 \9 G2 d5 p3 O! T/ u
; i# r0 V' ~! i1 j& d( r　　实现效果及实现方法：

: K' ]$ P% \5 c8 D: i. g　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
; M0 Y2 g- {# F  _: q& s' G
　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
4 o$ e* I/ E* S4 A1 q3 H
　　实现部分：
- J1 z7 q" t1 G4 X7 Z; X2 [0 g
5 S2 ?$ Q$ B! S. E* {4 P; ^8 }　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

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

　　{
) ]8 l" _, n6 F7 n4 _4 v
' n" J) s" O& ^0 j. i: {　　　// TODO: Add your message handler code here and/or call default
( L0 C3 a8 t) V
0 @" e' X5 O1 ?# K　　　m_lPicOldLeft = point.x;
4 k7 ~! I( u$ x
4 g7 w% c8 `3 B0 ]/ x" P5 ~　　　m_lPicOldTop = point.y;

$ o7 [& }  w! t) T  F$ a( \7 u! v　　　CDialog::OnLButtonDown(nFlags, point);
& a1 p1 c/ W% v, w, C& a
　　}
9 Z1 z: J  f* L( ?9 y
; |, K" @6 B, I: T1 {( ~3 T　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
6 v4 c# T. I1 H' E3 I
6 F# n- z# s! X　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)

　　{
8 {# E# C. Z9 d. a4 ?- k
　　　// TODO: Add your message handler code here and/or call default
5 H( V4 t% ]2 \  v5 z% e* V1 P
　　　file://如果鼠标按下
3 K. Z* `/ u' K' i
: Z0 B( p7 B! h7 S( p/ d  l: `　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )
. O$ B* w' z: S- y$ q
! I( d& E% [& b: U: R4 ?　　　{

　　　　m_lPicNewLeft = point.x;

　　　　m_lPicNewTop = point.y;

, J$ O8 @9 {  W( i+ o# u　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
* @' ^  z7 i+ o& P$ N* u; q
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;
$ ]0 F4 W7 T' h: [& X/ K
　　　　file://改变图像显示的起始点
6 \3 O- m: v$ B& U9 {0 o  ?
6 F+ d6 R$ o# J6 I　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

　　　　m_lPicTop = m_lPicTop - dwTBShift;

2 K, j& z" H5 p　　　　file://判断边界的语句，省去。
  a- R$ e6 R( I: h
　　　　m_lPicOldLeft = m_lPicNewLeft;

, I  ~3 D# J+ `6 k　　　　m_lPicOldTop = m_lPicNewTop;

! l. M* t, ?# V) J& b0 m　　　　file://进行刷新的语句，见第四步。
: m" T  v7 J: @, g: V& e# i; V
　　　}
) [$ F6 _2 e& |/ i+ n+ v
　　　CDialog::OnMouseMove(nFlags, point);

) i5 G7 }* J* P2 P6 v' d) J6 `　　}

' q0 t$ D* v( \1 R: d8 x# z　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

# j3 Q& B( F2 w! ~! Y" ]　　void CWingImgDlg::OnPaint()

2 N- D* ?$ L! n7 I　　　{
! N9 k( J+ _+ Z: ~; C' Y
6 t- D" J. \  x. b' j7 f　　　　CPaintDC dc(this); // device context for painting

8 e. E7 C: _# Z% |+ j　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
% T' a4 y2 Z( f# J7 X
　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,
7 z% U' M5 ^5 ~/ T  t0 N5 V
　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

1 V  B: a% c- q8 t& ~　　　　　CDialog::OnPaint();
* T2 D7 s+ r. c! ]( b3 u! J
　　　　}
9 c6 u1 g8 ]" R5 g3 A　　第四步：刷新处理。

　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
6 B6 H- G9 ]  V8 U: M8 b( b( C$ @
% f4 M# p% j2 ]  E3 s  E4 l　　　UpdateWindow()；
( h* C4 E  v* B
　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
+ P8 f9 e! `" O8 P
　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
: x& H9 K7 @; L, t# a( t, U1 a
　　　　UpdateWindow();

, o, d" S( W+ _0 D3 u2 k0 ~　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用

　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
3 D; Z2 Y* o7 C2 Z4 ]' X+ v, O
　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

  x. a. X8 N) V4 J  a+ a+ G. y! R进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：
7 X: Q) a+ M! F4 R# \
  n( E/ B6 {- @　　OnPaint();
/ Z' A' j+ o% B& E  b1 E( ?
) {" A0 U7 E8 a+ g/ x% b　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：

1 ], U8 l4 H* M8 f　　CDC *pDC;
; ^) t' ?2 x: T8 _2 @! M* x
　　pDC = GetDC();

0 e- A7 q7 |- S& W" p　　if(m_pImgInfo != NULL)

　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

　　　ReleaseDC(pDC);
) w8 U: o( H  O' t
4 `& S5 M4 p+ @2 P　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
% g4 s# o$ l3 X! V( P" I6 w
　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。