if-Abfrage vereinfachen

[Gruber_Hans_12345]

Zitat:

Zitat von Robert Marquardt

pmBlack ist Unsinn. Es bedeutet das immer mit Schwarz gemalt wird, egal was fuer eine Farbe man nimmt. Bitte ausprobieren ob mit einer anderen Farbe als clBlack die andere Farbe benutzt wird oder Schwarz. Andere Farbe heisst das der Pen.Mode keinen Einfluss hat.

dann probier es einfach selbst aus :

Delphi-Quellcode:

    image1.Picture.Bitmap.Width := 200;
    image1.Picture.Bitmap.Height := 200;
    image1.Picture.Bitmap.Canvas.Pen.Color  := clRed;
    image1.Picture.Bitmap.Canvas.MoveTo(0, 0);
    image1.Picture.Bitmap.Canvas.LineTo(100, 100);
    image1.Picture.Bitmap.Canvas.Pen.Mode   := pmXor;
    for x:=1 to 100 do
        for y := 1 to 100 do
            image1.Picture.Bitmap.Canvas.Pixels[x, y] := clGreen;

Pen.Mode hat den einfluß, das wenn man pmBlack verwendet schwarz gemalt wird egal welche farbe man beim Pixel angibt, bei pmXor wird gexort mit der farbe usw. ... im prinzip könnte man es auch so ausdrücken, das beim setzen eines pixel mit SetPixel der Pen.Mode berücksichtigt wird ;)