DrawBox Hilfe

[Linguini]

Hallo,

ich möchte gerne, das der Benutzer auf einem festgelegten Bereich "malen" kann. Es sollen nur einfache schwarze Striche sein.
Danach soll Pixel für Pixel das gemalte mit einem vorher definierten Bild verglichen werden.
Was nehme ich dafür am besten?

DrawBox? Nur leider kann ich da drauf nicht malen...

Der Vergleich müsste ja mit "GetPixel" funktionieren.

Danke.

[Forlan]

Du könntest eine Instanz vom Typ TImage aus der Unit ExtCtrls erstellen. Darauf kannst du mit TCanvas malen, und auch die Pixelpositionen vergleichen.

[DeddyH]

Zum Selbermalen ist eine TPaintBox aber wahrscheinlich die bessere Wahl.

[Forlan]

Zitat:

Zitat von DeddyH

Zum Selbermalen ist eine TPaintBox aber wahrscheinlich die bessere Wahl.

Jetzt möchte ich bitte noch die Erklärung haben wieso :stupid:

(hab noch nie damit gearbeitet, darum die Frage :mrgreen: )

[Progman]

TPaintBox ist schlanker und schneller als TImage.

[Linguini]

Also ich denke Geschwindigkeit spielt in meinem Fall keine Rolle. Es sind nur sehr kleine Zeichnungen.

Jetzt ist nur die Frage wie ich es anstelle das dort wo ich hinklicke auf "gemalt" wird?

[Forlan]

Beim onClick Event.:

Delphi-Quellcode:

Image1.canvas.Pixels[x,y]:= clBlack

;
Damit kannst du dann auch überprüfen welche farbe an der Stelle x|y ist.
Also so wäre es bei TImage.

MfG

[mkinzler]

Da dies eine Methode von TCanvas ist, ist es egal ob dieser Teil eines Images, eines Formulars oder einer Paintbox ist.

[Linguini]

:) Vielen Dank für eure Hilfe.

Ich hab es jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);

begin

Image1.canvas.Pixels[xPos,yPos]:= clBlack
end;


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  xPos := X;
  yPos := Y;
end;

end.

Ich kann nun auch einzelne Punkte setzen, super wäre aber wenn man auch durch gedrückt halten gleich ganze Linien zeichnen könnte.
Ist das auch möglich?

[Forlan]

Klar ist das möglich^^

boolean variable + if Abfrage beim mousemove event