Buscar

Alterar propriedades de uma imagem jpg.

Código

{ Função para alterar as propriedades de uma imagem Jpeg. }
{ Declare "Jpeg" na seção USES. }
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.execute then begin
    image1.Picture.LoadFromFile(OpenPictureDialog1.filename);
    if image1.Picture.Graphic is TJPEGImage then begin
        with TJPEGImage(image1.Picture.Graphic) do begin
            PixelFormat        := TJPEGPixelFormat(1); {0 = 8Bits / 1 = 24Bits}
            Grayscale          := false;               {Apenas tons de cinza}
            Performance        := TJPEGPerformance(1); {0 = Baixa Resolução / 1 =
AltaResolução}

            ProgressiveDisplay := true;                {Display Progressivo}
        end;
      end;
  end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Imagens
Adicionada dia: 13/01/04
Por: Fabricio Giovanni Costa De Souza
Visualizada: 38528 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009