Tecnobyte

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;
O conteúdo desta página pode ajudar alguém? Compartilhe!