OpenEuphoria

Re: File Dialogs

• Posted by Greg Haberek <g.haberek at comcast.net> Sep 10, 2003
• 362 views

Ok thats what I thought but I hadn't tried it yet. Thanks!

----- Original Message -----
From: "Derek Parnell" <ddparnell at bigpond.com>
To: "EUforum" <EUforum at topica.com>
Subject: Re: File Dialogs


>
>
> 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
>
> --^----------------------------------------------------------------
> This email was sent to: g.haberek at comcast.net
>
>
> TOPICA - Start your own email discussion group. FREE!
>
>