Imagem - zoom

Top  Previous  Next

Vc pode usar o metodo CopyRect do TCanvas, indicando um Source Rect

menor que o Dest Rect.

Por exemplo:

 

PaintBox1.Canvas.CopyRect (Rect (0,0,PaintBox1.Width,PaintBox1.Height),

                           Image1.Picture.Bitmap.Canvas,

                           Rect (0,0,50,50));

 

 

Isto vai desenhar uma parte do bitmap em Image1 apliado x 2, caso o

PaintBox tenha dimensoes de 100 x 100 pixels e o bitmap for maior que isso

eh claro.

No exemplo o quadrante ampliado comeca em 0x0, mas vc pode inicia-lo

em qualquer ponto do grafico.

Com alguns calculos simples vc podera definir qual o tamanho do Source Rect

conforme o tamanho do PaintBox e da imagem original afim de obter a 

proporcao desejada (x2 x3 x4, etc).