Hallo Jungs,
ich stehe wiedermal vor einem Probelm.
Ich möchte für einen Freund eine Slideshow erstellen die er über einen Beamer auf einem Plexiglas vorstellt.
Die Bilder werden aus einem Ordner ausgelesen und in einem Memo eingelesen.
Beim starten der Show wird ein neues Form geladen und dies liest einfach die Einträge aus dem Memo aus und Zeigt dann die Bilder an.
Mein Problem ist nun das ich zwischen den Bildern gerne animierte übergänge hätte, Fade In, Fade Out, Einfahren von links, rechts oder oben,...
Ich verwende nur Jpgs, wenn es möglich ist das ohne Fremdkomponenten zu machen wärs mir am liebsten aber muss nicht sein, gegen eine einfach zu verwendende Komponenten hab ich auch nix. bin aber noch blutiger Anfänger.
Hier mal der Code aus der Fullscreen
Unit:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
if PicCount >= Form1.Memo1.Lines.Count-1 then
PicCount := 0
else
Inc(PicCount);
Image1.Picture.LoadFromFile(Form1.Edit1.Text + Form1.Memo1.Lines[PicCount]);
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
PicCount := 0;
//Fullscreen erstellen
self.Width := Screen.Width;
self.Height := Screen.Height;
//Bild zentrieren
Image1.Left:= (Screen.Width - Image1.Width) div 2;
end;
procedure TForm2.FormShow(Sender: TObject);
var
PicWidth: integer;
PicHeight: Integer;
begin
if (Form1.Memo1.Lines[0]) = '' then
ShowMessage('Kein Bild vorhanden.')
else
begin
PicWidth := Image1.Picture.Bitmap.Width;
PicHeight := Image1.Picture.Bitmap.Height;
Image1.Picture.LoadFromFile(Form1.Edit1.Text + Form1.Memo1.Lines[PicCount]);
end;
end;
Vielleicht kann mir ja einer ein paar Tips geben, is nicht dringend aber würde mich freuen.
Die Suche ergab auch einiges aber kommt mir alles etwas umständlich vor, naja war auch nicht genau für solche sachen wie ich vorhabe.
Also erstmal schönen Dank im voraus!
