Galera, estou com problemas para carregar uma imagem como TImagem. A figura
é grande, tamanho 1024x768 e o formato é JPG. Ela é a img que fica no form
principal, e dando 2 cliques na img que vai no formulário principal, abre um
cx de dialogo para procurar outra img para colocar no lugar.
Está funcionando tudo, ela troca a img, salva o caminho da foto no arquivo
.ini tudo certo, o problema é que para eu atualizar a img, eu tenho que
minimizar e restaurar o programa para ela dar um Refresh na img.
Alguem sabe como eu posso fazer isso sem ter que falar para o cliente
minimizar e restaurar o programa ???
Abaixo vai o código.
procedure Tfrmprincipal.Image1DblClick(Sender: TObject);
var
ini : TIniFile;
begin
{
NÃO ESQUECER DE DECLARAR JPEG NA USES !!!!!!
}
openpicturedialog1.execute;
image1.picture.loadfromfile(openpicturedialog1.filename);
image1.picture.savetofile(openpicturedialog1.filename);
ini := TIniFile.Create('c:\windows\system\branco.ini');
try
Ini.writestring('CONFIG','FOTO',openpicturedialog1.filename);
finally
Ini.free;
end;
end;
Abraço.
Tiago de Assis Pimenta
www.supportsinformatica.com
[As partes desta mensagem que não continham texto foram removidas]
