TSelectDirectoryDialog ignores InitalDir
lazarus / 13-General

----------------------------------------------------------------------
Kunstbanause · 2008-11-18 10:54

Hi,

I use a TSelectDirectoryDialog in my program to set up a directory my
application uses to check some files.

I now found out that TSelectDirectoryDialog seems to ignore it's
InitialDir-Property.

Assuming the following Code:

Code: [Select]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (Edit1.Text <> '') then
  begin
    SelectDirectoryDialog1.InitialDir := Edit1.Text;
  end
  else
  begin
    SelectDirectoryDialog1.InitialDir := GetUserDir;
  end;

  Label1.Caption := SelectDirectoryDialog1.InitialDir;

  if (SelectDirectoryDialog1.Execute) then
  begin
    Edit1.Text := SelectDirectoryDialog1.FileName;
  end;
end;


Label1 will get the Value of SelectDirectoryDialog1.InitialDir as
expected. But the component always select the last one I selected
before even though Edit1.Text names a different directory.

I use Lazarus 0.9.26 (2008-10-15, SVN Rev. 16885) and FPC 2.2.2 on
WinXP SP2.


When I use
Code: [Select]SelectDirectoryDialog1.FileName := Edit1.Text
the pre-selected directory is the one I want.
Bug or Feature?