Changeset 181 for trunk/Core.pas

Timestamp:

Aug 27, 2024, 10:50:23 AM (3 weeks ago)

Author:

chronos

Message:

• Added: Windows installer for version 1.5.0.
• Modified: Version 1.5.0 related updates.
• Modified: Trunk pushed to 1.6.0 alfa version.

File:

• trunk/Core.pas (modified) (4 diffs)

trunk/Core.pas

@@ -277 +277 @@
     if ModalResult = mrYes then begin
       {$IFDEF WINDOWS}
-      ExecuteProgram('explorer.exe', ['"' + SelectDirectoryDialog1.FileName + '"']);
+      ExecuteProgram('explorer.exe', ['"' + SelectDirectoryDialog1.FileName + '"'], []);
       {$ENDIF}
       {$IFDEF UNIX}
@@ -681 +681 @@
   Diffuse = '/usr/bin/diffuse';
   BeyondCompareLin = '/usr/bin/bcompare';
-  BeyondCompareWin = 'c:\Program Files\Beyond Compare 4\BCompare.exe';
+  BeyondCompareWin3 = 'c:\Program Files\Beyond Compare 3\BCompare.exe';
+  BeyondCompareWin4 = 'c:\Program Files\Beyond Compare 4\BCompare.exe';
+  BeyondCompareWin5 = 'c:\Program Files\Beyond Compare 5\BCompare.exe';
 begin
   if FileExists(KDiff3) then Result := KDiff3
@@ -688 +690 @@
   else if FileExists(Diffuse) then Result := Diffuse
   else if FileExists(BeyondCompareLin) then Result := BeyondCompareLin
-  else if FileExists(BeyondCompareWin) then Result := BeyondCompareWin
+  else if FileExists(BeyondCompareWin5) then Result := BeyondCompareWin5
+  else if FileExists(BeyondCompareWin4) then Result := BeyondCompareWin4
+  else if FileExists(BeyondCompareWin3) then Result := BeyondCompareWin3
   else Result := '';
 end;
@@ -720 +724 @@
   {$IFOPT D+}
   ATest.Enabled := True;
-  AFileCompare.Enabled := True;
   {$ENDIF}
   {$IFOPT D-}
   ATest.Enabled := False;
-  AFileCompare.Enabled := False;
   {$ENDIF}
   ATest.Visible := ATest.Enabled;