Page 3 of 3
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Mon Jul 29, 2013 10:10 am
by 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.
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Sat Feb 26, 2022 6:37 pm
by 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!
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Sat Feb 26, 2022 8:51 pm
by 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)
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Sat Feb 26, 2022 9:16 pm
by SharkyEXE
RASHAD wrote: Sat Feb 26, 2022 8:51 pm
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!
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Sun Feb 27, 2022 3:45 am
by 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)
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Sun Feb 27, 2022 7:12 am
by 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$)
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!
Re: PB 5.10 PathRequester() does not show 'extensions'
Posted: Mon Mar 07, 2022 5:03 am
by SharkyEXE
Hello
Time goes by, there is no sense
Please help me with my problem