Dateien einlesen

[DeddyH]

Den braucht man nun auch nicht unbedingt. Testhalber habe ich gerade mit Delphi 2007 die Demo leicht modifiziert, ohne die Komponente zu installieren (die Nachfrage von Delphi beim Laden des Projekts, ob die Komponente entfernt werden soll, muss man dabei verneinen). Dazu muss man lediglich die Deklaration von PicShow in den private-Abschnitt verschieben und im OnCreate ein paar Zeilen hinzufügen.

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  PicShow := TPicShow.Create(self);
  PicShow.Left := ClientWidth;
  PicShow.Align := alClient;
  PicShow.Parent := self;
  PicShow.Center := true;
  PicShow.Stretch := true;
  PicShow.Proportional := true;
  PicShow.OnStart := PicShowStart;
  PicShow.OnStop := PicShowStop;
  PicShow.OnProgress := PicShowProgress;
  PicShow.OnDblClick := PicShowDblClick;
  //Ab hier Originalcode der Demo
  Randomize;
  //usw.

[schöni]

Super! Mit dieser Modifikation funktioniert es.