Canvas

FillRect();

prøv og skrive en kode med det i ^^^^
                                ^^^^

MyRect : TRect;

MyRect.Left := 10;
MyRect.Top := 10;
MyRect.Rigth := 50;
MyRect.Bottom := 50;
//MyRect := Rect(10,10,50,50);
Canvas.FillRect(MyRect);

Vil du lave en simpel undo-funktion?

I så fald, så gem dit canvas i en undocanvas variabel, inden du tegner.

{ tegne }
var UndoCanvas : TCanvas;

UndoCanvas:=TCanvas.Create;
TCanvas.Assign(TegneCanvas);
<her tegner du så>

{ undo }
TegneCanvas.Assign(UndoCanvas);

ikke helt forstået prøv at skrive dette!!

Procedure TForm1.Button1Click(Sender: TObject);
begin
    Canvas.MoveTo(30,40);
    Canvas.LineTo(200,110);
    Canvas.LineTo(100,200);
    Canvas.LineTo(30,40);
end;

Procedure TForm1.Button2Click(Sender: TObject);
begin
    //denne knap skal så slette linien der vender ned mod hjørnet
      nederst til højre//

Dette er også en mulighed;

begin
    Canvas.Pen.Color := Canvas.Brush.Color;
    Canvas.MoveTo(30,40);
    Canvas.LineTo(200,110);
    Canvas.LineTo(100,200);
    Canvas.LineTo(30,40);
end;

Jeg forstår ikke hvad det er du vil ... hvad med at tegne den over med baggrundsfarven?

Canvas.Pen.Color:=clWhite; { for eksempel hvid }
Canvas.LineTo(30,40); { tegn oven i igen }