Eigene Objekte -> PaintBox

[mimi]

ich habe es heute mit diese porcedure versucht:

Delphi-Quellcode:

procedure SetPixel(x,y:Integer; Canvas1:TCanvas);
begin
  Canvas1.Pixels[x,y]:=clBlack;
end;

procedure TForm1.ObenObj(F:TFileName);
var
  i,x,y:Integer;
  l:TStringList;
  bild:TCanvas;
begin
  ox:=-1; oy:=-1;
  Bild:=TCanvas.Create;
  Bild.Brush:=TBrush.Create;

  if FileExists(f) = True then begin
    l:=TStringList.Create;
    l.LoadFromFile(f);

    for i:=0 to l.Count-1 do begin
      x:=StrToInt(GetToken(l.Strings[i],':',1));
      y:=StrToInt(GetToken(l.Strings[i],':',2));
      SetPixel(x,y,bild);
    end; // for
   PaintBox1.Canvas.StretchDraw(Rect(2,2,2,2),Bild.Brush.Bitmap);

  end // If
  else
    ShowMessage('Dateinamen gibt es nicht !');
end;

aber leider gibt er einen fehler:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt CreateObject.exe ist eine Exception der Klasse EInvalidOperation aufgetreten. Meldung: 'Leinwand/Bild erlaubt kein Zeichnen'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

den kann ich nicht nachvollziehen.
Meinziel ist es später das ich das bild mit der Maus vergrößern und Verkleinern kann.

Die bilder die ich damit vergrößern möchte enhalten nur kleine objekte wie z.b. Dreiece, Häuser, und soweiter. Das was bei delphi nicht dabei ist neben.