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: