Changeset 153 for trunk/Forms/FormMain.pas

Timestamp:

Jun 6, 2023, 9:46:08 PM (18 months ago)

Author:

chronos

Message:

• Added: Accept dropped files onto the application form.
• Fixed: Report error if compare tool was not found.

File:

• trunk/Forms/FormMain.pas (modified) (3 diffs)

trunk/Forms/FormMain.pas

@@ -59 +59 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormDropFiles(Sender: TObject; const FileNames: array of string);
     procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -85 +86 @@
 resourcestring
   SModified = 'Modified';
+  SOnlyOneFileCanBeDropped = 'Only one file can be dropped at once.';
 
 { TFormMain }
@@ -111 +113 @@
 begin
   FreeAndNil(FormContacts);
+end;
+
+procedure TFormMain.FormDropFiles(Sender: TObject;
+  const FileNames: array of string);
+begin
+  if Length(FileNames) <> 1 then ShowMessage(SOnlyOneFileCanBeDropped)
+    else begin
+      Core.Core.FileOpen(FileNames[0]);
+      Core.Core.UpdateFile;
+    end;
 end;