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.
____________________________________________________________________________________________________ _______________