Delphi - Galeria de fotos

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, JPEG;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Image1: TImage;

    Label1: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

   ListaArchivos: TStringList;  //Lista de los archivos en la carpeta

   NumArchivo: integer; //Numero del archivo mostrado actualmente

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

{Botón adelante}

procedure TForm1.Button1Click(Sender: TObject);

begin

 if NumArchivo<ListaArchivos.Count-1 then begin

  Image1.Picture.LoadFromFile(ListaArchivos.Strings[NumArchivo]);

  inc (NumArchivo);

 end

 else begin

  Image1.Picture.LoadFromFile(ListaArchivos.Strings[0]);

  NumArchivo:=0;

 end;

end;

{Crea la ListaArchivos y carga las imágenes de una carpeta dada}

procedure TForm1.FormCreate(Sender: TObject);

var

  sr: TSearchRec;

begin

  ListaArchivos:= TStringList.Create;

  if FindFirst('C:\CarpetaPrueba'\*.*', faArchive, sr) = 0 then

  begin

   repeat

    ListaArchivos.Append('C:\CarpetaPrueba'+sr.Name);

   until FindNext(sr) <> 0;

    FindClose(sr);

   end;

  NumArchivo:=0;

  Label1.Caption:=IntToStr(ListaArchivos.Count)+' archivos cargados';

end;

{Botón atrás}

procedure TForm1.Button2Click(Sender: TObject);

begin

 if NumArchivo>0 then begin

  dec (NumArchivo);

  Image1.Picture.LoadFromFile(ListaArchivos.Strings[NumArchivo]);

 end

 else begin

  NumArchivo:=ListaArchivos.Count-1;

  Image1.Picture.LoadFromFile(ListaArchivos.Strings[NumArchivo]);

 end;

end;

end.