[Tutorial] Programa Para Ver Suas Fotos Com Slide

[josue1602 0]

Aew galerinha hj vo tah explicando como fazer um programa para vcs visualizarem suas fotos com botões para mudar de foto slide e fullscreen (FullScreen Graças Ao DragonBoss xD).

 

(OBS: Vcs Tem Que Editar Do Geito Que Eu Vo Tah Explicando a Baixo Os Nomes Tudo Certinho Se Não Não Ira Funcionar)

 

To Disponibilizando a Source Ai Pra Quem Quize

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

[sENHA]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/sENHA]

 

1º Baixar As BMPS Vcs Tem Que Baixar Para Poder Por Essas Imagens Nos Botões

 

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

[sENHA]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/sENHA]

 

 

Então Primeiro Vc Declara Na Uses Jpeg.

 

 

 

 

 

Agora Mude o Align Da Form1 Para alTop, e O WindowsState Para Maximized

 

 

 

Agora Adicione Um DBImage Na Aba Data Controls e Mudo o Align Dele Para alClient, Mude O Name Para Foto, e o Stretch Para True. A Função Do Stretch è Quando Quando Vc Jogue A Imagem Para o DBImage Ele Fica No Tamanho Certo.

 

 

 

 

Certo Agoro Adicione Um Toolbar Na Aba Win32, Mude O Align Dele Para alBottom, Agora Clicle Com o Botão Direto Do Mouse Em Cima Do ToolBar e Clice Em New Button Faça Isso 5 Vezes Depois Clicle Com o Botão Direito Do Mouse Em Cima Do Toolbar e Clicle Em New Separator, Depois Adicione Mais Dois Botões, Depois Mas 1 Separador e Mais Dois Botões.

 

Agora Adicione Um ComboBox No Tolbar, Ele Localiza Na Aba Standard, e Apague A Propriedade Text Dele.

 

Agora Adicione Um ImageList Na Aba Win32, Mude O Tamanho Da BMPS na Propriedade Do ImageList Igual Como Esta Na Imagem Abaixo, De Dois Clicks Em Cima E Adicione As Fotos Que Eu Disponizei Para Download Em Cima Do Topico .

 

 

 

Depois Vai Na Propriedades Image Do Do ToolBar e Adione O ImageList

 

 

 

Agora Na Propridade ImageIndex De Cada Botão Do ToolBar Organize As Fotos Desse Jeito

 

 

Feito Tudo Isso Adicione Um OpenPictureDialog Na Aba Dialogs Na Propriedade Filter Dele Apague Tudo Só Deixe o All Agora Vá Em Option e Mude o ofAllowMultiSelect Para False

 

 

 

Agora Adicione Um Timer Na Aba System Mude a Propriedade Enabled Dele Para False E o Interval Para 4000 OBS: Mude o Interval De Jeito Que Vc Quiser o Interval é o Tempo Que Vai Levar Para Passar De Uma Foto Para Outra no Slide, 1000 = 1 Segundo

 

 

Deu Está Pronto Agora Vamos Para Os Codigos.

 

Primeiro Vamos Por Os Codigos Nos Botôes Cliclando Dois Vez Em Cada Botão

 

No 1º Botão Qué è Para Abrir a Foto Adicione a Seguinte Linha de Code Vc Pode Alterar o By Josué Luiz Para Seu Nome Ou o Nome Do Seu Projeto:

if OpenPictureDialog1.Execute then

combobox1.Items := OpenPictureDialog1.Files;

combobox1.ItemIndex := combobox1.ItemIndex +1;

foto.Picture.LoadFromFile(combobox1.Text);

form1.Caption := Combobox1.Text + ' - By Josué Luiz' //Obs: Mude o By Josué Luiz Para o Seu Nome OU o Nome Do Seu Projeto

 

Agora No 2º Bottão Que Serve Para Voltar a Imagem Anterior:

ComboBox1.ItemIndex := ComboBox1.ItemIndex -1;

foto.Picture.LoadFromFile(combobox1.Text);

form1.Caption := Combobox1.Text + ' - By Josué Luiz' //Obs: Mude o By Josué Luiz Para o Seu Nome OU o Nome Do Seu Projeto

Agora No 3º Botão o Play Que Serve Para Trocar De Imagem A Cada 4 Segundo Conferme Vc Botou No Timer:

timer1.Enabled := true;

 

Agora No 4º Botão o Pause Que Serve Para Pausar o Slide;

timer1.Enabled := False;

Agora No 5º Botão Que Serve Para Ir Para a Proxima Foto.

ComboBox1.ItemIndex := ComboBox1.ItemIndex +1;

foto.Picture.LoadFromFile(combobox1.Text);

form1.Caption := Combobox1.Text + ' - By Josué Luiz' //Obs: Mude o By Josué Luiz Para o Seu Nome OU o Nome Do Seu Projeto

 

No 6º Botão Que Serve Para Ajustar o Tamanho Da Foto Conforme o Tamanho do DBImage

foto.Stretch := true;

 

No 7º Botão Que Serve Para Ajutar a Foto No Tamanho Original

foto.Stretch := false;

 

No 8º Botão Que Serve Para Ficar Em FulScreen E Tocar O Slide(OBS: O Codigo Do FullScreen Foi Graças Ao DragonBoss Eu Só Colocei Mais Alguns Codes)

form1.WindowState := (wsNormal);

SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

form1.Height:=screen.height;

form1.Width:=screen.Width;

form1.BorderStyle := (bsNone);

ToolButton3.Click;

 

Agora No Ultimo Botão Que Serve Para Sair Do FullScreen e Parar o Slide

form1.WindowState := (wsMaximized);

SetWindowPos(Form1.handle, HWND_NOTOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);

form1.BorderStyle := (bsSizeable);

ToolButton4.Click;

 

Pronto Os Codigos No Botão Foi Adicionado Agora Vamos Por o Seguinte Code No Timer Dando Dois Clicks Em Cima Dele

ToolButton5.Click;

Agora No Evento OnClick Do ComboBox Adicione Esse Code:

foto.Picture.LoadFromFile(combobox1.Text);

 

Deu Seu Projeto Está Pronto.

 

Gostou? Agradeça Não Custa Nada.

[sohskt 0]

Boa, mas nao seria mais facil colcoar um botao para mudar de foto?

Uma para "Voltar" e outra para "Proxima".

[josue1602 0]

Boa, mas nao seria mais facil colcoar um botao para mudar de foto?

Uma para "Voltar" e outra para "Proxima".

 

Mas Tem Lê o Tutorial Que Vc Vai Ver.

 

Tem Todos Esses Botões:

[DragonBoss 9]

ehh, gostei mesmo do tutorial... mto bem explikado, seus topicos sao sempre otimos...., ta de parabens cara, continue escrevendo otimos topicos assim ^^

 

 

@off

(FullScreen Graças Ao DragonBoss xD

 

pow, ateh me emociono quando sei ke ajudei alguem T_T... KOSPkAPSkoas

[josue1602 0]

ehh, gostei mesmo do tutorial... mto bem explikado, seus topicos sao sempre otimos...., ta de parabens cara, continue escrevendo otimos topicos assim ^^

 

 

@off

 

 

pow, ateh me emociono quando sei ke ajudei alguem T_T... KOSPkAPSkoas

 

rsrsrsrs È Isso Ai Sempre Ajudando xD. Ahhh e Dessa Vez Acho Que Só Não Pode Fala Assim Isso Denovo? kkkkkkk.