Changeset 153 for trunk/Forms/FormCompare.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/FormCompare.pas (modified) (2 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;