Canvas: "erlaubt kein Zeichnen"

[Popov]

Nur mal auf die Schnelle: kann sein, dass die Leinwand fehlt?

Das klappt nicht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Can: TCanvas;
begin
  try
    Can := TCanvas.Create;
    Can.Pen.Color := clBlack;
    Can.Pixels[200, 100] := clBlack;
    Can.Free;
  except
    MessageDlg('Shitt!', mtError, [mbOk], 0)
  end;
end;

Das klappt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  try
    Bmp := TBitmap.Create;
    Bmp.Canvas.Pen.Color := clBlack;
    Bmp.Canvas.Pixels[200, 100] := clBlack;
  finally
    Bmp.Free;
  end;
end;

Edit:
himitsu war schneller. Scheint also zu stimmen.