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

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

Nicodius

Kinder


klick


mfg Tobias

Ich habe es hin bekommen!!

Das sieht so aus.

markieren

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.

hier nochmal


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

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

markieren

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 ????????

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

Erst die Linie zeichnen, danach den einzelnen Pixel.

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