Fórum Atualizar TImage #277792
18/04/2005
0
TENHO A SEGUINTE LINHA DE CODIGO: For y := 0 to Lista.Count - 1 do
Begin
Caminho := Edit1.Text + Lista[y];
Image1.Picture.Bitmap.Assign(nil);
Image1.Picture.LoadFromFile( caminho );
image1.Repaint;
end;
ODE LISTA É UMA VARIAVEL TSTRINGLIST QUE ARMAZENA OS NOMES DOS ARQUIVOS JPG E CAMINO É O DIRETORIO DA IMAGEM..
O PROBLEMA É QUE EU ESTOU USANDO O ONTIMER DO TIMER E NAO ESTA ATUALIZANDO A IMAGEM NA TELA!!
COMO POSSO RESOLVER?
[b:c888179f95]Título editado: ´ATUALIZAR TIMAGE - URGENTE´[/b:c888179f95]
Por favor, leia as cláusulas [url=http://forum.clubedelphi.net/viewtopic.php?p=17019#1c]1c[/url] e [url=http://forum.clubedelphi.net/viewtopic.php?p=170191e]1e[/url] das Regras de Conduta.
Sandra/Moderação
Begin
Caminho := Edit1.Text + Lista[y];
Image1.Picture.Bitmap.Assign(nil);
Image1.Picture.LoadFromFile( caminho );
image1.Repaint;
end;
ODE LISTA É UMA VARIAVEL TSTRINGLIST QUE ARMAZENA OS NOMES DOS ARQUIVOS JPG E CAMINO É O DIRETORIO DA IMAGEM..
O PROBLEMA É QUE EU ESTOU USANDO O ONTIMER DO TIMER E NAO ESTA ATUALIZANDO A IMAGEM NA TELA!!
COMO POSSO RESOLVER?
[b:c888179f95]Título editado: ´ATUALIZAR TIMAGE - URGENTE´[/b:c888179f95]
Por favor, leia as cláusulas [url=http://forum.clubedelphi.net/viewtopic.php?p=17019#1c]1c[/url] e [url=http://forum.clubedelphi.net/viewtopic.php?p=170191e]1e[/url] das Regras de Conduta.
Sandra/Moderação
Ronaldo Martins
Curtir tópico
+ 0
Responder
Posts
18/04/2005
Edilcimar
onde está o comando de parada do ontimer quando carrega a imagem e onde está o comando que recomeça o ontimer após a imagem carregada?
Responder
Gostei + 0
18/04/2005
Massuda
Além do que o edilcimar escreveu, tem um problema com relação ao nome do arquivo e caminho. Ao invés de fazer isso...Assumindo que Edit1.Text contenha algo do tipo c:\imagens e lista[y] seja algo do tipo imagem.bmp. Do jeito que está, caminho irá conter c:\imagensimagem.bmp, o que resulta em arquivo não encontrado.
Caminho := Edit1.Text + Lista[y];
...é melhor fazer...uses SysUtils, ... Caminho := IncludeTrailingBackSlash(Edit1.Text) + Lista[y];
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)