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
Oi Cesar,
ReplyDeleteNã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.
Versión en Español de este artículo en / Spanish version at http://www.portalfox.com/article.php?sid=2270
ReplyDelete