Delphi 2010 - 如何复制和清除 TShape

Question

好的，使用 TShape 后，我需要清除线条和文本中的“Shape1”。

还有如何将“Shape1”中的所有内容复制到“Shape2”中？

谢谢B4^o^

    type
      TShape = class(ExtCtrls.TShape); //interposer class

      TForm1 = class(TForm)
        Shape1: TShape;
        Shape2: TShape;
        Button1: TButton;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
      public
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
//        Draw some text on Shape1 := TShape 
        Shape1.Canvas.Font.Name :='Arial';// set the font 
        Shape1.Canvas.Font.Size  :=20;//set the size of the font
        Shape1.Canvas.Font.Color:=clBlue;//set the color of the text
        Shape1.Canvas.TextOut(10,10,'1999');
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
//        Copy everything from Shape1 to Shape2 (make a duplication)
//        How to do it ? 
        showmessage('copy Shape1 into Shape2');    
    end;

    End.

Answer 1

以下伪代码将 SourceShape Canvas 内容复制到 TargetShape Canvas ，但仅在 TargetShape 刷新之前进行:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TargetShape.Canvas.CopyRect(Rect(0, 0, TargetShape.ClientWidth,
    TargetShape.ClientHeight), SourceShape.Canvas, Rect(0, 0,
    SourceShape.ClientWidth, SourceShape.ClientHeight));
end;

要清除之前复制的内容，您可以使用以下命令:

procedure TForm1.Button2Click(Sender: TObject);
begin
  TargetShape.Invalidate;
end;

为了保持绘图持久，您需要实现自己的 OnPaint 事件，在该事件中，无论何时触发，都使用 CopyRect 将当前 Canvas 内容从源复制到目标。方法如上所示。

但问题是，为什么要使用 TShape 控件。最好使用TPaintBox并自己绘制你的东西，包括由TShape控件绘制的形状。