BUT now it works..
Dim dlg as New SaveAsDialog
Dim f,d as FolderItem
Dim SaveStr, FileName as String
dim pic as new Picture(100,100,32)
dlg.InitialDirectory= SpecialFolder.Desktop
dlg.promptText="Where do you want to save your picture?"
dlg.SuggestedFileName="Namnlös.jpg"
dlg.Title="Save a folder example"
dlg.Filter="Image/jpeg"
f=dlg.ShowModal()
If f <> Nil then
FileName = f.Name
SaveStr = f.Parent.GetSaveInfo(Nil)
d = GetFolderItem(SaveStr).Child("tmp100.jpg")
d.SaveAsJPEG pic
d.Name = FileName
//file saved
Else
//user canceled
End if
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
