Am 16.02.11 09:54, schrieb Christian Schmitz:
Zeig mal deine DrawPicture Zeile.
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 )
// und hier komme ich nicht weiter
window2.show
Gruß Christian
