Changeset 151 for trunk/Forms/FormSettings.pas

Timestamp:

Jun 6, 2023, 11:15:57 AM (12 months ago)

Author:

chronos

Message:

• Added: New file compare dialog with additional normalize options.
• Modified: Compare action uses external compare tool.

File:

• trunk/Forms/FormSettings.pas (modified) (4 diffs)

trunk/Forms/FormSettings.pas

@@ -12 +12 @@
 
   TFormSettings = class(TForm)
-    Bevel1: TBevel;
+    ButtonBrowse: TButton;
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBoxAutomaticDPI: TCheckBox;
     CheckBoxReopenLastFileOnStart: TCheckBox;
-    CheckBoxAutomaticDPI: TCheckBox;
     ComboBoxLanguage: TComboBox;
     ComboBoxTheme: TComboBox;
+    EditCompareTool: TEdit;
     EditDefaultVcardVersion: TEdit;
+    EditDefaultPhoneCountryPrefix: TEdit;
     EditMapUrl: TEdit;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
     LabelDPI: TLabel;
+    OpenDialog1: TOpenDialog;
+    ScrollBox1: TScrollBox;
     SpinEditDPI: TSpinEdit;
+    procedure ButtonBrowseClick(Sender: TObject);
     procedure ButtonOkClick(Sender: TObject);
     procedure CheckBoxAutomaticDPIChange(Sender: TObject);
@@ -71 +79 @@
 end;
 
+procedure TFormSettings.ButtonBrowseClick(Sender: TObject);
+begin
+  OpenDialog1.InitialDir := ExtractFileDir(EditCompareTool.Text);
+  OpenDialog1.FileName := ExtractFileName(EditCompareTool.Text);
+  if OpenDialog1.Execute then begin
+    EditCompareTool.Text := OpenDialog1.FileName;
+  end;
+end;
+
 procedure TFormSettings.CheckBoxAutomaticDPIChange(Sender: TObject);
 begin
@@ -101 +118 @@
     EditDefaultVcardVersion.Text := DefaultVcardVersion;
     EditMapUrl.Text := MapUrl;
+    EditCompareTool.Text := CompareTool;
+    EditDefaultPhoneCountryPrefix.Text := DefaultPhoneCountryPrefix;
   end;
   UpdateInterface;
@@ -113 +132 @@
     DefaultVcardVersion := EditDefaultVcardVersion.Text;
     MapUrl := EditMapUrl.Text;
+    CompareTool := EditCompareTool.Text;
+    DefaultPhoneCountryPrefix := EditDefaultPhoneCountryPrefix.Text;
   end;
 end;