lokasso Aprendiz
Registrado: Terça-Feira, 11 de Abril de 2017 Mensagens: 174
|
Enviada: Sex Dez 08, 2017 6:26 am Assunto: Problema ao alterar a imagem de fundo |
|
|
Galera, estou tento um erro ao alterar a foto de fundo principal, pois somente muda a foto automaticamente quando aperto F4 ou F9, pois no modo normal, nada acontece, precisa fechar para que ocorra a mudança.
Citação: | Código da procedure e do botao procurar:
Código: | procedure TFrm_Config.CarregaFundo;
begin
if OpenFundo.Execute then
begin
Fundo:= OpenFundo.FileName;
FileName:= ExtractFilePath(Application.ExeName) + 'config.ini';
SetValorIni(FileName, 'APARÊNCIA','FUNDO', Fundo);
end;
end; |
Código: | procedure TFrm_Config.Btn_ProcurarClick(Sender: TObject);
begin
CarregaFundo;
Frm_Principal.I_Principal.Picture.LoadFromFile(GetValorIni(ExtractFilePath(Application.ExeName) +
'config.ini', 'APARÊNCIA','FUNDO'));
I_Fundo.Picture.LoadFromFile(GetValorIni(ExtractFilePath(Application.ExeName) +
'config.ini', 'APARÊNCIA','FUNDO'));
end; |
|
O que poderia ser?
Grato
Abraços |
|