image

[alleinherrscher]

Man benutzt die Procedure ganz einfach:

1) Da du jetzt ja die GR32 installiert hast, kannst du ein TImage32 anstelle eines TImage auf dein Formular ziehen. (Das hat jetzt sagen wir mal den namen Image321)

2) Erstelle eine Prozedur, die ein TBitmap32 einliest aus irgendwelchen Dateien von dir, also z.B.

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender:TObject);
var aBmp32:TBitmap32;
begin

aBmp32:=TBitmap32.create; //erstmal das Objekt erstellen
aBmp32.loadfromfile('dateiname.bmp');

3) Rufe jetzt die PaintCover Procedur auf:

Delphi-Quellcode:

procedure PaintCover(DestBitmap:TBitmap32;x,y,width,height:integer;perspectiv:single;angle:integer;picture:TBitmap32);

DestBitmap ist das Bitmap, wo die Procedur das perspektivische Bild hinzeichnen soll. x,y,width und height sind die Positionsangaben in DestBitmap für das perspektivische Bild.

Perspectiv ist ein Wert zwischen 0 und 1, der festlegt wie stark perspektivisch das Bild dargestellt werden soll (also die Tiefenwirkung)

angle ist der Winkel zwischen 0 und 90 grad.

d.h. in unserem Beispiel könntest du die PaintCover funktion so aufrufen:

PaintCover(Image321.Bitmap,0,0,50,50,0.5,30,aBmp32); Und dann sollte eigentlich schon was zu sehen sein....