Height e Width

Delphi

13/08/2003

Como faço para colocar em uma TLabel a algura e largura de um arquivo tipo JPEG???

Grato ao colega que puder me ajudar,

Mardônio Cavalcante


Mardônio

Mardônio

Curtidas 0

Respostas

Nigro

Nigro

13/08/2003

Caso você queira apenas colocar a imagem na tela, pode usar o tImage


Nigro


GOSTEI 0
Allen74

Allen74

13/08/2003

Amigo, segue código exemplo. Para testar acrescente um OpenDialog, um TButton e um TLabel no seu forumlário.

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  Img : TJpegImage;
begin
  if OpenDialog1.Execute then
  begin
    Img := TJpegImage.Create;
    Img.LoadFromFile(OpenDialog1.FileName);
    Label1.Caption := ´Width: ´+IntToStr(Img.Width)+
      ´, Height: ´+IntToStr(Img.Height);
    Img.Free;
  end;
end;



GOSTEI 0
POSTAR