Einzelnen Beitrag anzeigen

andiak

Registriert seit: 1. Nov 2007
89 Beiträge
 
#18

Re: Bild an der x-aschse spiegeln

  Alt 14. Mär 2008, 16: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??
  Mit Zitat antworten Zitat