DAR ZOOM EM UMA IMAGEM EM DELPHI

Adicionado em 09/10/2022

Compartilhar em:

Esse exemplo ensina como dar zoom em uma imagem em Delphi para imagens JPEG, mas pode ser facilmente adaptado para outras extensões. É compatível com várias versões de Delphi.

Inicie uma nova Aplicação VCL.


Importante: adicione a biblioteca JPEG ao uses
No Form, adicione um TImage, um TTrackbar, um TLabel, um TButton e um TOpenDialog.
Renomeie o OpenDialog para OD.

Adicione a variável bmpmain: TBitmap na seção public.
Adicione o seguinte prodedimento logo após {$R *.dfm}


No evento de clicar do botão adicionamos:

No evento Destroy do Form adicionamos:


Por fim, adicionamos os seguintes comandos para a TrackBar:


Depois de compilar:
Com Zoom de 100%:


Com Zoom de 200%: