Windows Select File Dialog Box - UTILITY function with CHOOSEFILE

sallyk

How do I display a modern Windows Select File Dialog Box? Using the Utility function with CHOOSEFILE I get something that looks like this:

BarryStevens

CorbyNagel

RTI OS Directory allows you to use the normal Windows file open dialog. https://wiki.srpcs.com/display/Commands/RTI+OS+Directory+function+Choose

sallyk

Using RTI_OS_DIRECTORY will work to get the directory. I then have to make a popup of the files in the directory for the user to choose from.

I thought that there must be a way to display a Windows Choose a File dialog box.

KevinFournier

CHOOSEFILE is not purposefully showing that particular dialog. I use CHOOSEFILE all the time, and it always shows the default Open File dialog for Windows. What version of Windows? What version of OI? Are you running OI in Compatability mode?

sallyk

I thought that the results I was getting were strange. I'm using OI 9.4.0 with Windows 10, NO Compatability mode.
PARM=''
PARM<1>=0 ; * 0=OPEN, 1=SAVE AS
PARM<2>="All files (*.*)/*.*/"
PARM<3>=1 ; * DEFAULT FILE TYPE IS THE FIRST ONE
PARM<4>='' ; * DEFAULT FILENAME
PARM<5>=0X200 ; * OFN_ALLOWMULTISELECT FROM THE MICROSOFT SDK
PARM<6>='C:\ATTACHMENTS' ; * INITIAL DIRECTORY
ATTACHMENT=UTILITY("CHOOSEFILE",@WINDOW,PARM)

AusMarkB

I have code that's been the same for over a decade and other than PARM<5>, it's essentially the same as yours and like Kevin, I get the default Windows open file dialog.
OI is 9.4.2 but I don't see that making any real difference.

1 2 3 4 5 6 7 8

CFOpt = "" CFOpt<1> = 0      ;* open mode CFOpt<2> = "Text Files (*.csv)/*.csv/All Files (*.*)/*.*/" CFOpt<3> = 1      CFOpt<4> = DfltName CFOpt<6> = StartDir   Filename = Utility("CHOOSEFILE", @window, CFOpt)

Must be something else at play

AusMarkB

So I added parm<5> for curiosity's sake and...

KevinFournier

Good catch. If you want to use the multi-select flag, then you have to include the use-explorer-style flag, which is 0x80000. So, both flags together would be 0x80200.

sallyk

Wow, it works! You guys are amazing.