DAR ZOOM EM UMA IMAGEM EM DELPHI
Adicionado em 09/10/2022
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%: |