Hi,
das picture ReSized müsste schon global sein, damit du es auch zum
Speichern verwenden kannst. Ausserdem ist es nicht w x h groß,
sondern nur so groß wie das imagewell, dessen Größe du auslesen
solltest.
Da das imagewell aber auch bloß ein picture ist, kannst du dir die
Eigenschaft ganz sparen und das imagewell selbst als Speicher benutzen
und dessen image jederzeit als Jpeg sichern.
Der Code geht auch etwas eleganter und sicherer, denn doppelte Sachen
spart man sich und neue Objekte sollte man prüfen.
dim p as picture
if obj.pictureAvailable then
p = obj.picture
elseif obj.folderItemAvailable then
p = obj.folderItem.openAsPicture
end If
if p <> nil then
me.image = newPicture( me.width, me.height, 32 )
me.image.graphics.drawPicture( p, 0, 0, me.width, me.height, 0, 0,
p.width, p.height )
me.refresh
end if
Grüße, Stephan
-------------------------------------------------------------------------
stoske & bertling - visuelle kommunikation
lohmühler berg 30 - 42553 velbert - fon 02053/504464 - fax 02053/923630
info at stoske-bertling dot de - www.stoske-bertling.de - ftp.stoske-bertling.de
|