Bild spiegeln

[arukas]

Hi Leute,

Ich weis ja schon wie man Bilder um einen bestimmten Punkt dreht, aber wie kann man ein Bild spiegeln?
Ich freu mich schon auf eure Lösung.

Danke,

Arukas

[_seeker]

Hmm in paint ^_^

[arukas]

danke für diese Antwort, aber ich würde gerne wissen wie man das programmieren kann, sonst würde ich nicht fragen!

[chaosben]

Wer sucht der findet und findet und ...

[Klaus01]

schau mal hier -> http://www.dsdt.info/tipps/?id=661

könnten Ansätze für Dich dabei sein.

Grüße
Klaus

[edit] da war der Ben schneller [/edit]

[Robert Marquardt]

Wer die MS Dokumentation gut liest findet das:

StretchBlt creates a mirror image of a bitmap if the signs of the nWidthSrc and nWidthDest parameters or if the nHeightSrc and nHeightDest parameters differ. If nWidthSrc and nWidthDest have different signs, the function creates a mirror image of the bitmap along the x-axis. If nHeightSrc and nHeightDest have different signs, the function creates a mirror image of the bitmap along the y-axis.

[arukas]

ich habs jetzt, danke

[Robert Marquardt]

Na dann schreib doch mal ein Beispiel moeglichst mit StretchBlt, denn das duerfte das schnellste sein.

[SirThornberry]

sicher das es mit scanlines nicht schneller ist? Oder wird innerhalb von StretchBlt auf Größenänderung geprüft

[chaosben]

Zitat:

Zitat von SirThornberry

sicher das es mit scanlines nicht schneller ist? Oder wird innerhalb von StretchBlt auf Größenänderung geprüft

Eine interessante Frage und eine erstaunliche Antwort: Ich hab das mal mit einem 8,89MB Bitmap und der stümperhaften GetTickCount-Methode probiert. Das Ergebnis: Die Methode mit den Scanlines ist etwas mehr als 3 mal so schnell wie das Blten.

[Robert Marquardt]

Dann poste mal die Source. Es duerfte uebrigens vom Grafikkartentreiber abhaengen.

[chaosben]

Quick&Dirty:

Delphi-Quellcode:

procedure TForm3.FormClick(Sender: TObject);
var
  bmp : TBitmap;
  StartBlt,
  StopBlt,
  StartSl,
  StopSl : Cardinal;
begin
  bmp:=TBitmap.Create;
  bmp.Assign(Image1.Picture.Bitmap);

  StartBlt:=GetTickCount;
  StretchBlt(Self.Canvas.Handle,
              200,200,
              -bmp.Width,bmp.Height,
              bmp.Canvas.Handle,
              0,0,
              bmp.Width, bmp.Height,
              SRCCOPY);
  StopBlt:=GetTickCount;

  StartSl:=GetTickCount;
  SpiegelnVertikal(bmp);
  BitBlt(Self.Canvas.Handle,
          0,0,
          bmp.Width,bmp.Height,
          bmp.Canvas.Handle,
          0,0,
          SRCCOPY);
  StopSl:=GetTickCount;

  MessageDlg('Blt: '+InttoStr(StopBlt-StartBlt)+#13#10+'SL: '+InttoStr(StopSl-StartSl), mtWarning, [mbOK], 0);

  bmp.Free;
end;

[Robert Marquardt]

Also irgendwie will das nicht bei mir. Schick mir doch mal die komplette Source. robert_marquardt att gmx dott de