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.