On 5/3/06 7:27 PM, "Brian Heibert" <[EMAIL PROTECTED]> wrote:
> ******** SEE BELOW
> Dim dlg as New SaveAsDialog
> // Check to see if Filename has been created
> If fName="" then
> // Filename has NOT been created so goto SAVE AS
> dlg.Filter="image/jpg, bmp, pict, gif"
> dlg.SuggestedFileName=fName
> dlg.Title="Save Drawing"
> f=dlg.ShowModal()
> If f <> Nil then
> f.saveaspicture(pic)
> fName=f.name
> Else
> //user canceled
> End If
> // Filename has been created so continue to SAVE
> ElseIf fName<>"" then
> f.name=fName
> If f <> Nil then
> f.saveaspicture(pic)
> End If
> End if
******** SEE BELOW
Dim f as folderItem
Dim p as Picture
Dim fName as String
fName = efPictureName.text
p = somePictureName
If fName<>"" then
f = getFolderItem(fName) // this'll attempt to create a
// folderItem ref in the same folder
// as your app
If f <> Nil then
f.saveaspicture(somePictureName)
End If
End if
> Brian Heibert
> [EMAIL PROTECTED]
_______________________________________________
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>
