galeria de imagenes

[crespopg]

Estimados Miembros de Club Delphi,
Esta es mi propuesta para una galeria de imagenes.
Se requieren de los siguientes objetos:

Código Delphi [-]
    Brap:    TButton;
    Blen:    TButton;
    Bsalir:  TButton;
    Bdet:    TButton;
    Bini:    TButton;
    Image1:  TImage;
    Label1:  TLabel;
    Ltitulo: TLabel;
    Timer1:  TTimer;
    MediaPlayer1: TMediaPlayer;

Los archivos de las imagenes, deberan estar nombrados en forma consecutiva, ejemplo: P12.JPG
archivo: conf.txt
__________
ESCRIBIR AQUI EL TITULO DE LA PRESENTACION
Fo&tomont
&Videos
_________
La primera linea corresponde al titulo a utilizarse en la parte superior. las siguientes lineas se utilizan en otra aplicacion.
Se requiere del archivo canc2.mp3 que se utiliza como fondo.
En espera de sus comentarios, les saludo muy afectuosamente.
____________________________________________________________________________________________________ _______________

Código Delphi [-]
program ciclo;
uses
  Forms,
  ciclou in 'ciclou.pas' {Form1};
{$R *.res}
begin
  Application.Initialize;
  Application.HelpFile := 'indexa.hlp';
  Application.Title := 'Presenta Imagenes crespopg@yahoo.com (F:.13/11/2009,16:08:04)';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

____________________________________________________________________________________________________ _______________

Código Delphi [-]
unit ciclou;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi, StdCtrls, jpeg, ExtCtrls, ComCtrls, MPlayer;
type
  TForm1 = class(TForm)
    Brap: TButton;
    Blen: TButton;
    Bsalir: TButton;
    Image1: TImage;
    Ltitulo: TLabel;
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    Label1: TLabel;
    Bdet: TButton;
    Bini: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BsalirClick(Sender: TObject);
    procedure BrapClick(Sender: TObject);
    procedure BlenClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BdetClick(Sender: TObject);
    procedure BiniClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  lins2:byte;
  arch:textFile;
  strt1,titulo:string;
  ult,i:integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;randomize;
 form1.Timer1.Interval:=2000;
 form1.Label1.Caption:=':.:';
 {ShellExecute(Form1.Handle,nil,Pchar('pres1a.wav'),'','',SW_SHOWNORMAL);}
 form1.Caption:='Presenta Imagenes crespopg@yahoo.com (F:.13/11/2009,16:08:05)';
 form1.Ltitulo.Caption:='Presenta Imagenes (F:.13/11/2009,16:08:05)';
 IF FileExists('canc2.mp3') Then
 Else Begin ShowMessage('Error: falta archivo canc2.mp3');Halt;End;
 Form1.MediaPlayer1.Open;
 form1.MediaPlayer1.Play;
 IF FileExists('conf.txt') Then
  Begin
   assignFile(arch,'conf.txt');Reset(arch);
   Readln(arch,titulo);
   CloseFile(arch);
  End
 Else Begin ShowMessage('Error: falta archivo conf.txt');Halt;End;
 form1.Ltitulo.Caption:=titulo;
 ult:=0;
 for i:=1 to 1000 do
  Begin
   str(i,strt1);
   If FileExists('P'+strt1+'.JPG') then ult:=i;
  End;
 str(ult,strt1);
 If FileExists('p'+strt1+'.jpg') then
  Form1.Image1.Picture.LoadFromFile('p'+strt1+'.jpg')
end;
procedure TForm1.BsalirClick(Sender: TObject);
begin
 Halt;
end;
procedure TForm1.BrapClick(Sender: TObject);
begin
 if form1.Timer1.Interval>=150 then form1.Timer1.Interval:=form1.Timer1.Interval-50;
 str(form1.Timer1.Interval,strt1);
 form1.Label1.Caption:='P='+strt1;
end;
procedure TForm1.BlenClick(Sender: TObject);
begin
 if form1.Timer1.Interval<32500 then form1.Timer1.Interval:=form1.Timer1.Interval+50;
 str(form1.Timer1.Interval,strt1);
 form1.Label1.Caption:='P='+strt1;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
     lins2:=random(ult);if lins2<=0 then lins2:=1;
     str(lins2,strt1);
     If FileExists('p'+strt1+'.jpg') then
      Form1.Image1.Picture.LoadFromFile('p'+strt1+'.jpg')
end;
 

procedure TForm1.BdetClick(Sender: TObject);
begin
 form1.Timer1.Enabled:=false;
end;
procedure TForm1.BiniClick(Sender: TObject);
begin
 form1.Timer1.Enabled:=true;
end;
end.

____________________________________________________________________________________________________ _______________