Registriert seit: 1. Nov 2007
89 Beiträge
|
Re: Bild an der x-aschse spiegeln
14. Mär 2008, 17:22
Jetzt bekomm ich den fehler das Bei der vorherigen Deklaration von Spiegele wurde die Direktive "overlord" nicth angegeben was bedeutet den das schonwieder?? die delphi hilfe kann mir auch nicht helfen :/
Delphi-Quellcode:
unit UFabian;
interface
uses ExtCtrls;
procedure Spiegele(Bild: TImage);
implementation
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure Spiegele(Bild: TBitmap);
Begin
StretchBlt(Bild.Canvas.Handle,
0,
0,
Bild.Width,
Bild.Height,
Bild.Canvas.Handle,
Bild.Width - 1,
0,
-Bild.Width,
Bild.Height,
SRCCopy);
end;
end.
Wo soll ich den
Spiegeln(Image1.Picture.Bitmap);
einfügen??
|
|
Zitat
|