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). |