Changeset 158
- Timestamp:
- Jun 12, 2023, 12:07:42 AM (17 months ago)
- Location:
- trunk
- Files:
-
- 4 added
- 29 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Core.lfm
r152 r158 300 300 Caption = 'Normalize' 301 301 OnExecute = ANormalizeExecute 302 end 303 object AFileExport: TAction 304 Category = 'File' 305 Caption = 'Export...' 306 OnExecute = AFileExportExecute 302 307 end 303 308 end -
trunk/Core.lrj
r152 r158 20 20 {"hash":78724163,"name":"tcore.aremoveexactduplicates.caption","sourcebytes":[82,101,109,111,118,101,32,101,120,97,99,116,32,100,117,112,108,105,99,97,116,101,115],"value":"Remove exact duplicates"}, 21 21 {"hash":154699365,"name":"tcore.anormalize.caption","sourcebytes":[78,111,114,109,97,108,105,122,101],"value":"Normalize"}, 22 {"hash":124337662,"name":"tcore.afileexport.caption","sourcebytes":[69,120,112,111,114,116,46,46,46],"value":"Export..."}, 22 23 {"hash":218146437,"name":"tcore.opendialog1.title","sourcebytes":[79,112,101,110,32,101,120,105,115,116,105,110,103,32,102,105,108,101],"value":"Open existing file"}, 23 24 {"hash":159035875,"name":"tcore.savedialog1.title","sourcebytes":[83,97,118,101,32,102,105,108,101,32,97,115],"value":"Save file as"}, -
trunk/Core.pas
r155 r158 16 16 AAbout: TAction; 17 17 AboutDialog1: TAboutDialog; 18 AFileExport: TAction; 18 19 ANormalize: TAction; 19 20 ARemoveExactDuplicates: TAction; … … 50 51 procedure AFileCombineExecute(Sender: TObject); 51 52 procedure AFileCompareExecute(Sender: TObject); 53 procedure AFileExportExecute(Sender: TObject); 52 54 procedure AFileNewExecute(Sender: TObject); 53 55 procedure AFileOpenExecute(Sender: TObject); … … 130 132 uses 131 133 FormMain, FormSettings, FormFindDuplicity, FormCompare, TestCase, FormNormalize, 132 FormGenerate, FormError, FormFind, FormTest, FormSource, TestCases ;134 FormGenerate, FormError, FormFind, FormTest, FormSource, TestCases, FormExport; 133 135 134 136 resourcestring … … 196 198 finally 197 199 FreeAndNil(FormCompare); 200 end; 201 end; 202 203 procedure TCore.AFileExportExecute(Sender: TObject); 204 var 205 FormExport: TFormExport; 206 begin 207 FormExport := TFormExport.Create(nil); 208 try 209 FormExport.ShowModal; 210 finally 211 FormExport.Free; 198 212 end; 199 213 end; -
trunk/Forms/FormCompare.lfm
r154 r158 14 14 LCLVersion = '2.2.6.0' 15 15 object ButtonCancel: TButton 16 Left = 73616 Left = 600 17 17 Height = 38 18 18 Top = 400 … … 24 24 end 25 25 object ButtonCompare: TButton 26 Left = 60026 Left = 736 27 27 Height = 38 28 28 Top = 400 -
trunk/Forms/FormError.lfm
r149 r158 11 11 OnCreate = FormCreate 12 12 OnShow = FormShow 13 LCLVersion = '2. 0.12.0'13 LCLVersion = '2.2.6.0' 14 14 object MemoErrors: TMemo 15 15 Left = 8 -
trunk/Forms/FormFind.lfm
r149 r158 13 13 OnDestroy = FormDestroy 14 14 OnShow = FormShow 15 LCLVersion = '2.2. 0.4'15 LCLVersion = '2.2.6.0' 16 16 object Panel1: TPanel 17 17 Left = 0 … … 27 27 object ComboBoxField: TComboBox 28 28 Left = 184 29 Height = 4 129 Height = 42 30 30 Top = 16 31 31 Width = 240 … … 42 42 Width = 135 43 43 Caption = 'By contact field:' 44 ParentColor = False 44 45 ParentFont = False 45 46 end 46 47 object EditValue: TEdit 47 48 Left = 440 48 Height = 4 249 Height = 43 49 50 Top = 16 50 51 Width = 208 … … 55 56 Left = 664 56 57 Height = 38 57 Top = 1 658 Top = 19 58 59 Width = 113 59 60 Caption = 'Find' -
trunk/Forms/FormMain.lfm
r153 r158 156 156 Action = Core.AFileCompare 157 157 end 158 object MenuItem15: TMenuItem 159 Action = Core.AFileExport 160 end 158 161 object MenuItem2: TMenuItem 159 162 Caption = '-' -
trunk/Forms/FormMain.pas
r155 r158 20 20 MenuItem13: TMenuItem; 21 21 MenuItem14: TMenuItem; 22 MenuItem15: TMenuItem; 22 23 MenuItemColumns: TMenuItem; 23 24 MenuItem3: TMenuItem; -
trunk/Forms/FormNormalize.lfm
r155 r158 14 14 object ScrollBox1: TScrollBox 15 15 Left = 8 16 Height = 3 4716 Height = 336 17 17 Top = 8 18 18 Width = 743 19 19 HorzScrollBar.Page = 600 20 VertScrollBar.Page = 2 0920 VertScrollBar.Page = 219 21 21 Anchors = [akTop, akLeft, akRight, akBottom] 22 ClientHeight = 3 4323 ClientWidth = 7 3922 ClientHeight = 334 23 ClientWidth = 741 24 24 TabOrder = 0 25 25 object CheckBoxRemovePhoneSpaces: TCheckBox 26 26 Left = 20 27 Height = 2927 Height = 30 28 28 Top = 16 29 Width = 3 0329 Width = 318 30 30 Caption = 'Remove spaces in phone numbers' 31 31 TabOrder = 0 … … 33 33 object CheckBoxAddPhonePrefix: TCheckBox 34 34 Left = 20 35 Height = 2935 Height = 30 36 36 Top = 55 37 Width = 29437 Width = 306 38 38 Caption = 'Add default country phone prefix' 39 39 TabOrder = 1 … … 41 41 object CheckBoxRemoveExactDuplicates: TCheckBox 42 42 Left = 20 43 Height = 2943 Height = 30 44 44 Top = 96 45 Width = 2 2545 Width = 236 46 46 Caption = 'Remove exact duplicates' 47 47 TabOrder = 2 … … 49 49 object EditPhoneCountryCode: TEdit 50 50 Left = 480 51 Height = 3351 Height = 43 52 52 Top = 55 53 53 Width = 120 … … 56 56 object CheckBoxRemovePhotos: TCheckBox 57 57 Left = 20 58 Height = 2958 Height = 30 59 59 Top = 136 60 Width = 15 760 Width = 158 61 61 Caption = 'Remove photos' 62 62 TabOrder = 4 … … 64 64 object CheckBoxConvertInternationaCallPrefixToCountryCode: TCheckBox 65 65 Left = 20 66 Height = 2966 Height = 30 67 67 Top = 176 68 Width = 4 0568 Width = 429 69 69 Caption = 'Convert international call prefix to country code' 70 70 TabOrder = 5 … … 72 72 object EditPhoneInternationalCallPrefix: TEdit 73 73 Left = 480 74 Height = 3374 Height = 43 75 75 Top = 176 76 76 Width = 120 … … 79 79 end 80 80 object ButtonCancel: TButton 81 Left = 63881 Left = 504 82 82 Height = 38 83 Top = 36 383 Top = 360 84 84 Width = 113 85 85 Anchors = [akRight, akBottom] … … 89 89 end 90 90 object ButtonProcess: TButton 91 Left = 50291 Left = 638 92 92 Height = 38 93 Top = 36 393 Top = 360 94 94 Width = 113 95 95 Anchors = [akRight, akBottom] -
trunk/Forms/FormSettings.lfm
r155 r158 28 28 end 29 29 object ButtonCancel: TButton 30 Left = 58730 Left = 600 31 31 Height = 37 32 32 Top = 560 … … 44 44 Width = 845 45 45 HorzScrollBar.Page = 504 46 VertScrollBar.Page = 4 5746 VertScrollBar.Page = 467 47 47 Anchors = [akTop, akLeft, akRight, akBottom] 48 ClientHeight = 53 649 ClientWidth = 84 148 ClientHeight = 538 49 ClientWidth = 843 50 50 TabOrder = 2 51 51 object Label1: TLabel 52 52 Left = 24 53 Height = 2 553 Height = 26 54 54 Top = 24 55 Width = 8 155 Width = 88 56 56 Caption = 'Language:' 57 57 ParentColor = False … … 60 60 object ComboBoxLanguage: TComboBox 61 61 Left = 240 62 Height = 3362 Height = 42 63 63 Top = 16 64 64 Width = 264 65 ItemHeight = 2565 ItemHeight = 0 66 66 ParentFont = False 67 67 Style = csDropDownList … … 70 70 object CheckBoxAutomaticDPI: TCheckBox 71 71 Left = 24 72 Height = 2972 Height = 30 73 73 Top = 392 74 Width = 14 574 Width = 148 75 75 Caption = 'Automatic DPI' 76 76 OnChange = CheckBoxAutomaticDPIChange … … 81 81 object SpinEditDPI: TSpinEdit 82 82 Left = 241 83 Height = 3383 Height = 43 84 84 Top = 424 85 85 Width = 145 … … 93 93 object LabelDPI: TLabel 94 94 Left = 56 95 Height = 2 595 Height = 26 96 96 Top = 432 97 Width = 3 297 Width = 35 98 98 Caption = 'DPI:' 99 99 ParentColor = False … … 103 103 object CheckBoxReopenLastFileOnStart: TCheckBox 104 104 Left = 24 105 Height = 29105 Height = 30 106 106 Top = 352 107 Width = 2 17107 Width = 226 108 108 Caption = 'Reopen last file on start' 109 109 ParentFont = False … … 112 112 object Label2: TLabel 113 113 Left = 24 114 Height = 2 5114 Height = 26 115 115 Top = 72 116 Width = 57116 Width = 63 117 117 Caption = 'Theme:' 118 118 ParentColor = False … … 121 121 object ComboBoxTheme: TComboBox 122 122 Left = 240 123 Height = 33123 Height = 42 124 124 Top = 64 125 125 Width = 264 126 ItemHeight = 25126 ItemHeight = 0 127 127 ParentFont = False 128 128 Style = csDropDownList … … 131 131 object Label3: TLabel 132 132 Left = 24 133 Height = 2 5133 Height = 26 134 134 Top = 120 135 Width = 1 74135 Width = 186 136 136 Caption = 'Default vCard version:' 137 137 ParentColor = False … … 139 139 object EditDefaultVcardVersion: TEdit 140 140 Left = 240 141 Height = 33141 Height = 43 142 142 Top = 112 143 143 Width = 144 … … 146 146 object Label4: TLabel 147 147 Left = 24 148 Height = 2 5148 Height = 26 149 149 Top = 165 150 Width = 1 26150 Width = 133 151 151 Caption = 'Map query URL:' 152 152 ParentColor = False … … 154 154 object EditMapUrl: TEdit 155 155 Left = 240 156 Height = 33156 Height = 43 157 157 Top = 160 158 Width = 58 6158 Width = 588 159 159 Anchors = [akTop, akLeft, akRight] 160 160 TabOrder = 6 … … 162 162 object Label5: TLabel 163 163 Left = 24 164 Height = 2 5164 Height = 26 165 165 Top = 212 166 Width = 1 14166 Width = 120 167 167 Caption = 'Compare tool:' 168 168 ParentColor = False … … 170 170 object EditCompareTool: TEdit 171 171 Left = 241 172 Height = 33172 Height = 43 173 173 Top = 208 174 Width = 46 2174 Width = 464 175 175 Anchors = [akTop, akLeft, akRight] 176 176 TabOrder = 7 177 177 end 178 178 object ButtonBrowse: TButton 179 Left = 71 3179 Left = 715 180 180 Height = 38 181 181 Top = 206 … … 188 188 object Label6: TLabel 189 189 Left = 24 190 Height = 2 5190 Height = 26 191 191 Top = 264 192 Width = 2 31192 Width = 248 193 193 Caption = 'Default phone country prefix:' 194 194 ParentColor = False … … 196 196 object EditDefaultPhoneCountryPrefix: TEdit 197 197 Left = 328 198 Height = 33198 Height = 43 199 199 Top = 264 200 200 Width = 144 … … 203 203 object Label7: TLabel 204 204 Left = 24 205 Height = 2 5205 Height = 26 206 206 Top = 312 207 Width = 2 43207 Width = 267 208 208 Caption = 'Default international call prefix:' 209 209 ParentColor = False … … 211 211 object EditDefaultInternationalCallPrefix: TEdit 212 212 Left = 328 213 Height = 33213 Height = 43 214 214 Top = 312 215 215 Width = 144 -
trunk/Languages/vCardStudio.cs.po
r155 r158 187 187 msgstr "Porovnat..." 188 188 189 #: tcore.afileexport.caption 190 msgid "Export..." 191 msgstr "Exportovat..." 192 189 193 #: tcore.afilenew.caption 190 194 msgid "New" … … 964 968 msgstr "Chyby načtení" 965 969 970 #: tformexport.buttonbrowse.caption 971 msgctxt "tformexport.buttonbrowse.caption" 972 msgid "Browse" 973 msgstr "Procházet" 974 975 #: tformexport.buttoncancel.caption 976 msgctxt "tformexport.buttoncancel.caption" 977 msgid "Cancel" 978 msgstr "Zrušit" 979 980 #: tformexport.buttonexport.caption 981 msgctxt "tformexport.buttonexport.caption" 982 msgid "Export" 983 msgstr "Export" 984 985 #: tformexport.caption 986 msgctxt "tformexport.caption" 987 msgid "Export" 988 msgstr "Export" 989 990 #: tformexport.label1.caption 991 msgid "Output format:" 992 msgstr "Výstupní formát:" 993 994 #: tformexport.label2.caption 995 msgid "Output file:" 996 msgstr "Výstupní soubor:" 997 966 998 #: tformfind.buttonfind.caption 967 999 msgctxt "tformfind.buttonfind.caption" … … 1260 1292 1261 1293 #: tformsettings.buttonok.caption 1294 msgctxt "tformsettings.buttonok.caption" 1262 1295 msgid "Ok" 1263 1296 msgstr "Ok" … … 1383 1416 msgid "vCard file" 1384 1417 msgstr "Soubor vCard" 1385 -
trunk/Languages/vCardStudio.pot
r153 r158 177 177 msgstr "" 178 178 179 #: tcore.afileexport.caption 180 msgid "Export..." 181 msgstr "" 182 179 183 #: tcore.afilenew.caption 180 184 msgid "New" … … 954 958 msgstr "" 955 959 960 #: tformexport.buttonbrowse.caption 961 msgctxt "tformexport.buttonbrowse.caption" 962 msgid "Browse" 963 msgstr "" 964 965 #: tformexport.buttoncancel.caption 966 msgctxt "tformexport.buttoncancel.caption" 967 msgid "Cancel" 968 msgstr "" 969 970 #: tformexport.buttonexport.caption 971 msgctxt "tformexport.buttonexport.caption" 972 msgid "Export" 973 msgstr "" 974 975 #: tformexport.caption 976 msgctxt "tformexport.caption" 977 msgid "Export" 978 msgstr "" 979 980 #: tformexport.label1.caption 981 msgid "Output format:" 982 msgstr "" 983 984 #: tformexport.label2.caption 985 msgid "Output file:" 986 msgstr "" 987 956 988 #: tformfind.buttonfind.caption 957 989 msgctxt "tformfind.buttonfind.caption" … … 1250 1282 1251 1283 #: tformsettings.buttonok.caption 1284 msgctxt "tformsettings.buttonok.caption" 1252 1285 msgid "Ok" 1253 1286 msgstr "" -
trunk/Languages/vCardStudio.sv.po
r157 r158 188 188 msgstr "" 189 189 190 #: tcore.afileexport.caption 191 msgid "Export..." 192 msgstr "" 193 190 194 #: tcore.afilenew.caption 191 195 msgid "New" … … 971 975 msgstr "" 972 976 977 #: tformexport.buttonbrowse.caption 978 msgctxt "tformexport.buttonbrowse.caption" 979 msgid "Browse" 980 msgstr "" 981 982 #: tformexport.buttoncancel.caption 983 #, fuzzy 984 msgctxt "tformexport.buttoncancel.caption" 985 msgid "Cancel" 986 msgstr "Avbryt" 987 988 #: tformexport.buttonexport.caption 989 msgctxt "tformexport.buttonexport.caption" 990 msgid "Export" 991 msgstr "" 992 993 #: tformexport.caption 994 msgctxt "tformexport.caption" 995 msgid "Export" 996 msgstr "" 997 998 #: tformexport.label1.caption 999 msgid "Output format:" 1000 msgstr "" 1001 1002 #: tformexport.label2.caption 1003 msgid "Output file:" 1004 msgstr "" 1005 973 1006 #: tformfind.buttonfind.caption 974 1007 msgctxt "tformfind.buttonfind.caption" … … 1269 1302 1270 1303 #: tformsettings.buttonok.caption 1304 msgctxt "tformsettings.buttonok.caption" 1271 1305 msgid "Ok" 1272 1306 msgstr "Ok" … … 1392 1426 msgid "vCard file" 1393 1427 msgstr "" 1428 -
trunk/Packages/Common/Common.lpk
r148 r158 42 42 <License Value="Copy left."/> 43 43 <Version Minor="11"/> 44 <Files Count="3 3">44 <Files Count="34"> 45 45 <Item1> 46 46 <Filename Value="StopWatch.pas"/> … … 188 188 <UnitName Value="CommonPackage"/> 189 189 </Item33> 190 <Item34> 191 <Filename Value="Table.pas"/> 192 <UnitName Value="Table"/> 193 </Item34> 190 194 </Files> 191 195 <CompatibilityMode Value="True"/> -
trunk/Packages/Common/Common.pas
r148 r158 66 66 function IntToBin(Data: Int64; Count: Byte): string; 67 67 function Implode(Separator: Char; List: TList<string>): string; 68 function Implode(Separator: Char; List: TStringList; Around: string = ''): string; 68 69 function LastPos(const SubStr: String; const S: String): Integer; 69 70 function LoadFileToStr(const FileName: TFileName): AnsiString; … … 206 207 end;*) 207 208 209 function Implode(Separator: Char; List: TStringList; Around: string = ''): string; 210 var 211 I: Integer; 212 begin 213 Result := ''; 214 for I := 0 to List.Count - 1 do begin 215 Result := Result + Around + List[I] + Around; 216 if I < List.Count - 1 then Result := Result + Separator; 217 end; 218 end; 219 208 220 function LastPos(const SubStr: String; const S: String): Integer; 209 221 begin -
trunk/Packages/Common/CommonPackage.pas
r148 r158 9 9 10 10 uses 11 StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading, 11 StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading, 12 12 Memory, ResetableThread, Pool, LastOpenedList, RegistryEx, JobProgressView, 13 13 XML, ApplicationInfo, SyncCounter, ListViewSort, PersistentForm, FindFile, 14 14 ScaleDPI, Theme, StringTable, MetaCanvas, Geometric, Translator, Languages, 15 FormAbout, AboutDialog, PixelPointer, DataFile, TestCase, Generics, 15 FormAbout, AboutDialog, PixelPointer, DataFile, TestCase, Generics, Table, 16 16 LazarusPackageIntf; 17 17 -
trunk/Packages/Common/Languages/DataFile.cs.po
r156 r158 21 21 msgid "Data file" 22 22 msgstr "Datový soubor" 23 -
trunk/Packages/Common/Languages/DebugLog.cs.po
r156 r158 16 16 msgid "Filename not defined" 17 17 msgstr "Neurčen soubor" 18 -
trunk/Packages/Common/Languages/FindFile.cs.po
r156 r158 16 16 msgid "Directory not found" 17 17 msgstr "Adresář nenalezen" 18 -
trunk/Packages/Common/Languages/FormAbout.cs.po
r156 r158 26 26 msgid "Version" 27 27 msgstr "Verze" 28 -
trunk/Packages/Common/Languages/JobProgressView.cs.po
r156 r158 43 43 msgid "Total estimated time: %s" 44 44 msgstr "Celkový odhadovaný čas: %s" 45 -
trunk/Packages/Common/Languages/Languages.cs.po
r156 r158 981 981 msgid "Zulu" 982 982 msgstr "Zuluština" 983 -
trunk/Packages/Common/Languages/Pool.cs.po
r156 r158 21 21 msgid "Unknown object for release from pool" 22 22 msgstr "Neznýmý objekt pro uvolnění ze zásobníku" 23 -
trunk/Packages/Common/Languages/ResetableThread.cs.po
r156 r158 16 16 msgid "WaitFor error" 17 17 msgstr "Chyba WaitFor" 18 -
trunk/Packages/Common/Languages/ScaleDPI.cs.po
r156 r158 17 17 msgid "Wrong DPI [%d,%d]" 18 18 msgstr "Chybné DPI [%d,%d]" 19 -
trunk/Packages/Common/Languages/TestCase.cs.po
r156 r158 26 26 msgid "Passed" 27 27 msgstr "Prošlo" 28 -
trunk/Packages/Common/Languages/Threading.cs.po
r156 r158 17 17 msgid "Current thread ID %d not found in virtual thread list." 18 18 msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken." 19 -
trunk/vCardStudio.lpi
r152 r158 123 123 </Item7> 124 124 </RequiredPackages> 125 <Units Count="2 6">125 <Units Count="27"> 126 126 <Unit0> 127 127 <Filename Value="vCardStudio.lpr"/> … … 288 288 <ResourceBaseClass Value="Form"/> 289 289 </Unit25> 290 <Unit26> 291 <Filename Value="Forms\FormExport.pas"/> 292 <IsPartOfProject Value="True"/> 293 <ComponentName Value="FormExport"/> 294 <HasResources Value="True"/> 295 <ResourceBaseClass Value="Form"/> 296 </Unit26> 290 297 </Units> 291 298 </ProjectOptions> -
trunk/vCardStudio.lpr
r155 r158 7 7 Interfaces, // this includes the LCL widgetset 8 8 Forms, FormMain, Core, Diff, SysUtils, FormCompareSideBySide, TestCases, 9 VCardFile, FormColumns, FormCompare, FormNormalize ;9 VCardFile, FormColumns, FormCompare, FormNormalize, FormExport; 10 10 11 11 {$R *.res}
Note:
See TracChangeset
for help on using the changeset viewer.