Bilder, die von Photos auf ein Canvas oder ImageWell gezogen werden übernehmen.
Ich habe das nun so gelöst, für alle, die das mal brauchen…
Es mag nicht elegant sein, klappt aber prima!
benötigt Promised Files Redux von Sam Rowlands :
link text
eine weitere super Lösung gibt es hier, NSMediaLibraryBrowser, ebenfalls von Sam Rowlands
link text
im DropObject Event:
dim name as String
dim pic as Picture
dim erstes_bild as Boolean=true
if obj.FolderItemAvailable then
pic = Picture.Open(obj.FolderItem)
name=obj.FolderItem.Name
elseIf obj.PictureAvailable then
pic = obj.Picture
name=obj.Text
elseIf obj.promisedFilesAvailable then
Dim destination as folderitem = specialFolder.Temporary
Dim files() as folderitem = obj.promisedFilesAtDestination(destination)
For each file as folderitem in files
if erstes_bild then photofolder =file
erstes_bild=false
next
timer_photos.mode=1 // timer auf 500, muss halt wartem bis das Bild auch geschrieben ist
else
return
end if
if pic<>nil then
label_dateiname.text=name
zusatzbild_neu(pic,name)
end if
Dann im Timer:
dim pic as Picture
pic=picture.Open(photofolder)
photoname=photofolder.name
if pic<>nil then
label_dateiname.text=photoname
zusatzbild_neu(pic,photoname) // hier wird das bild dann in der Datenbank gesichert und im ImgaeWell angezeigt
else
//
end if