求助，关于绘图闪烁的问题

chenguo

我想在Image控件中拖动实现橡皮筋效果，但是在自己绘图的时候图片闪烁很厉害，这种情况应该是用双缓冲技术解决的，不过小弟对平台中应该怎么写不太清楚，有没有大大贴点代码出来供小弟参考？

zfang

具体可以参考delphi中的实现。
你把具体做法说一下，效果是什么样的。

chenguo

窗体中声明私有变量：
IsAdding: boolean;
X1, Y1, X2, Y2: integer;
有一个Image控件，实现了它的鼠标事件如下：
procedure TMainForm.imgMapMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = TMouseButton.mbLeft) then
  begin
    IsAdding := true;
    X1 := X;
    Y1 := Y;
    X2 := X;
    Y2 := Y;
    imgMap.Canvas.Rectangle(X1, Y1, X2, Y2);
  end;
end;

procedure TMainForm.imgMapMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if IsAdding = true then
  begin
    IsAdding := false;
  end;
end;

procedure TMainForm.imgMapMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if IsAdding = true then
  begin
    imgMap.Canvas.Pen.Mode := TPenMode.pmNotXor;
    imgMap.Canvas.Brush.Style := TBrushStyle.bsClear;
    imgMap.Canvas.Rectangle(X1, Y1, X2, Y2);
    X2 := X;
    Y2 := Y;
    imgMap.Canvas.Rectangle(X1, Y1, X2, Y2);
  end;
end;
就是实现拖动时的橡皮筋效果，但是拖动时图片闪烁很厉害，不知道Delphi里双缓冲代码是怎么写的

zfang

网上搜一下看看，比如
http://blog.sina.com.cn/s/blog_518dfe5b0100c3nx.html

chenguo

算了，结贴

zfang

怎么就结贴了呢？解决了还是有其他问题呢？