>local m.yrep >m.yrep=addbs(justpath(sys(16,1))) &&start folder >if !directory (m.yrep+"images") &&images created folder >md (m.yrep+"images") >endi > >local m.xpict,imgObj >m.xpict=getpict() >if empty(m.xpict) >return .f. >endi > >imgObj = CreateObject("ImageMagickObject.MagickImage.1") >= imgObj.Convert(xpict, "-resize", "100x100!", "images\thumb.png") > = imgObj.Convert(xpict, "-resize", "200x200!", "-type", "Grayscale", "-depth", "8", "images\thumb_grayscale.png") > = imgObj.Convert(xpict,"-negate", "-resize", "300x250!", "images\thumb_negate.png") > = imgObj.montage("-label","myShadow",xpict,':','-background','none','-geometry','+15+15','-shadow', 'images\shadow.png') > = imgObj.montage (xpict,"-background","Gold","-flatten","-frame","6","-geometry","'64x64+10+10>'","-size","16x16","-bordercolor","LimeGreen","-background","SeaGreen","images\ymontage_texture_border.gif") > = imgObj.convert(xpict,":","-raise","12","images\yraise.gif") >imgObj=null >>