PB 5.10 PathRequester() does not show 'extensions'

[Fred]

As you can see, even with raw API it's the same, so i don't think it's a PB related problem. Moved to Windows forum to have a trace on this subject.

[SharkyEXE]

Hello

I need help

I write script on PureBasic, sources code i see on this link + this link

Code: Select all

Procedure.s BrowseForFolder(Path.s)
  Folder.s = Space(#MAX_PATH)
  Dir.BROWSEINFO
  
  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE | #BIF_EDITBOX

  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE

  ;works !!!
  dir\ulFlags = #BIF_EDITBOX
  
  result.l = SHBrowseForFolder_(@Dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder
EndProcedure

Path$ = BrowseForFolder("")
MessageRequester("",Path$)

Please, i very-very need help, how change size this window?

Thank You!

[RASHAD]

Hi

Code: Select all

Procedure.s BrowseForFolder(Path.s)
  Folder.s = Space(#MAX_PATH)
  Dir.BROWSEINFO
  
  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE | #BIF_EDITBOX

  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE

  ;works !!!
  dir\ulFlags = #BIF_EDITBOX
  
  result.l = SHBrowseForFolder_(@Dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder.s
EndProcedure

Folder.s = BrowseForFolder("")
MessageRequester("",Folder.s)

[SharkyEXE]

Hi

Code: Select all

Procedure.s BrowseForFolder(Path.s)
  Folder.s = Space(#MAX_PATH)
  Dir.BROWSEINFO
  
  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE | #BIF_EDITBOX

  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE

  ;works !!!
  dir\ulFlags = #BIF_EDITBOX
  
  result.l = SHBrowseForFolder_(@Dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder.s
EndProcedure

Folder.s = BrowseForFolder("")
MessageRequester("",Folder.s)

Hello

Window do not change size (left or right corner - Does not stretch left or right, up or down)

See video

https://cloud.mail.ru/public/S7QC/Rd6pgybXe
or
https://dropmefiles.com/hgwBZ

See picture


Thank You!

[RASHAD]

Code: Select all

#BIF_BROWSEFILEJUNCTIONS = $00010000

Procedure.s BrowseForFolder(StatusText.S,Path.s)
  Folder.s = Space(#MAX_PATH)
  dir.BROWSEINFO
  dir\ulFlags = #BIF_EDITBOX |#BIF_NEWDIALOGSTYLE| #BIF_STATUSTEXT | #BIF_BROWSEINCLUDEFILES|#BIF_BROWSEFILEJUNCTIONS
  dir\lpszTitle = @StatusText
  result = SHBrowseForFolder_(@dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder.s
EndProcedure

Folder.s = BrowseForFolder("Select Folder or File","")
MessageRequester("Select Folder or File",Folder.s,#MB_ICONINFORMATION|#MB_YESNOCANCEL)

[SharkyEXE]

RASHAD

Hello

Not fine for me

Because

1) In my script

Code: Select all

Procedure.s BrowseForFolder(Path.s)
  Folder.s = Space(#MAX_PATH)
  Dir.BROWSEINFO
  
  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE | #BIF_EDITBOX

  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE

  ;works !!!
  dir\ulFlags = #BIF_EDITBOX
  
  result.l = SHBrowseForFolder_(@Dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder
EndProcedure

Path$ = BrowseForFolder("")
MessageRequester("",Path$)

not change size window + when I click on a folder, this folder NOT is expanded automatically

See video

https://dropmefiles.com/GmXXA

or

See animation



2) On your script

Code: Select all

#BIF_BROWSEFILEJUNCTIONS = $00010000

Procedure.s BrowseForFolder(StatusText.S,Path.s)
  Folder.s = Space(#MAX_PATH)
  dir.BROWSEINFO
  dir\ulFlags = #BIF_EDITBOX |#BIF_NEWDIALOGSTYLE| #BIF_STATUSTEXT | #BIF_BROWSEINCLUDEFILES|#BIF_BROWSEFILEJUNCTIONS
  dir\lpszTitle = @StatusText
  result = SHBrowseForFolder_(@dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder.s
EndProcedure

Folder.s = BrowseForFolder("Select Folder or File","")
MessageRequester("Select Folder or File",Folder.s,#MB_ICONINFORMATION|#MB_YESNOCANCEL)

change size window + when I click on a folder, this folder is expanded automatically

See video

https://dropmefiles.com/I7F1h

or

See animation



I have script my script

Code: Select all

Procedure.s BrowseForFolder(Path.s)
  Folder.s = Space(#MAX_PATH)
  Dir.BROWSEINFO
  
  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE | #BIF_EDITBOX

  ; fails
  ;dir\ulFlags = #BIF_NEWDIALOGSTYLE

  ;works !!!
  dir\ulFlags = #BIF_EDITBOX
  
  result.l = SHBrowseForFolder_(@Dir)
  SHGetPathFromIDList_(result, @Folder)
  ProcedureReturn Folder
EndProcedure

Path$ = BrowseForFolder("")
MessageRequester("",Path$)

when change size window + when I click on a folder, this folder NOT is expanded automatically

Thank You!

[SharkyEXE]

Hello

Time goes by, there is no sense
Please help me with my problem