F�rum TImage n�o est� atualizando imagem em tempo real. #584885

15/08/2017

Ol�, tenho um componente TImage atualizando com TTimer no intervalo de 1000ms, por�m s� mostra a imagem caso eu minimize e maximize ou se troco a propriedade do TImage para false e true novamente.

Solu��es que j� tentei.

procedure TFPrincipal.ComTerminal1StrRecieved(Sender: TObject; var Str: string);
begin
  Image1.Picture := Nil;
  if (Str = 'L1D') then
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'imagens/lampada_desligada.png')
  else
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'imagens/lampada_ligada.png');
end;



procedure TFPrincipal.Timer1Timer(Sender: TObject);
begin
  if BgQG.Visible then
    ComPort1.WriteStr('s');
  Application.ProcessMessages;
end;

Gabriel Costa

Curtir t�pico

+ 0

Responder

Posts

15/08/2017

Luiz Vichiatto

Voc� habilitou o TTimer para true?

Timer1Timer.Enabled := true

Responder

Gostei + 0

15/08/2017

Gabriel Costa

Voc� habilitou o TTimer para true?

Timer1Timer.Enabled := true

Sim, o c�digo est� tudo funcionando, por�m para eu conseguir ver a imagem atualizada, eu preciso minimizar e maximar o software, como se eu tivesse que dar um Refresh no form.

Responder

Gostei + 0

16/08/2017

Douglas Souza

procedure TFPrincipal.ComTerminal1StrRecieved(Sender: TObject; var Str: string);
begin
  Image1.Picture := Nil;
  if (Str = 'L1D') then
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'imagens/lampada_desligada.png')
  else
    Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'imagens/lampada_ligada.png');
end;



procedure TFPrincipal.Timer1Timer(Sender: TObject);
begin
  if BgQG.Visible then
    ComPort1.WriteStr('s');
  Application.ProcessMessages;
end;

Opa Gabriel, belezinha?

Tente utilizar o seguinte comando: "image1.refresh", ap�s a sua verifica��o de lampada ligada ou desligada.

Espero que funcione.

Um forte abra�o.

Att, Douglas Claudio.

Responder

Gostei + 0