2006-09-18

HOWTO: CHANGE BITMAP RESOLUTION

The bitmap resolution can be also very easily changed with gdi+.

The sample below uses the new GdiPlus-X classes from VFPX projects that can be downloaded from here: http://www.codeplex.com/wiki/view.aspx?projectname=vfpx&title=gdiplusx

*!* HOW TO CHNGE THE BITMAP RESOLUTION
* the code loads an image, changes its resolution to 200x200
* and saves it again as a bmp
*
http://msdn2.microsoft.com/en-us/library/system.drawing.bitmap.setresolution.aspx

do locfile("System.app")

with _screen.system.drawing
   * load image to gdi+
   local loBmp as xfcBitmap
   loBmp = .Bitmap.New(getpict())

   * change Bitmap Resolution
   loBmp.SetResolution(200,200)

   * save the bitmap
   loBmp.Save("c:\newresolution.bmp", .imaging.imageformat.bmp)

endwith
return

2 comments:

  1. Oi Cesar,
    Não estou conseguindo fazer os botões do GradObjects3 funcionarem.
    Eu adicionei no meu form: Gradbuttons1, Gradobjects1
    Mas na hora de executar da erro nestas linhas:

    -> .AddProperty("cTempGradFile","")
    .AddProperty("cTempGradFile2","")
    .AddProperty("cTempGradFile3","")
    .AddProperty("cTempGradFile4","")

    Por favor me diz o que eu to fazendo de errado.
    Obrigado
    Olá Augusto,
    Desculpe pela demora em responder, vc poderia me dar maiores informações sobre o erro ? Os exemplos que enviei com a classe estão funcionando bem ?
    Em princípio, trabalhe com apenas uma das classes. Teste adicionando apenas a "GradObjects". Ele deverá converter automagicamente todos os botões do seu Form em gradientes.
    Fico no aguardo de seu retorno para poder melhor orientá-lo.

    ReplyDelete
  2. Versión en Español de este artículo en / Spanish version at http://www.portalfox.com/article.php?sid=2270

    ReplyDelete