Strange behaviour in TElFileNameEdit.BtnClick

Quanos Service Solutions GmbH · May 2016

The Filedialog behave strang.
If you open the dialog with a set file, the dialog set the directory to the correct path.
If you change the directory and reopen the dialog, the first used directory is used instead of the directory of the actual file.

Please change following

var
IssetIntern: Boolean;
begin
...

    else if (InitialDir = '') then
    begin
      IsSetIntern := True;
      SetInitialDir(LMDExtractFilePath(AFileName));
    end;

....

    FileDlg.FileName := LMDExtractFileName(AFileName); // No change of AFileName-Variable

....

    // Reset to Initial Value
    if IsSetIntern and (LMDExtractFilePath(AFileName) = InitialDir) then
      SetInitialDir('');

balabuev · May 2016

Hi,

I've changed the code of mentioned method to the following:

procedure TElFileNameEdit.BtnClick(Sender: TObject);

var

AFileName: TLMDString;

APath: TLMDString;

AParams: TLMDString;

begin

if not ReadOnly then

begin

AParams := '';

AFileName := Text;

if ParseParameters and not FileExists(AFileName) and

(Trim(AFileName) <> '') then

begin

GetParamStr(PLMDChar(Text), AFileName);

if (Pos('"', Text) > 1) and (Length(Text) - Length(AFileName) > 2) then

AParams := Copy(Text, Length(AFileName) + 1, Length(Text));

end;

APath := ExtractFilePath(AFileName);

if DirectoryExists(APath) then

InitialDir := APath;

FileDlg.FileName := ExtractFileName(AFileName);

FileDlg.Title := DialogTitle;

TriggerBeforeDialogExecute(FileDlg);

if FileDlg.Execute then

begin

Text := FileDlg.FileName + AParams;

Modified := true;

TriggerDialogExecute;

Change;

end;

Hope, this will work correctly.

Howdy, Stranger!

Categories

In this Discussion

Strange behaviour in TElFileNameEdit.BtnClick

Comments