Changeset 158 for trunk/Forms

Timestamp:

Jun 12, 2023, 12:07:42 AM (19 months ago)

Author:

chronos

Message:

• Added: File menu action Export to export vCard data into CSV, XML, MediaWiki, Excel paste, and HTML.

Location:

trunk/Forms

Files:

• FormCompare.lfm (modified) (2 diffs)
• FormError.lfm (modified) (1 diff)
• FormExport.lfm (added)
• FormExport.lrj (added)
• FormExport.pas (added)
• FormFind.lfm (modified) (4 diffs)
• FormMain.lfm (modified) (1 diff)
• FormMain.pas (modified) (1 diff)
• FormNormalize.lfm (modified) (9 diffs)
• FormSettings.lfm (modified) (19 diffs)

trunk/Forms/FormCompare.lfm

@@ -14 +14 @@
   LCLVersion = '2.2.6.0'
   object ButtonCancel: TButton
-    Left = 736
+    Left = 600
     Height = 38
     Top = 400
@@ -24 +24 @@
   end
   object ButtonCompare: TButton
-    Left = 600
+    Left = 736
     Height = 38
     Top = 400

trunk/Forms/FormError.lfm

@@ -11 +11 @@
   OnCreate = FormCreate
   OnShow = FormShow
-  LCLVersion = '2.0.12.0'
+  LCLVersion = '2.2.6.0'
   object MemoErrors: TMemo
     Left = 8

trunk/Forms/FormFind.lfm

@@ -13 +13 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '2.2.6.0'
   object Panel1: TPanel
     Left = 0
@@ -27 +27 @@
     object ComboBoxField: TComboBox
       Left = 184
-      Height = 41
+      Height = 42
       Top = 16
       Width = 240
@@ -42 +42 @@
       Width = 135
       Caption = 'By contact field:'
+      ParentColor = False
       ParentFont = False
     end
     object EditValue: TEdit
       Left = 440
-      Height = 42
+      Height = 43
       Top = 16
       Width = 208
@@ -55 +56 @@
       Left = 664
       Height = 38
-      Top = 16
+      Top = 19
       Width = 113
       Caption = 'Find'

trunk/Forms/FormMain.lfm

@@ -156 +156 @@
         Action = Core.AFileCompare
       end
+      object MenuItem15: TMenuItem
+        Action = Core.AFileExport
+      end
       object MenuItem2: TMenuItem
         Caption = '-'

trunk/Forms/FormMain.pas

@@ -20 +20 @@
     MenuItem13: TMenuItem;
     MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
     MenuItemColumns: TMenuItem;
     MenuItem3: TMenuItem;

trunk/Forms/FormNormalize.lfm

@@ -14 +14 @@
   object ScrollBox1: TScrollBox
     Left = 8
-    Height = 347
+    Height = 336
     Top = 8
     Width = 743
     HorzScrollBar.Page = 600
-    VertScrollBar.Page = 209
+    VertScrollBar.Page = 219
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 343
-    ClientWidth = 739
+    ClientHeight = 334
+    ClientWidth = 741
     TabOrder = 0
     object CheckBoxRemovePhoneSpaces: TCheckBox
       Left = 20
-      Height = 29
+      Height = 30
       Top = 16
-      Width = 303
+      Width = 318
       Caption = 'Remove spaces in phone numbers'
       TabOrder = 0
@@ -33 +33 @@
     object CheckBoxAddPhonePrefix: TCheckBox
       Left = 20
-      Height = 29
+      Height = 30
       Top = 55
-      Width = 294
+      Width = 306
       Caption = 'Add default country phone prefix'
       TabOrder = 1
@@ -41 +41 @@
     object CheckBoxRemoveExactDuplicates: TCheckBox
       Left = 20
-      Height = 29
+      Height = 30
       Top = 96
-      Width = 225
+      Width = 236
       Caption = 'Remove exact duplicates'
       TabOrder = 2
@@ -49 +49 @@
     object EditPhoneCountryCode: TEdit
       Left = 480
-      Height = 33
+      Height = 43
       Top = 55
       Width = 120
@@ -56 +56 @@
     object CheckBoxRemovePhotos: TCheckBox
       Left = 20
-      Height = 29
+      Height = 30
       Top = 136
-      Width = 157
+      Width = 158
       Caption = 'Remove photos'
       TabOrder = 4
@@ -64 +64 @@
     object CheckBoxConvertInternationaCallPrefixToCountryCode: TCheckBox
       Left = 20
-      Height = 29
+      Height = 30
       Top = 176
-      Width = 405
+      Width = 429
       Caption = 'Convert international call prefix to country code'
       TabOrder = 5
@@ -72 +72 @@
     object EditPhoneInternationalCallPrefix: TEdit
       Left = 480
-      Height = 33
+      Height = 43
       Top = 176
       Width = 120
@@ -79 +79 @@
   end
   object ButtonCancel: TButton
-    Left = 638
+    Left = 504
     Height = 38
-    Top = 363
+    Top = 360
     Width = 113
     Anchors = [akRight, akBottom]
@@ -89 +89 @@
   end
   object ButtonProcess: TButton
-    Left = 502
+    Left = 638
     Height = 38
-    Top = 363
+    Top = 360
     Width = 113
     Anchors = [akRight, akBottom]

trunk/Forms/FormSettings.lfm

@@ -28 +28 @@
   end
   object ButtonCancel: TButton
-    Left = 587
+    Left = 600
     Height = 37
     Top = 560
@@ -44 +44 @@
     Width = 845
     HorzScrollBar.Page = 504
-    VertScrollBar.Page = 457
+    VertScrollBar.Page = 467
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 536
-    ClientWidth = 841
+    ClientHeight = 538
+    ClientWidth = 843
     TabOrder = 2
     object Label1: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 24
-      Width = 81
+      Width = 88
       Caption = 'Language:'
       ParentColor = False
@@ -60 +60 @@
     object ComboBoxLanguage: TComboBox
       Left = 240
-      Height = 33
+      Height = 42
       Top = 16
       Width = 264
-      ItemHeight = 25
+      ItemHeight = 0
       ParentFont = False
       Style = csDropDownList
@@ -70 +70 @@
     object CheckBoxAutomaticDPI: TCheckBox
       Left = 24
-      Height = 29
+      Height = 30
       Top = 392
-      Width = 145
+      Width = 148
       Caption = 'Automatic DPI'
       OnChange = CheckBoxAutomaticDPIChange
@@ -81 +81 @@
     object SpinEditDPI: TSpinEdit
       Left = 241
-      Height = 33
+      Height = 43
       Top = 424
       Width = 145
@@ -93 +93 @@
     object LabelDPI: TLabel
       Left = 56
-      Height = 25
+      Height = 26
       Top = 432
-      Width = 32
+      Width = 35
       Caption = 'DPI:'
       ParentColor = False
@@ -103 +103 @@
     object CheckBoxReopenLastFileOnStart: TCheckBox
       Left = 24
-      Height = 29
+      Height = 30
       Top = 352
-      Width = 217
+      Width = 226
       Caption = 'Reopen last file on start'
       ParentFont = False
@@ -112 +112 @@
     object Label2: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 72
-      Width = 57
+      Width = 63
       Caption = 'Theme:'
       ParentColor = False
@@ -121 +121 @@
     object ComboBoxTheme: TComboBox
       Left = 240
-      Height = 33
+      Height = 42
       Top = 64
       Width = 264
-      ItemHeight = 25
+      ItemHeight = 0
       ParentFont = False
       Style = csDropDownList
@@ -131 +131 @@
     object Label3: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 120
-      Width = 174
+      Width = 186
       Caption = 'Default vCard version:'
       ParentColor = False
@@ -139 +139 @@
     object EditDefaultVcardVersion: TEdit
       Left = 240
-      Height = 33
+      Height = 43
       Top = 112
       Width = 144
@@ -146 +146 @@
     object Label4: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 165
-      Width = 126
+      Width = 133
       Caption = 'Map query URL:'
       ParentColor = False
@@ -154 +154 @@
     object EditMapUrl: TEdit
       Left = 240
-      Height = 33
+      Height = 43
       Top = 160
-      Width = 586
+      Width = 588
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 6
@@ -162 +162 @@
     object Label5: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 212
-      Width = 114
+      Width = 120
       Caption = 'Compare tool:'
       ParentColor = False
@@ -170 +170 @@
     object EditCompareTool: TEdit
       Left = 241
-      Height = 33
+      Height = 43
       Top = 208
-      Width = 462
+      Width = 464
       Anchors = [akTop, akLeft, akRight]
       TabOrder = 7
     end
     object ButtonBrowse: TButton
-      Left = 713
+      Left = 715
       Height = 38
       Top = 206
@@ -188 +188 @@
     object Label6: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 264
-      Width = 231
+      Width = 248
       Caption = 'Default phone country prefix:'
       ParentColor = False
@@ -196 +196 @@
     object EditDefaultPhoneCountryPrefix: TEdit
       Left = 328
-      Height = 33
+      Height = 43
       Top = 264
       Width = 144
@@ -203 +203 @@
     object Label7: TLabel
       Left = 24
-      Height = 25
+      Height = 26
       Top = 312
-      Width = 243
+      Width = 267
       Caption = 'Default international call prefix:'
       ParentColor = False
@@ -211 +211 @@
     object EditDefaultInternationalCallPrefix: TEdit
       Left = 328
-      Height = 33
+      Height = 43
       Top = 312
       Width = 144