Zoom no TImage

Question

Pessoal, td bem,Estou precisando do c�digo para afzer um zoom(aproximar e voltar a imagem), se alguem ter o c�digo, poderia me ajudar,obrigado...

Cebikyn · Answer

Use a seguinte procedure:[code:1:08cfae12c6]procedure SetCanvasZoomFactor(Canvas: TCanvas; AZoomFactor: Integer);var  i: Integer;begin  if AZoomFactor = 100 then    SetMapMode(Canvas.Handle, MM_TEXT)  else  begin    SetMapMode(Canvas.Handle, MM_ISOTROPIC);    SetWindowExtEx(Canvas.Handle, AZoomFactor, AZoomFactor, nil);    SetViewportExtEx(Canvas.Handle, 100, 100, nil);  end;end;[/code:1:08cfae12c6]Depois basta chamar:[code:1:08cfae12c6]SetCanvasZoomFactor(Image1.Canvas, zoom)[/code:1:08cfae12c6]Em que [i:08cfae12c6]zoom[/i:08cfae12c6] � a porcentagem de zoom....

Luizfernando777 · Answer

prezado colega,obrigado pelo c�digo, mas n�o est� funcionando...

Cebikyn · Answer

Fiz uns testes e percebi que a forma correta de chamar a [i:40ae54244e]procedure[/i:40ae54244e] �:

procedure TForm1.Button1Click(Sender: TObject);
var
  bitmap: TBitmap;
begin
  bitmap := TBitmap.Create;
  try
    bitmap.Assign(Image1.Picture.Bitmap);
    SetCanvasZoomFactor(bitmap.Canvas, 50);
    Image1.Canvas.Draw(0, 0, bitmap);
  finally
    bitmap.Free
  end;
end;

Luizfernando777 · Answer

Colega, muito obrigado pela ajuda,mas eu deveria ter me explicado melhor,eu estou precisando de um c�digo mais apurado,� que eu estou trabalhando com mapas, cartas topogr�ficas,mapas urbanos essas coisas.Ent�o o motivo de fazer zoom e voltar imagem, obrigado,se voc� achar melhor este � meu e-mailluizfernando777@yahoo.com.brobrigado + 1 vezfernando...

4_olho · Answer

Colega,Como a sua necessidade � grande, � prov�vel que n�o possa trabalhar com imagens comuns (bitmaps) e sim com imagens �vetoriais�. Estas, independentes do tamanho, podem ser aumentadas e reduzidas facilmente, sem perda de qualidade. S� n�o creio que haja alguma aplica��o desktop de baixo custo que v� satisfaz�-lo. Pelo menos n�o t�o f�cil quanto imagina.Um alternativa � digitalizar a imagem com alta resolu��o (1200 dpi) ou mais e ao us�-la no micro (72, 96 ou 120 dpi) a imagem fica �enorme�, podendo ent�o sempre dar o zoom para baixo. Mesmo esta alternativa exigir� muito espa�o em disco e muita mem�ria, pois as imagens, por pequenas que sejam, ter�o por volta de 30Mb.D� uma espiada no Guia 4 Rodas em CD e tente ver como trabalham....

Luizfernando777 · Answer

Prezado Colega,Na verdade o meu projeto j� est� pronto,eu tenho o mapa da cidade j� em Formato .BMP,que est� com 8.3 mb, est� funcionando perfeitamente,Na quest�o do Micro, n�o � o problema,est� em um Pentium 1.8Gz, 512 Ram DDR, Off-Board,E a imagem s� � carregada na necessidade da mesma,caso contr�rio n�o fica na Mem�ria,Mas, qdo eu usei sua �Procedure�, ainda deualguns problemas, � isso mesmo que preciso,estou tentando implementar um c�digo que tenho aqui,mas n�o est� dando muito certo,A imagem amplia, mas fica restria a um tamanho.Se voc� puder me manda o seu e-mail,mando o meu teste e a� voc� v� o que est� acontecendo.obrigado...

Cebikyn · Answer

[quote:830a3add79=�luizfernando777�]A imagem amplia, mas fica restria a um tamanho.[/quote:830a3add79]Como assim? Se vc estiver se referindo a dar zoom em apenas uma �rea, basta alterar os n�meros em �Image1.Canvas.Draw([b:830a3add79]0[/b:830a3add79],[b:830a3add79]0[/b:830a3add79],bitmap)�. Se n�o for isso, pode usar o link de e-mail logo abaixo da minha assinatura.[quote:830a3add79=�4_olho�]S� n�o creio que haja alguma aplica��o desktop de baixo custo que v� satisfaz�-lo. Pelo menos n�o t�o f�cil quanto imagina.[/quote:830a3add79]Existe sim, tem at� uma cole��o de componentes pro Delphi, [i:830a3add79]free[/i:830a3add79] e com todos os c�digos fontes, que trabalha com arquivos do AutoCAD, chama [url=//www.torry.net/cad.htm]CADSys 4.2[/url]. E � relativamente f�cil de usar....

Luizfernando777 · Answer

vou dar uma olhada no componente,obrigado...

4_olho · Answer

:oops: Obrigado! - Eu tamb�m vou olhar .... :oops:...

F�rum Zoom no TImage #179977