Ich habe den canvas mal im ersten fenster belassen und die folgenden
zeilen hinzugefügt. Damit wird in den canvas gemalt, aber nichts
verkleinert:
dim fpic As folderitem
dim pic as picture
dim pic2 as picture
dim pHeight as integer = 760
dim pWidth as integer = 560
dim factor As double
fpic = getopenfolderitem("")
pic = fpic.OpenAsVectorPicture
factor = Min(pWidth/pic.Width, pHeight/pic.Height )
factor = Min(factor, 1.0 )
pic2= New Picture(pic.Width * factor,pic.Height * factor, 32 )
pic2.Graphics.DrawPicture(pic,0,0,pic2.Width,pic2.Height,0,0,pWidth,pHeight)
canvas1.backdrop = pic2
