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

天云上人

前言：
& b2 S3 S" k( a) E: h
　　在图像的编程中，经常会遇到这样一种情况，在有限的区域中显示了一幅大图，这时要浏览图像的各个部分，这就需要用到图像的滚动。关于它的实现，许多书都有提及，但其中的关键点和难点，即拖动中的刷新和闪烁问题，却讲述的不多，这也是我写本文的目的所在，下面我将详细分析实现方法。
( \" o- w$ }3 w2 ]* b+ u
& a3 o7 b# q5 \% d) f　　实现效果及实现方法：

　　在图像区域中按下鼠标左键，可拖动图像在某一有限区域中任意滚动。

　　方法为 ：拖动时计算上次与本次的偏移，然后将图像显示的起始点进行变化并刷新图像区域。
  A2 i2 k6 v8 K, Q4 T) H' t
　　实现部分：

0 \) ]0 ^$ ?$ F. @0 a" ~　　第一步：响应WM_LBUTTONDOWN 消息，记录按下开始拖动的起始位置。

9 z! F; g$ K& M7 L' f　　void CWingImgDlg::OnLButtonDown(UINT nFlags, CPoint point)
& B  N- ^7 x9 Y/ t% Y- b' }
　　{
9 h$ U1 F. H) H* y, R' R1 M* R4 D, E
, N  a9 P6 O0 q! k8 T: |　　　// TODO: Add your message handler code here and/or call default
) ^5 O8 Q( _) u4 e1 ~
; C( m0 R3 v" U& {( H- }5 y　　　m_lPicOldLeft = point.x;
) J' f5 H* u" d. d( d. c# i
　　　m_lPicOldTop = point.y;

　　　CDialog::OnLButtonDown(nFlags, point);
. m: H$ D6 ~) |# m9 z0 x
　　}

  g4 [7 w0 i# h　　第二步：响应WM_MOUSEMOVE 消息，实现滚动。
/ w# m2 T. e0 i: R
　　void CWingImgDlg::OnMouseMove(UINT nFlags, CPoint point)
5 A; H7 ]3 A% c- j8 i
　　{
8 z+ F3 b9 N1 a% @2 O) H6 h
　　　// TODO: Add your message handler code here and/or call default
+ K' V' U6 }- d
# ^, O- @8 D2 K4 L! h" o/ R  G0 F3 t6 K% u　　　file://如果鼠标按下
6 L8 P4 R* ]" X0 ~' B
* D( [: I* h7 K9 }' C( z　　　if( (nFlags & MK_LBUTTON) == MK_LBUTTON )

5 I( E# }/ T5 C0 B　　　{

　　　　m_lPicNewLeft = point.x;

* S9 @* r5 _& W  O, l7 N7 x　　　　m_lPicNewTop = point.y;

　　　　DWORD dwLRShift = m_lPicNewLeft - m_lPicOldLeft;
/ _8 s/ B, j5 b8 F5 V4 B6 ~3 f
　　　　DWORD dwTBShift = m_lPicNewTop - m_lPicOldTop;

5 f+ c3 z1 E! Y9 K; i　　　　file://改变图像显示的起始点

2 l7 E3 k8 X0 y　　　　m_lPicLeft = m_lPicLeft - dwLRShift;
- Z( J  H; o" h, M
　　　　m_lPicTop = m_lPicTop - dwTBShift;
! T" i4 ^" N! _) t( [! U) I
* z# @  L7 }3 O& p+ u　　　　file://判断边界的语句，省去。

/ E: u% A  L/ ]7 D9 O　　　　m_lPicOldLeft = m_lPicNewLeft;

3 z  a1 y7 c1 u　　　　m_lPicOldTop = m_lPicNewTop;
8 u! N' p2 N/ t$ I5 F$ K  n2 U
( c$ Y; I# d# U  F. E  X　　　　file://进行刷新的语句，见第四步。
+ u& v) |! P1 u0 k  l
　　　}

2 ], z# U( [% c( [　　　CDialog::OnMouseMove(nFlags, point);
4 Q  T) _1 ?! L' ]1 G8 }
　　}

　　第三步：在OnPaint中显示,显示的其他部分，如图像的得来等，省去。

　　void CWingImgDlg::OnPaint()
) P* X' E+ k( y  t, s
　　　{

9 t5 ?6 P# c2 L4 T+ T　　　　CPaintDC dc(this); // device context for painting
* h3 x7 h4 H: P2 ~5 S
3 L' Q- q4 p$ G* o% Y　　　　file://其他的显示内容，省去。
" l. ^- l3 L. P
　　　　if(m_pImgInfo != NULL)
1 O0 I, z) T7 q8 k7 [3 |" `
4 I- W7 F0 a" v! `/ @2 M( ^: {　　　　　dc.BitBlt(m_wShowAdjLeft,m_wShowAdjTop,m_lWidth,m_lHeight,&m_AdjDC,

　　　　　m_lPicLeft,m_lPicTop,SRCCOPY);
$ @; z0 H6 J' O9 ^
　　　　　CDialog::OnPaint();
% K* b) z+ k3 @8 C5 q8 `
9 }) U% g; _) Z) i2 k7 Q　　　　}
　　第四步：刷新处理。
3 Z" {, h* _5 F( W, c: E
7 K% u/ E; v- V' G　　　最常想到的方法，当然是使用Invalidate(TRUE)；//刷新整个无效区
) D' |& t4 Q' B: |8 @
　　　UpdateWindow()；
+ {7 h4 `# U, e) R7 h+ P" {
! L0 G" z5 E4 t1 l　　　这时，会刷新整个程序区域的无效区，闪烁非常严重，改正如下：

. Q% \$ U0 j: _& E# Q3 q　　　　InvalidateRect(&m_rtPic,TRUE); file://仅刷新图像显示区域
. E/ d. c# D1 _; t4 {& x% r# Z
　　　　UpdateWindow();

4 l. D4 E+ r' r+ Z" ^　　　此时，仅会刷新图像所在区域，闪烁有所缓解，再进一步，可使用
: v; I0 `) }/ T# d3 W5 |! k
　　　　InvalidateRect(&m_rtPic,TRUE); file://使用快速重画
1 b3 B" f& q/ m5 h* }$ R1 a
' D$ M$ e2 A6 Z4 y; f3 B) `　　　　ReDrawWindow(&m_rtPic,NULL,RDW_INTERNALPAINT| RDW_INVALIDATE | RDW_UPDATENOW | RDW_ERASE);

进行处理，此时闪烁更进一步减小，考虑到，其他部分可能影响刷新区域，干脆将OnPaint()直接使用在此处，即变为：

' ^6 ?$ B# o5 `  _" u  S' S　　OnPaint();

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

　　CDC *pDC;
1 E% m  `! ~* X
　　pDC = GetDC();
/ P) ~2 Y# K# {6 s: m. _8 h
　　if(m_pImgInfo != NULL)

　　　pDC->BitBlt(m_wShowLeft,m_wShowTop,m_lWidth,m_lHeight,&m_AdjDC,m_lPicLeft,m_lPicTop,SRCCOPY);
9 |* q) G- ~8 Z$ ?3 l% A- [. D
　　　ReleaseDC(pDC);

% x" {: w6 S2 C' e6 q3 e. J! Q　　这种方法很好地解决了刷新闪烁的问题，图像拖动时很平稳且无闪烁。
+ h) N, `% i8 q- t* }8 h
3 l4 n  x  H# u/ u　　这是我在实践中遇到的一个问题，写出来，与大家共享。如果有问题，或者有更好的建议和做法，欢迎和我联系探讨，如需要整个程序的源文件，请Mail联系（DavidZheng@Acercm.com.cn）。