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

天云上人

前言：

4 g7 v' V8 n3 r' E& l! z8 X　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
6 D; m3 U5 Y  ]9 n% Q/ v
　　实现效果及实现方法：
/ ~8 q% h; z5 g# F
. y6 l4 T! x. g. t　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。
* ?( ^- l! e) G+ N& }. Z! C- @/ I
% K6 a4 x& b# n. {7 [7 n. T　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。

3 p; m% Z, g) ]" N1 `　　实现部分：
' m6 c5 u& c$ s+ ^( V- A  b/ N
　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
. A+ V! Y! B7 B' B: [% d; S6 C
　　{

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

　　　m_lPicOldLeft = point.x;
" k$ I  {6 A$ e
　　　m_lPicOldTop = point.y;
. Y  a. u: I) q/ h
3 ?+ c- v8 Z$ [3 N. {  X　　　CDialog::OnLButtonDown(nFlags, point);

3 t8 V( c* F) H　　}
: o( [8 R- U. p2 P1 A' }2 D
  h/ _& y, j$ p+ D5 ^8 n# D; F　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。

　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
. p" k4 F: T3 c+ i" {8 L% Q2 O
) e0 |* G8 G( Q　　{

　　　// TODO: Add your message handler code here and/or call default
* N) f" B, N  b. Q, f7 J; F* r4 ^
　　　file://如果鼠标按下
7 A9 S+ K. C. m( h* H2 F  h4 ?, y
" ]+ o$ I0 d- G; H' w7 u- N/ P5 `　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

1 G6 p( j+ y" Z　　　{

: {% v: C1 H: H# A2 ]　　　　m_lPicNewLeft = point.x;
& y  l. C" y' D* [0 e
　　　　m_lPicNewTop = point.y;

4 H* I5 c7 R% |3 J　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
  |5 F4 I9 I9 o: _! K
3 R1 o6 y0 J+ p, P8 y- K　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

' M8 ]  B. h6 R, }6 u　　　　file://改变图像显示的起始点

　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
9 R* F( w6 Q* s, X
　　　　m_lPicTop = m_lPicTop - dwTBShift;

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

　　　　m_lPicOldLeft = m_lPicNewLeft;
) P- R! z4 ^/ ~  P# Y( c
　　　　m_lPicOldTop = m_lPicNewTop;
2 e6 Q! h7 T$ I$ q1 V" t
' O3 b( `+ M4 v6 F, B8 ~: h　　　　file://进行刷新的语句，见第四步。
1 T* p# ?: Y' {& |
& M3 I1 |8 S7 S1 k" C+ i' x% ~　　　}
# H/ B. G. y; }
% y8 H4 ]0 k; H　　　CDialog::OnMouseMove(nFlags, point);

　　}
% h" \$ U0 ]3 ?
　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。
9 R$ o3 A8 g1 n4 x
　　void CWingImgDlg::OnPaint()

* ?7 t/ g2 }$ H1 b' o　　　{
  ]6 e3 _4 g+ ^; j7 L
+ ]1 d6 W) A, u2 @8 H- P　　　　CPaintDC dc(this); // device context for painting
" G& Y) }  }4 {( R) f, _& \
$ K* B. N8 T' u9 _$ ]# b/ I+ G7 X　　　　file://其他的显示内容，省去。
. j) c3 b% _9 \. U
5 t3 t) w# S9 I0 R2 O& G　　　　if(m_pImgInfo != NULL)

　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

6 F) S# C3 T) z3 `$ \　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);

& G8 Z% l% x! F& l' k　　　　　CDialog::OnPaint();

　　　　}
- c$ }8 k+ m% `9 R5 \/ ^) x　　第四步：刷新处理。

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

4 G4 g! a+ l% K" x  Q8 s9 j　　　UpdateWindow()；
4 i3 Z% w( Z& x. |8 J
　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：
1 n/ A4 v# y. w, D* T( w
9 ?# M8 g% b4 b0 C: g2 q0 p# f1 k0 b　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域

　　　　UpdateWindow();

) M3 J/ |. Y2 U; I8 P* W0 l7 y3 f　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
8 S& n3 B( `  s. o) r$ k& d
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画

, ^/ b* j" [% w; j　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);
" _2 s! H0 ?# V- k) T2 f
进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

　　OnPaint();
4 ]% c0 I3 a! [
6 t) R% R! \9 n　　但如果在OnPaint()中有大量的绘图语句，这种方法仍旧不可行，考虑到不能激发OnPaint（）这一因素及控制刷新范围，我采用了如下非标准的方法解决，代码如下：

　　CDC *pDC;

　　pDC = GetDC();
" N  I# Q5 P8 Y5 v' f" H
0 f) d* g4 A6 w8 h' ^% \# J* v　　if(m_pImgInfo != NULL)

# \+ W, o$ Q8 F* L" e; t. M6 K　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
) t: U2 b/ e: z4 f5 P
　　　ReleaseDC(pDC);
: \# C8 ~/ Z! v' m. x1 J9 l
9 v6 Q1 x) R. v8 N　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。

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