*1*
*convert and resize any picture with gdiplusX with preserving Ratio or no

Local m.yrep
m.yrep=Addbs(Justpath(Sys(16,1)))


Do Locfile("system.app","app")



Local m.xpict
m.xpict=Getpict()
If Empty(m.xpict)
Return .F.
Endi
Local m.oo,mw0,m.h
m.oo=Newobject("image") &&get original dimensions of this image (native vfp)
m.oo.Picture=m.xpict
m.w0=m.oo.Width
m.h0=m.oo.Height
m.oo=Null


Local m.x
m.x=Inputbox("SAve as: PNG,JPG,BMP,GIF,ICO","","PNG") &&convert to...
If Empty(m.x) Or !Inlist(Upper(m.x),"PNG","JPG","BMP","GIF","ICO")
Return .F.
Endi
m.x=Upper(m.x)

Local xdim
m.xdim=Inputbox("format Widthxheight","","640x480") &&resize to this format wxh
m.xdim=lower(m.xdim)
Local m.w,m.h
If Empty(m.xdim) Or !"x"$ m.xdim
m.w=m.W0
m.h=m.h0
Else &&extract wanted dimensions of the converted image
m.w=Strextract(m.xdim,'',"x")
m.h=Strextract(m.xdim,"x","")
Endi



Local m.preserveRatio
m.preserveRatio=Inputbox("preserve ratio image ? : yes -no","","no")
If Empty(m.preserveRatio) Or !Inlist(Lower(m.preserveRatio),"yes","no")
m.preserveRatio="no"
Endi

m.w=Int(Val(m.w))
m.h=Int(Val(m.h))

If m.preserveRatio="yes"
m.h=Int(m.h*m.w0/m.h0)
Endi

If m.w=0 Or m.h=0
Return .F.
Endi

Local loBMP,loBMP1 As fxcBitmap

With _Screen.System.drawing
loBMP=.Image.fromfile(m.xpict)

Local m.lcdest
m.lcdest=m.yrep+"yconverted"+"."+m.x

loBMP1=.Bitmap.new(m.w,m.h)
logfx= .Graphics.FromImage(loBMP1)
&&working with smoothless & high quality drawing
LOGFX.smoothingmode = .drawing2d.smoothingmode.highquality
LOGFX.interpolationmode = .drawing2d.interpolationmode.highqualitybicubic
LOGFX.pixeloffsetmode = .drawing2d.pixeloffsetmode.highquality
logfx.Clear(.Color.white)
logfx.drawImage(loBMP,0,0,m.w,m.h)

Do Case
Case m.x=="PNG"
loBMP1.Save(m.lcdest,.imaging.imageformat.PNG)
Case m.x=="JPG"
loBMP1.Save(m.lcdest,.imaging.imageformat.JPEG)
Case m.x=="BMP"
loBMP1.Save(m.lcdest,.imaging.imageformat.BMP)
Case m.x=="GIF"
loBMP1.Save(m.lcdest,.imaging.imageformat.GIF)
Case m.x=="ICO"
loBMP1.Save(m.lcdest,.imaging.imageformat.ICON)
Endcase

Endwith

Run/N explorer &lcdest &&show the converted/resized image with explorer
retu