Auf der Form1 habe ich jetzt 2 Buttons einen BHorzontal und BVertikal und in der UBild folgendes hinzugefügt
Delphi-Quellcode:
type
...
BHorizontal: TButton;
BVertikal: TButton;
procedure BHorizontalClick(Sender: TObject);
procedure BVertikalClick(Sender: TObject);
...
und folgende zwei proceduren in der UBild
Delphi-Quellcode:
procedure TForm1.BHorizontalClick(Sender: TObject);
begin
Spiegele(Image1)
end;
...
procedure TForm1.BVertikalClick(Sender: TObject);
begin
Spiegele2(Image1)
end;
und hier ist meine gesammte UFabian
Delphi-Quellcode:
unit UFabian;
interface
uses ExtCtrls;
procedure Spiegele(Bild: TImage);
procedure Spiegele2(Bild: TImage);
implementation
uses
Windows, Graphics;
procedure Spiegele(Bild: TImage);
var
lBmp: TBitmap;
begin
lBmp := TBitmap.Create;
try
lBmp.Assign(Bild.Picture.Graphic);
StretchBlt(lBmp.Canvas.Handle,
0,
0,
lBmp.Width,
lBmp.Height,
lBmp.Canvas.Handle,
0,
lBmp.Height,
lBmp.Width,
-lBmp.Height,
SRCCOPY);
Bild.Picture.Assign(lBmp);;
finally
lBmp.Free;
end;
end;
procedure Spiegele2(Bild: TImage);
var
lBmp: TBitmap;
begin
lBmp := TBitmap.Create;
try
lBmp.Assign(Bild.Picture.Graphic);
StretchBlt(lBmp.Canvas.Handle,
0,
0,
lBmp.Width,
lBmp.Height,
lBmp.Canvas.Handle,
lBmp.Width,
0,
-lBmp.Width,
lBmp.Height,
SRCCOPY);
Bild.Picture.Assign(lBmp);;
finally
lBmp.Free;
end;
end;
procedure TForm1.BHorizontalClick(Sender: TObject);
begin
Spiegele(Image1)
end;
procedure TForm1.BVertikalClick(Sender: TObject);
begin
Spiegele2(Image1);
end;
end.
Bekomm aber einige Fehler ich poste sie mal alle
[Fehler] UFabian.pas(66): ';' erwartet, aber '.' gefunden
[Fehler] UFabian.pas(68): Undefinierter Bezeichner: 'Image1'
[Fehler] UFabian.pas(71): Bezeichner redefiniert: 'TForm1'
[Fehler] UFabian.pas(73): Undefinierter Bezeichner: 'Image1'
[Fataler Fehler] UBild.pas(35): Verwendete
Unit 'UFabian.pas' kann nicht compiliert werden