Changeset 123 for trunk/Forms/UFormImage.pas

Timestamp:

Mar 16, 2022, 11:35:08 AM (3 years ago)

Author:

chronos

Message:

• Added: QR code image visible in contact others tab. It can be saved as image to file.

File:

• trunk/Forms/UFormImage.pas (modified) (2 diffs)

trunk/Forms/UFormImage.pas

@@ -73 +73 @@
 procedure TFormImage.ButtonLoadClick(Sender: TObject);
 begin
-  OpenPictureDialog1.FileName := Core.LastPhotoFileName;
+  OpenPictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
+  OpenPictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
   if OpenPictureDialog1.Execute then begin
     Image.LoadFromFile(OpenPictureDialog1.FileName);
@@ -87 +88 @@
 procedure TFormImage.ButtonSaveClick(Sender: TObject);
 begin
-  SavePictureDialog1.FileName := Core.LastPhotoFileName;
+  SavePictureDialog1.InitialDir := ExtractFileDir(Core.LastPhotoFileName);
+  SavePictureDialog1.FileName := ExtractFileName(Core.LastPhotoFileName);
   if SavePictureDialog1.Execute then begin
     Image.SaveToFile(SavePictureDialog1.FileName);