Canvas: "erlaubt kein Zeichnen"

[VkPenguin]

Hallo,

ich bins malwieder. Als ich in einem Programm mit TCanvas arbeiten wollte, bekam ich diese Fehlermeldung immer, wenn ich auf die Leinwand zugriff. Da ich im Forum in vielen Themen gehört habe, das könne mit falschen Komponenten oder Threads zusammenhängen, habe ich das Problem erstmal in einem Testprogramm isoliert, das aus nichts anderem besteht.

Doch immernoch:

---------------------------
Anwendungsfehler
---------------------------
Exception EInvalidOperation in Modul CRG.exe bei 000269C9.

Leinwand/Bild erlaubt kein Zeichnen.
---------------------------
OK
---------------------------

Ein bisschen was hab ich ja aus meiner Zeit hier schon gelernt, daher kann ich schonmal folgende Zusatzinformation geben:

Tests mit dem Debugger ergeben, dass es an Zeilen liegt, in denen ich die Canvas direkt anspreche.

z.B. Canvas := TCanvas.create; und Canvas.Pen.Color := clred; -> funktioniert, aber
Canvas.MoveTo(100,100); und Canvas.pixels[200,100] := clblack; -> Fehlermeldung

{Falls jemand eine Antwort geben kann, die er aus diesem oder einem anderen Forum entnehmen kann, wäre ich euch sehr dankbar, wenn ihr mir sagt, wie ihr das gefunden hab, damit ich nächstes Mal vielleicht nicht wieder blöd fragen muss und selbst suchen kann }

Dankeschön für die Hilfe schoneinmal!

[himitsu]

Tja, das TCanvas ist ein Kontainer/Schnittstelle für eine Zeichenfläche.
Es selber hat aber keine Zeichenfläche und wo nichts ist, da kann man auch nichts zeichnen.

TBitmap?


Das ist praktisch genauso wie beim abstrakten TStream oder TStrings, welche ebenfalls selber keine Funktionen bieten.


Ach ja, Pen ist eine Instanz von TPen und diesem kann man Werte zuweisen, auch ohne Zeichenfläche, da sie alleinige Zuweisung hier entweder nicht auf das Canvas zugreift (du zeichnes ja nicht in diesem Moment etwas damit), bzw. das kann teilweise intern gespeichert werden, solange noch keine Zeichenfläche existiert.

[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.

[VkPenguin]

Hm, ich muss gestehen, auch wenn ich mir sowas in Richtung "Wo nichts ist, kann man auch nichts Zeichnen" schon dachte, dennoch verstehe ich nicht ganz, was du meinst. Mein eigentliches Ziel war, das JPEG (Kann ich aber auch zum BMP umwandeln, wenn das praktischer ist) "Test.jpg" anzuzeigen. Im Internet habe diese Antwort gefunden und dann ins Testprogramm geschrieben:

Delphi-Quellcode:

...
jpg:=TJpegImage.Create;
jpg.LoadFromFile('jpg.LoadFromFile('C:\Users\Pictures\Test.jpg');');
canvas.Draw(0,0,jpg);
jpg.Free
...

Bei der "Canvas.draw"-Zeile stürzt das Programm aber ab. Muss ich vielleicht noch irgendwo die Leinwandgröße oder soetwas festlegen? Konnte in der Datenbank aber nirgends finden, dass etwas derartiges dafür nötig wäre.

@Popov:
Ahh! Jetzt wird mir das schon etwas klarer. Wenn ich das richtig verstehe muss das Bild sich auf die Leinwand zeichnen - also "BILD.LEINWAND.machetwas" - ja? (oder nein? )

Aber wie funktioniert das jetzt mit meinem JPG? Ganz so einfach funktionierts bei mir zumindest nicht, oder ich hab mich wieder irgendwo vertan.


Danke für Eure schnelle Hilfe!

[Popov]

Zuerst, sonderbar, aber auch wenn die Bitmap die Höhe und Breite 0 hat, kannst du dennoch über Canvas das Pixel 100, 100 ansprechen. D. h. die Leinwand ist da, der Zugriff ist nur etwas außerhalb der Leinwand.

Nun zum Jpeg. Nagele mich nicht fest, aber ich glaube nicht, dass Jpeg eine Canvas haben. Also zuerst Jpeg2Bmp, dann auf Bmp arbeiten, dann wieder in Jpeg.

[VkPenguin]

Ok, vielen Dank. Ich werd das JPG morgen mal konvertieren und das ganze nochmal versuchen. Kann etwas dauern, bis ich dazu Zeit gefunden habe, melde mich dann aber aufjedenfall mit dem Ergebnis!

[Medium]

Das Canvas in deinem Schnipsel da oben ist sicherlich in einer Methodes eines Formulares. Dort referenziert es implizit self.Canvas, und TForm.Canvas ist mit einer Zeichnfläche hinterlegt, wie auch TBitmap.

Wieder ein Fall, wo ich die Namenswahl von "Canvas" anprangern muss, da sie völlig irreführend ist. Alles, was "Canvas" macht ist, dir eine Palette, Farbpaste und Pinsel in die Hand zu drücken. Die Staffelei und die Leinwand (engl. Canvas) und den Keilrahmen musst du selbst besorgen. TCanvas alleine (ohne einen assoziierten DC) stellt reine Funktionalität bereit, nicht mehr.

Es macht nur Sinn, eine Instanz von TCanvas selbst zu erzeugen und verwenden, wenn man dieser nach Erstellung noch einen DC verpasst. TBitmap tut dies für dich.

[Perlsau]

Zitat von VkPenguin:

---------------------------
Anwendungsfehler
---------------------------
Exception EInvalidOperation in Modul CRG.exe bei 000269C9.

Leinwand/Bild erlaubt kein Zeichnen.
---------------------------
OK
---------------------------

Wieso legst du nicht einfach eine TPaintBox auf dein Form und zeichnest darin herum?

Delphi-Quellcode:

PaintBox1.Canvas.MoveTo(0,0);     
PaintBox1.Canvas.LineTo(300,300);

[Delphi-Laie]

Warum erzeugt Ihr ein Canvas?

Canvas steht doch für jedes Formular von vornherein zur Verfügung!

[himitsu]

Klar, die Form hat schon ein Canvas,
aber wer sagte, daß der TE auf die Form zeichnen wollte?