On May 5, 2006, at 8:46 PM, Arne wrote:
I think you could use this as an workaround:
Dim dlg as New SaveAsDialog
Dim f,d as FolderItem
Dim SaveStr 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
SaveStr = f.Parent.GetSaveInfo(Nil)
d = GetFolderItem(SaveStr).Child("tmp100.jpg")
d.SaveAsJPEG pic
d.Name = dlg.SuggestedFileName
//file saved
Else
//user canceled
End if
Regards,
Sven E_______________________________________________
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>
