Einen Pixel einfärben ????????

[Ch4ndl3r]

Hallo,

Ich wollte gerne wissen wie ich einen einzigen pixel auf dem Formular einfärben kann? Ich würde gerne um den Quellcode bitten. Danke im voraus.

MfG
Ch4ndl3r

[Nicodius]

Delphi-Quellcode:

Form1.Canvas.Pixel[X,Y] := clgreen;

mfg

Nicodius

[Mirilin]

:hi: Kinder


klick


mfg Tobias :)

[Ch4ndl3r]

Ich habe es hin bekommen!!

Das sieht so aus.

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);

begin
     //Zeichnen einer Linie
     Form1.Canvas.MoveTo(0,10);
     Form1.Canvas.LineTo(635,10);

end;

Jetzt zeichnet er mir eine linie übers Formular. Jetzt wollte ich gerne die Farbe eines Pixels ändern, aber nur eines pixel nicht der ganzen linie.

[Nicodius]

hier nochmal :wink:

Delphi-Quellcode:

Form1.Canvas.Pixel[X,Y] := clgreen; // färbt den punkt des Forms bei X/Y in die farbe grün

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Tutorials und Kurse" nach "Sonstige Fragen zu Delphi" verschoben.

[Ch4ndl3r]

Die linie überdeckt aber dann den anderen pixel und der einzelne pixel ist nicht zu sehen, sonder nur wieder die linie.

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);

begin
     //Zeichnen einer Linie
     Form1.Canvas.Pixels [500,10] := clred;  <----- Ist nicht zu sehen.
     Form1.Canvas.MoveTo(0,10);
     Form1.Canvas.LineTo(635,10);

end;

Ich glaube ich muss die Farbe von dem Pixel aus lesen und dann ändern. Aber wie ????????

[jim_raynor]

Was hälst davon das Pixel erst nach der Linie zu setzen ? :wall:

[ste_ett]

Erst die Linie zeichnen, danach den einzelnen Pixel.

[Ch4ndl3r]

Auf diese idee bin ich auch schon gekommen aber funktioniert auch nicht. Sonst hätte ich euch nicht mit dieser Frage belästigt.

Edit:

ups funktioniert doch :roll:

[Nicodius]

:lol: :shock: :shock: dein edit ist genial :roll:

[arukas]

hi,

wie ist das denn, wenn ich ein Quadrat zeichnen möchte?

Muss ich dann jedes Pixel einzelnd färben oder kann man das irgendwie zusammenfassen?

Euer Arukas

[mr47]

Zitat:

Zitat von arukas

hi,

wie ist das denn, wenn ich ein Quadrat zeichnen möchte?

Muss ich dann jedes Pixel einzelnd färben oder kann man das irgendwie zusammenfassen?

Euer Arukas

Die Frage beantwortet sich von selbst, wenn du den Thread nochmal liest :roll:

[arukas]

hmm... ne,

ich hab hier nur nachgelesen, wie man Linien und Punkte färbt, nicht wie man ein ausgefülltes Quadrat färbt.

[igel457]

Delphi-Quellcode:

with canvas do
begin
  brush.color := clBlue; //<--Hintergrundfarbe
  pen.color := clGreen; //<--Linienfarbe
  rectangle(x1,y1,x2,y2); //(x1|y1) Oberer Eckpunkt - (x2|y2) unterer Eckpunkt
end;

[mr47]

Zitat:

Zitat von arukas

hmm... ne,

ich hab hier nur nachgelesen, wie man Linien und Punkte färbt, nicht wie man ein ausgefülltes Quadrat färbt.

Von ausfüllen hast du bisher noch nicht gesprochen. Nur von zeichnen!

[arukas]

danke, das ist gut :-)