Einzelnen Beitrag anzeigen

Gruber_Hans_12345

Registriert seit: 14. Aug 2004
1.426 Beiträge
 
Delphi 2007 Professional
 
#21

Re: if-Abfrage vereinfachen

  Alt 10. Apr 2007, 15:39
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
Gruss Hans

2B or not 2B, that is FF
  Mit Zitat antworten Zitat