OpenEuphoria

2. 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