Changeset 153 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• FormCompare.pas (modified) (2 diffs)
• FormMain.lfm (modified) (2 diffs)
• FormMain.pas (modified) (3 diffs)

trunk/Forms/FormCompare.pas

@@ -44 +44 @@
 uses
   Core, FormCompareSideBySide, VCardProcessor;
+
+resourcestring
+  SCompareToolNotFound = 'Compare tool ''%s'' not found. Select valid compare tool in the application settings.';
 
 { TFormCompare }
@@ -150 +153 @@
   SaveStringToFile(TextLeft, TempFileLeft);
   SaveStringToFile(TextRight, TempFileRight);
-  ExecuteProgram(Core.Core.CompareTool, [TempFileLeft, TempFileRight]);
+  if FileExists(Core.Core.CompareTool) then
+    ExecuteProgram(Core.Core.CompareTool, [TempFileLeft, TempFileRight])
+    else ShowMessage(Format(SCompareToolNotFound, [Core.Core.CompareTool]));
 end;
 
 procedure TFormCompare.CompareExternal;
 begin
-  CompareText(LeftVCard.VCard.AsString, RightVCard.Vcard.AsString,
+  CompareText(LeftVCard.VCard.AsString, RightVCard.VCard.AsString,
     ExtractFileName(LeftVCard.FileName), ExtractFileName(EditAnotherFile.Text));
 end;

trunk/Forms/FormMain.lfm

@@ -4 +4 @@
   Top = 401
   Width = 1178
+  AllowDropFiles = True
   Caption = 'vCard Studio'
   ClientHeight = 762
@@ -13 +14 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnDropFiles = FormDropFiles
   OnResize = FormResize
   OnShow = FormShow

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;