Also bis jetzt besteht das Programm nur aus einer procedure, die ein Bild perspektivisch richtig darstellt:
Delphi-Quellcode:
procedure PaintCover(DestBitmap:TBitmap32;
x,y,width,height:integer;
perspectiv:single;
angle:integer;
Reflextion:single;
Alpha:integer;
picture:TBitmap);
Dieser Procedure kannst du ein beliebiges TBitmap übergeben, was du vorher aus einer Datei eingeladen hast.
Weiter hab ich das Projekt leider noch nicht programmiert, da ich grade aufgrund des Studiums nicht sehr viel Zeit habe.
//edit hier noch eine Version, mit meheren Covers (man müsste nur noch verschiedene Bilder einladen), wo man sieht, wie es einmal werden soll...