Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
12. Apr 2008
ich hab mir da schon gedanken zu gemacht.... und meine beiden codes habe ich ja auch verstanden das der code z.b. bei horizontal von unten ein pixel farbpunkt nimmt den oben einfügt während dessen den oberen unten einfügt und so weiter und div2 damit das kopieren und einfügen der bildpunkte nur bis zur mitte geht... sonst würde es ja doof aussehen
Ich bin leider nur total unbewandert mit den...
Forum: Sonstige Fragen zu Delphi
Delphi
by andiak,
11. Apr 2008
Bisher habe ich es geschaft mein Bild Vertikal und Horizontal zu spiegeln mit folgender proceduren:
procedure VertikalSpiegele(Bild1:TImage);
var x,y:integer;
hilf : TColor;
begin
for x:=0 to Bild1.width div 2 - 1 do
for y:=0 to Bild1.height - 1 do
begin
hilf := Bild1.canvas.pixels;