您的位置：首页 > 其它

简单的 "双缓冲" 绘图的例子（研究一下）

2016-03-31 20:56 337 查看

所谓双缓冲就是先画到内存画布(如: TBitmap), 然后再转帖到目的地.

譬如下面小程序:

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100;
Color := clWhite;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Pen.Color := Random($FFFFFF);
Canvas.MoveTo(Random(ClientWidth), Random(ClientHeight));
Canvas.LineTo(Random(ClientWidth), Random(ClientHeight));
end;

改为双缓冲绘图可以是:

var
bit: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 100;
bit := TBitmap.Create;
bit.Width := ClientWidth;
bit.Height := ClientHeight;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
bit.Canvas.Pen.Color := Random($FFFFFF);
bit.Canvas.MoveTo(Random(bit.Width), Random(bit.Height));
bit.Canvas.LineTo(Random(bit.Width), Random(bit.Height));
Self.Canvas.Draw(0, 0, bit);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bit.Free;
end;
 http://www.cnblogs.com/del/archive/2010/04/19/1715779.html[/code]

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航