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

天云上人

前言：

' N% \, ^+ I4 p$ d4 U　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
  n0 f5 a- h. g- o+ {
# y+ O# j# F0 G: B3 ?　　实现效果及实现方法：
9 s, q- l+ X1 T8 ^' E
* R' R) v0 H2 _, c　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
$ y8 _$ R# h1 S  a' |
' Q* _! |1 F; n" I　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
( Y' b* }4 b& L3 L
! q* `6 W6 z* d0 r( c: |+ G7 o# Q　　实现部分：

) j  z9 o. \  R6 P* s  I+ ]　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

# b, X2 y$ `$ ^& z　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
* x: d% O% g" Q5 {8 [: v; c
　　{
8 q7 M  m1 D  l6 Y- n3 Y
　　　// TODO: Add your message handler code here and/or call default
+ ^& }  i5 D. c1 a7 Y- F4 |. P
　　　m_lPicOldLeft = point.x;
4 Y$ h' e5 ~. v
　　　m_lPicOldTop = point.y;
" e5 B$ s' Q' t& w
　　　CDialog::OnLButtonDown(nFlags, point);
% W9 s. }& J) u& z2 Z# l
　　}
" B, x4 t( T* S  {5 P2 o
$ J7 I/ b- V# e6 ~, p& b: G. i　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

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

　　{
) O2 V# j* R0 D' {% n5 s! v% a
3 |; c+ e) ]. A2 X8 c: f7 }　　　// TODO: Add your message handler code here and/or call default

6 A$ Z. ?  j1 ], T: a9 p　　　file://如果鼠标按下
, w: p4 K3 F. J6 t# }
3 S( v$ h, @& ~/ D' Y9 _* P; O　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

　　　{

　　　　m_lPicNewLeft = point.x;
+ N4 b% n+ P$ }9 _* j7 |
　　　　m_lPicNewTop = point.y;

* u5 x8 V0 r4 H+ H　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;

8 B4 D' t2 q+ Z/ m, V) z　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

5 K+ b0 X# `7 {( d9 Q. ?　　　　file://改变图像显示的起始点
4 @9 K" r0 H1 B
' s, y" B; p& p2 l7 `, |　　　　m_lPicLeft = m_lPicLeft - dwLRShift;

　　　　m_lPicTop = m_lPicTop - dwTBShift;

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

' q1 d5 G; _) P- [& `　　　　m_lPicOldLeft = m_lPicNewLeft;
' L% \; |( }% M: W+ Q
　　　　m_lPicOldTop = m_lPicNewTop;
& |6 q- I& o" j; K7 Q
　　　　file://进行刷新的语句，见第四步。

　　　}

: r1 N1 e. Q4 w5 K# x6 T　　　CDialog::OnMouseMove(nFlags, point);

　　}

. z  {) M0 E8 @' ?0 k6 P8 H6 }5 x　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

# ]% ~; i$ u& p8 |& d6 R　　void CWingImgDlg::OnPaint()
8 E) ~) w! ]4 o$ v
　　　{
: o/ h+ N$ \: G3 ~$ `0 l1 w5 ]" {
5 K( D& \( A5 W% \　　　　CPaintDC dc(this); // device context for painting

　　　　file://其他的显示内容，省去。

　　　　if(m_pImgInfo != NULL)
0 o! B- L& H& a
8 ~5 m# y/ W7 d0 A; t% v, C　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);
1 ?& X2 x; g0 [$ v
　　　　　CDialog::OnPaint();
; Z! J6 }* S1 A: {: O6 s; @
/ q4 d' z) C' C: U+ t　　　　}
　　第四步：刷新处理。

% S! G# x+ u5 m9 h8 i" {　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
( |5 m; u7 h1 V) Y
7 ^: p  D& ]' J/ k% r% b　　　UpdateWindow()；
# r9 [6 [& a+ ]" O! M) ?+ W, P
; f% S  o, k3 g9 K　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

' ?% y+ Y$ I+ r9 w8 u　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

　　　　UpdateWindow();

　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
# y, V8 z; O- n( t9 B; M( m  V
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
. K. }7 D- l% n4 ~% c
% Z6 V$ n9 J9 `　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
7 [  {, w) [. Q$ E* J3 n  t
# T+ y+ P% _3 }  l进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

- o, U% @2 Q+ }* ?4 L# x/ s# G; }　　OnPaint();

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

　　CDC *pDC;

　　pDC = GetDC();
3 B! s6 R: v+ p8 K4 `
2 p4 J  h$ Y2 x9 M+ `  Q# ]　　if(m_pImgInfo != NULL)

; y7 q3 C1 c( E) n- c! F　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);

　　　ReleaseDC(pDC);
. k' h/ s. U2 p3 O; [* g
$ \" n$ @. J* Q　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

2 `0 h, [1 ~+ g' w& M( Y　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。