双缓冲绘图技术.docVIP

双缓冲绘图技术 摘要：双缓冲绘图技术在Delphi中的实现 关键字：Delphi,双缓冲,Canvas 作者：上海翰博数码科技实业有限公司 沈小云 说明：假设读者熟悉VCL 双缓冲绘图也不是什么新技术，简单的说：在绘图实现时不直接绘在窗口上，而是先绘在内存里，再一起“拷贝”至窗口。实现起来也不复杂，创建一兼容HDC,在此兼容HDC上绘图，最后拷贝到窗口HDC就行了。本人前段时间把一C++实现该技术的代码改成了Delphi代码，都是用Win32API写的。今改成了使用Delphi自带的类，试了一下(窗口类Canvas与TImage的Canvas)。实现方式大同小异，但不得不提的是在窗口中直接使用Canvas绘图与TImage.Canvas却不相同。使用TImage.Canvas绘图时，自动使用了双缓冲技术，而窗口的Canvas对像却未实现。怎么回事呢？看一下代码吧，“源码面前没有秘密”! 一．TImage类的Canvas TImage = class(TGraphicControl) ... property Canvas: TCanvas read GetCanvas; ... function TImage.GetCanvas: TCanvas; var Bitmap: TBitmap; begin if Picture.Graphic = nil then begin Bitmap := TBitmap.Create; try Bitmap.Width := Width; Bitmap.Height := Height; Picture.Graphic := Bitmap; finally Bitmap.Free; end; end; if Picture.Graphic is TBitmap then Result := TBitmap(Picture.Graphic).Canvas else raise EInvalidOperation.Create(SImageCanvasNeedsBitmap); end; 可知TImage.Canvas来自Bitmap.Canvas，好，那来看看TBitmap.Canvas function TBitmap.GetCanvas: TCanvas; begin if FCanvas = nil then begin HandleNeeded; if FCanvas = nil then // possible recursion begin FCanvas := TBitmapCanvas.Create(Self); FCanvas.OnChange := Changed; FCanvas.OnChanging := Changing; end; end; Result := FCanvas; end; 显而易见TBitmap.Canvas = TBitmapCanvas.Create;也就是说TImage.Canvas=TBitmapCanvas.Create.即使用TImage.Canvas绘图时，实际是在TBitmapCanvas上绘图的。让我们再来看看TBitmapCanvas类: TBitmapCanvas = class(TCanvas) private FBitmap: TBitmap; FOldBitmap: HBITMAP; FOldPalette: HPALETTE; procedure FreeContext; protected procedure CreateHandle; override; public constructor Create(ABitmap: TBitmap); destructor Destroy; override; end; 关注一下CreateHandle函数: procedure TBitmapCanvas.CreateHandle; var H: HBITMAP; begin if FBitmap nil then begin