高分求助：怎样在image上绘图

Question

主要往image.canvas上画即可。
无闪烁：image.canvas.Brush.Style:=bsClear;
例：
  with aImage.Canvas do
  begin
    Brush.Style := bsClear;
    Brush.Color := clRed;
    FillRect(Rect(0, 0, Width, Height));
    Pen.Color := clWhite;
    Pen.Width := 1;
    Font.Name := '宋体';
    Font.Size := 10;
    Font.Style := [fsBold];
    Font.Color := clLime;
  end;
方法：先再加一个image让它的picture为背景图片。用Canvas.draw方法先画上背景接下来再画小图标。结合moveto,lineto 等就可以了。

Answer 1

使用Cavans来绘图就是，注意当无效的时候要重画！