Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Outros

Como pintar uma imagem jpeg (jpg) no formulário?

Inclua na seção uses: Graphics, JPeg
Problema:

Gostaria de pintar imagens de arquivos JPG (JPeg) nos forms 
de minha aplicação. Isto é possível? Como?

Solução:

Para trabalhar com arquivos JPG você precisa usar um objeto
TPicture, assim como colocar no uses a unit JPeg. Siga os
passos abaixo para pintar uma imagem JPG no form:

- No evento OnPaint do form coloque o código abaixo:

procedure TForm1.FormPaint(Sender: TObject);
var
  Imagem: TPicture;
begin
  Imagem := TPicture.Create;
  try
    Imagem.LoadFromFile('c:\teste\foto.jpg');
    Canvas.StretchDraw(ClientRect, Imagem.Graphic);
  finally
    Imagem.Free;
  end;
end;

- E no evento OnResize do form, coloque:

procedure TForm1.FormResize(Sender: TObject);
begin
  Repaint;
end;

Observações

Não se esqueça de trocar o nome do arquivo JPG conforme sua necessidade. Este exemplo foi elaborado usando Delphi4.

O conteúdo desta página pode ajudar alguém? Compartilhe!