My code below Saves a Canvas Image to my created Windows Application Documents Directory. I want to improve the user experience. If I save to a new windows directory location I want it to remember that new directory location in the SaveAs Dialog. The next new SavedAs Image Item keeps defaulting back to my Application Directory then I have to click to the new directory all over again.
I’ve found a few code samples in the Xojo Old & New Docs from FolderItem.FromSaveInfo. I’m trying to incorporate in my code below with no success. I noticed there’s has been some syntax changes for the more current Xojo Releases. I’m using an older xojo version as of now. How do I incorporate this to my code below to keep it simple as possible?
Dim pic as new Picture(Canvas.Width, Canvas.Height,32) Canvas.drawinto(pic.graphics, 0, 0) Dim dlg as SaveAsDialog Dim f, g as FolderItem dlg = new SaveAsDialog dlg.Title = "Save PNG Picture File" dlg.SuggestedFileName = "Scale Diagram.png" dlg.Filter = FileTypes1.PngType + FileTypes1.JpgType + FileTypes1.bmpType //Open SaveAs Dialog To Appilcation Directory Dim ImgDir As FolderItem = SpecialFolder.Documents.Child("Application").Child("Application Data") dlg.InitialDirectory = ImgDir f = dlg.ShowModal If f <> Nil Then pic.Save(f, pic.SaveAsPNG) End If