How to enable TOpenDialog.InitialDir in Windows 7?

[dkjMusic]

I have the following code, but Windows insists on opening the last opened directory when the open dialog is executed:

  ProjectOpenDialog.InitialDir := Settings.ProjectDirectory;
  SetCurrentDir(ProjectOpenDialog.InitialDir);

[Blaazen]

Try to change "filename".

Code: [Select]

ProjectOpenDialog.Filename := Settings.ProjectDirectory;

[dkjMusic]

Try to change "filename".

Code: [Select]

ProjectOpenDialog.Filename := Settings.ProjectDirectory;

That "sorta" worked. The dialog still opened in the last opened directory with the Settings.ProjectDirectory text in the filename box. Clicking the <Open> button then took me to the ProjectDirectory, but the user might not know what was happening. I believe that Windows default behavior is fighting me on this one.

Any thing else I should try?

[Blaazen]

This (call it before OpenDialog.Execute):

Code: [Select]

ProjectOpenDialog.Filename := ProjectOpenDialog.InitialDir;


[dkjMusic]

This (call it before OpenDialog.Execute):

Code: [Select]

ProjectOpenDialog.Filename := ProjectOpenDialog.InitialDir;


I got the same.

[Bart]

Strange,

Code: [Select]

  if InitialDir <> '' then
  begin
    if Succeeded(SHCreateItemFromParsingName(PWideChar(UTF8ToUTF16(InitialDir)), nil, IShellItem, DefaultFolderItem)) then
      ADialog.SetDefaultFolder(DefaultFolderItem);
  end;

I verified that Succeeded(SHCreateItemFromParsingName()) actually returns True for existing dirs (and false for non-existing) and that GetFileName(DefaultFolderItem) in fact returns the right name, but nevertheless InitialDir isn't set at all.
ADialog.SetDefaultFolder resturns 0 (which Succeded() says is True, indicating that all went OK).

Bart

[dkjMusic]

Bart, so what does this mean?

[Bart]

Bart, so what does this mean?

I really do not have a clue.
I was just investigating if something obvious went wrong in that code.

Maybe you should report it on the bugtracker.

Bart

[Bart]

Cahnging the code in Win32WSDialogs.pp to this seems to work:

Code: [Select]

if InitialDir <> '' then
  begin
    if Succeeded(SHCreateItemFromParsingName(PWideChar(UTF8ToUTF16(InitialDir)), nil, IShellItem, DefaultFolderItem)) then
      ADialog.SetFolder(DefaultFolderItem);  //SetFolder, not SetDefaultFolder
end;

I'm unsure however, if this is the correct way.

Anyway I posted it on the bugtracker (http://bugs.freepascal.org/view.php?id=20387)

Bart

[Bart]

Fixed in r32654.

Bart