Einzelnen Beitrag anzeigen

kaiser1401

Registriert seit: 6. Mär 2006
Ort: Gescher
157 Beiträge
 
Delphi 7 Professional
 
#2

Re: Bild Horizontal spiegeln (vertikal klappt)

  Alt 7. Apr 2008, 15:28
schonmal versucht in den letzten beiden zeieln x und y wieder zu tauschen? also

Delphi-Quellcode:
    Bild1.canvas.pixels[x,y]:=Bild1.canvas.pixels[x,Bild1.height-1-y];
    Bild1.canvas.pixels[x,Bild1.height-1-y]:= hilf;


Zu erklärung der ursprünglichen Methode:

stell dir ein Bild vor das 10 Pixel breit ist und 5 hoch

oben links ist pixel (0,0) und unten rechts damit (9,4)

die erste schleife geht von 0 bis 4 (4:= 10 div 2 -1)
die zweite geht die zeien durch, also 0 bis 4

1. merke dir farbe x,y also (0,0)
2. setze farbe x,y := farbe (9,0)
3. setze farbe x,y ;= gemerkte farbe.

verstanden?
inc(i);
  Mit Zitat antworten Zitat