Topenpicturedialog does not take the path from the Images folder

Question

I have in my form a component TOpenPictureDialog to open the Images on a system, only instead of it taking the full path of the image file it only takes the alias.
Ex

• How I need : 'C: Users User-03 Pictures.jpg file'
• As he is coming: 'Images LOGO CMR.Jpg'

I’ve tried to see all the options in Vcl.Dialogs.Topenoptions and Vcl.Dialogs.Topenoptionsex and found nothing... How can I do it?

Picture of how it’s coming

procedure TfrmManutencaoParametros.opdParametrosSelectionChange(Sender: TObject);
begin
  // Muda a imagem no Quadro de imagens
  if opdParametros.FileName <> '' then
  begin
    inherited;
      ...
      ...
      ...
      ImgLogo.Picture.LoadFromFile(opdParametros.FileName);
  end;
end;

Answer 1

Here’s an example of how I use this component. Dir is a variable I create to play the name of the directory.

-- Beginning --

if Dir = '' then
begin
  Dir := 'C:\';
end else
begin
  OpenPictureDialog1.InitialDir := DIR;
end;

OpenPictureDialog1.Execute;
Edit1.Text := ExtractFileName(OpenPictureDialog1.FileName);
Dir := ExtractFilePath(OpenPictureDialog1.FileName) + Edit1.text;
Edit1.Text := Dir;

-- End --

In case it doesn’t work, please report the error here so I can help. The component also has a property called InitialDir, try to put the default directory path there in case it will not change.

Answer 2

Try this:

uses ...
  System.Types, System.IOUtils;

...
...

procedure TForm1.Button1Click(Sender: TObject);
Var
  Dlg: TOpenPictureDialog;
begin
  Dlg := TOpenPictureDialog.Create(Self);
  try
    with Dlg do
      begin
        InitialDir:= TPath.GetPicturesPath;
        if Execute then
          Image1.Picture.LoadFromFile(FileName);
      end;
  finally
    Dlg.Free;
  end;
end;