UsingPictureDialogs (Delphi)

Description

This example requires an image, two buttons, an open picture dialog, and a save picture dialog on a form. Clicking the Open/Save button executes the open/save picture dialog. An exception is raised when trying to open a file that does not exist or when trying to overwrite a file using the save dialog.

Code

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Execute an open picture dialog. }
  if OpenPictureDialog1.Execute then
    { First check if the file exists. }
    if FileExists(OpenPictureDialog1.FileName) then
      { If it exists, load the data into the image component. }
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName)
    else
      { Otherwise raise an exception. }
      raise Exception.Create('File does not exist.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  { Execute a save picture dialog. }
  if SavePictureDialog1.Execute then
    { First check if the file exists. }
    if FileExists(SavePictureDialog1.FileName) then
      { If it exists, raise an exception. }
      raise Exception.Create('File already exists. Cannot overwrite.')
    else
      { Otherwise, save the image data into the file. }
      Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Canvas.Refresh;
end;

Uses

• Vcl.ExtDlgs.TOpenPictureDialog ( fr | de | ja )
• Vcl.ExtDlgs.TSavePictureDialog ( fr | de | ja )
• Vcl.ExtDlgs.TOpenPictureDialog.Execute ( fr | de | ja )
• Vcl.ExtDlgs.TSavePictureDialog.Execute ( fr | de | ja )