Am Anfang hatte ich den Fehler das StretchBlt undefiniert ist dann habe ich mal alle Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
eingefügt... würde gerne wissen welche der oberen uses gebraucht wird um StretchBlt ausführen zu können
in der procedure steht jetzt
Delphi-Quellcode:
procedure Spiegele(Bild: TImage);
Begin
StretchBlt(TImage.Bild.Bitmap.Canvas.Handle, 0, 0, TImage.Bild.Width,
TImage.Bild.Height, TImage.Bild.Bitmap.Canvas.Handle,
TImage.Bild.Width - 1, 0, - TImage.Bild.Width,
TImage.Bild.Height, SRCCopy);
TImage.Bild(Sender);
end;
aber jetzt sagt er mir das "Bild" undefiniert ist aber normalerweise dürfte der doch vorhanden sein Bild ist TImage
Hier mal mein kompletter Quellcode. :/ wo liegt hier der fehler? Ich habe ausprobiert bei TImage.Bild immer das TImage zu enterfernen da Bild ja schon TImage ist :/ ist das richtig das zu entfernnen oder muss das da bleiben??
Delphi-Quellcode:
interface
uses ExtCtrls;
procedure Spiegele(Bild: TImage);
implementation
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls ;
procedure Spiegele(Bild: TImage);
Begin
StretchBlt(Bild.Bitmap.Canvas.Handle, 0, 0, TImage.Bild.Width,
TImage.Bild.Height, TImage.Bild.Bitmap.Canvas.Handle,
TImage.Bild.Width - 1, 0, - TImage.Bild.Width,
TImage.Bild.Height, SRCCopy);
TImage.Bild(Sender);
end;
end.