Código
{ 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;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009