comp • gb.qt4 • paint • zoomimage

Paint.ZoomImage (gb.qt4)

Static Sub ZoomImage ( Image As Image, Zoom As Integer, X As Integer, Y As Integer [ , Grid As Integer, Source As Rect ] )

Desenhe uma versão rápida ampliada de uma imagem ou parte dela.

  • Image : a imagem para ampliar.

  • Zoom : o fator de zoom. Use 1 para a imagem original, 2 para uma imagem duas vezes maior, e assim por diante...

  • X, Y : onde desenhar a imagem ampliada.

  • Grid : a cor de uma grade, ou Color.Default para não desenhar a grade.

  • Source : se for especificado, então, apenas a parte da imagem descrita pelo retângulo é levado em conta para o desenho.

Exemplo

Public Sub DrawingArea1_Draw()
Dim RET As Rect
  RET = Rect(10, 10, 200, 200)
  Paint.ZoomImage(Image.Load("imagem.png"), 12, 10, 10, Color.Red, RET)
  Paint.Fill()
End