1. Forum
  2. Usenet
  3. COMP.LANG.CLIPPER.VISUAL-

  • File Open Dialog

    From Kuno Egger@21:1/5 to All on Thu Jan 20 08:28:28 2022
    Does anyone know how to show the files in an OpenDialog() so they appear sorted by creation date?

    Any advice would be greatly appreciated.

    Kuno

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Jamal@21:1/5 to Kuno Egger on Sun Jan 23 15:23:52 2022
    Kuno,

    Add the following to your app:

    define FCIDM_SHVIEW_LARGEICON := 0x7029
    define FCIDM_SHVIEW_LIST := 0x702B
    define FCIDM_SHVIEW_REPORT := 0x28716
    define FCIDM_SHVIEW_SMALLICON := 0x702A
    define FCIDM_SHVIEW_THUMBNAIL := 0x702D
    define FCIDM_SHVIEW_TILE := 0x702E

    define ByAttributes := 0x7609
    define ByDateCreated := 0x7607
    define ByDateModified := 0x7606


    METHOD Dispatch(oEvt, hDlg) CLASS OpenDialog
    LOCAL hHandle as PTR

    IF oEvt:message = 78

    hHandle := FindWindowEx(hDlg , 0, String2Psz("SHELLDLL_DefView"),String2Psz(""))

    SendMessage( hHandle, WM_COMMAND, FCIDM_SHVIEW_REPORT, 0 )
    // SendMessage( h1, WM_COMMAND, FCIDM_SHVIEW_LARGEICON, 0 )

    SendMessage( hHandle, WM_COMMAND, ByDateCreated, 0 )

    ENDIF
    RETURN 0L

    Jamal

    On 1/20/2022 11:28 AM, Kuno Egger wrote:
    Does anyone know how to show the files in an OpenDialog() so they appear sorted by creation date?

    Any advice would be greatly appreciated.

    Kuno

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Kuno Egger@21:1/5 to Jamal on Fri Feb 25 08:46:59 2022
    On Sunday, 23 January 2022 at 15:23:55 UTC-5, Jamal wrote:
    Kuno,

    Add the following to your app:

    define FCIDM_SHVIEW_LARGEICON := 0x7029
    define FCIDM_SHVIEW_LIST := 0x702B
    define FCIDM_SHVIEW_REPORT := 0x28716
    define FCIDM_SHVIEW_SMALLICON := 0x702A
    define FCIDM_SHVIEW_THUMBNAIL := 0x702D
    define FCIDM_SHVIEW_TILE := 0x702E

    define ByAttributes := 0x7609
    define ByDateCreated := 0x7607
    define ByDateModified := 0x7606


    METHOD Dispatch(oEvt, hDlg) CLASS OpenDialog
    LOCAL hHandle as PTR

    IF oEvt:message = 78

    hHandle := FindWindowEx(hDlg , 0, String2Psz("SHELLDLL_DefView"),String2Psz(""))

    SendMessage( hHandle, WM_COMMAND, FCIDM_SHVIEW_REPORT, 0 )
    // SendMessage( h1, WM_COMMAND, FCIDM_SHVIEW_LARGEICON, 0 )

    SendMessage( hHandle, WM_COMMAND, ByDateCreated, 0 )

    ENDIF
    RETURN 0L

    Jamal
    On 1/20/2022 11:28 AM, Kuno Egger wrote:
    Does anyone know how to show the files in an OpenDialog() so they appear sorted by creation date?

    Any advice would be greatly appreciated.

    Kuno
    Thank you Jamal!!

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)