Re: File Dialogs
- Posted by Derek Parnell <ddparnell at bigpond.com> Sep 10, 2003
- 345 views
On Tue, 09 Sep 2003 20:28:54 -0400 (09/10/03 10:28:54) , Greg Haberek <g.haberek at comcast.net> wrote: > > > Derek or anyone savvy in Win32Lib, > > Can I change the title of a getOpen/SaveFileName dialogs? I want my save > dialog to say "New" instead or "Save" > > Thanks, > ~Greg Its not as easy as I'd like but here is one way of doing it... function MySaveFile(sequence Title, sequence SuggestedName, sequence DefExtention) atom lOfn sequence fName integer fNamePtr integer fExtPtr lOfn = buildDefaultOfn(0, SuggestedName, {"All files","*.*"}, or_bits(OFN_OVERWRITEPROMPT, OFN_HIDEREADONLY)) store(lOfn, ofnDefExt, DefExtention) store(lOfn, ofnTitle, Title) if w32Func(xGetSaveFileName, {lOfn}) then -- get the name fName = fetch( lOfn, ofnFile ) fNamePtr = fetch( lOfn, ofnFileOffset) fExtPtr = fetch( lOfn, ofnFileExtension) else fName = "" fNamePtr = 0 fExtPtr = 0 end if release_mem(lOfn) return {fName, fNamePtr, fExtPtr} end function -- cheers, Derek Parnell