Hallo.

Gibt es eine Komponente in der ich eizelne Pixel zeichnen lassen kann?

Danke und Gruss Sven:)

Wie, wo, was? Worauf Pixel zeichnen? Canvas, Form oder auf der Compo selbst... wär evtl. nicht schlecht, wenn du deine Fragestellung etwas klarer formulierst

AXMD

Ich möchte das ic in einer Procedure einzelne Pixel einer Zeichenfläche schwarz färben kann. Die Zeichenfläche sollte eine Komponente sein, zB Image oder etwas ähnliches, hauptsache ich kann einzelne Pixel schwarz färben.

Die TPaintBox ist das, was du suchst.

Stefan

Ahh, vielen Dank:)

Hmm, habe in der Hilfe nacgeschaut und die canvas methode drawpoint gefunden, aber wenn ich dann schreibe


sagt er mir unbekannter Bezeichner "drawpoint".

Kann mir eienr ein Beispiel geben wie ich zB den Punkt (3/5) der Paintbox schwarz färbe?

Danke und Gruss Sven

paintbox.canvas.pixels[3,5] := clBlack;

Du musst aber sicherstellen das die Einfärbung in der Routine OnPaint vorgenommen wird, sonst verschwindet die färbung sobald z.B. ein anderes Fenster über dein gemaltes gezogen wird.

ahh, dankeschön Es klappt:)

Tilman hat folgendes geschrieben:

Du musst aber sicherstellen das die Einfärbung in der Routine OnPaint vorgenommen wird, sonst verschwindet die färbung sobald z.B. ein anderes Fenster über dein gemaltes gezogen wird.

Gibts auch die Möglichkeit dies nicht in der Routine onpaint vorzunehmen, die Färbung aber bleibt wenn man ein anderes Fenster darüberzieht?

$veno hat folgendes geschrieben:

Gibts auch die Möglichkeit dies nicht in der Routine onpaint vorzunehmen, die Färbung aber bleibt wenn man ein anderes Fenster darüberzieht?

Soviel ich weiss, musst du sicherstellen, dass deine Zeichnung wiederhergestellt wird, und das geht nunmal in OnPaint. Es sei denn, es genügt dir, den Code in eine extra Prozedur zu schreiben un diese in OnPaint aufzurufen. Aber ob du ganz um OnPaint herum kommst, möchte ich bezweifeln.

Die einfachste Möglichkeit die ich kenne: benutze ein TImage statt einer TPaintBox. die Speichert dann automatisch die Pixel, es kann aber unter Umständen auch Nachteile haben.

Andere Möglichkeit: du erstellst ein TBitmap-Objekt:

Bild := TBitmap.Create;
Bild. Width := paintbox.Width;
Bild.Height := paintbox.Height;

alle Operationen werden jetzt auf Bild.Canvas ausgeführt,
und OnPaint wird dann mittels paintbox.canvas.draw(0,0,Bild) das Bild auf die Paintbox gemalt.