Changeset 574
- Timestamp:
- May 14, 2024, 5:18:30 PM (6 months ago)
- Location:
- trunk/Packages/Common
- Files:
-
- 17 added
- 4 deleted
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/Common/Common.lpk
r531 r574 11 11 <PathDelim Value="\"/> 12 12 <SearchPaths> 13 <OtherUnitFiles Value="Forms"/> 13 14 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/> 14 15 </SearchPaths> … … 41 42 Source: https://svn.zdechov.net/PascalClassLibrary/Common/"/> 42 43 <License Value="Copy left."/> 43 <Version Minor="1 1"/>44 <Files Count="3 3">44 <Version Minor="12"/> 45 <Files Count="36"> 45 46 <Item1> 46 47 <Filename Value="StopWatch.pas"/> … … 159 160 </Item26> 160 161 <Item27> 161 <Filename Value=" FormAbout.pas"/>162 <UnitName Value=" FormAbout"/>162 <Filename Value="PixelPointer.pas"/> 163 <UnitName Value="PixelPointer"/> 163 164 </Item27> 164 165 <Item28> 165 <Filename Value="AboutDialog.pas"/> 166 <HasRegisterProc Value="True"/> 167 <UnitName Value="AboutDialog"/> 166 <Filename Value="DataFile.pas"/> 167 <UnitName Value="DataFile"/> 168 168 </Item28> 169 169 <Item29> 170 <Filename Value=" PixelPointer.pas"/>171 <UnitName Value=" PixelPointer"/>170 <Filename Value="TestCase.pas"/> 171 <UnitName Value="TestCase"/> 172 172 </Item29> 173 173 <Item30> 174 <Filename Value=" DataFile.pas"/>175 <UnitName Value=" DataFile"/>174 <Filename Value="Generics.pas"/> 175 <UnitName Value="Generics"/> 176 176 </Item30> 177 177 <Item31> 178 <Filename Value="TestCase.pas"/>179 <UnitName Value="TestCase"/>180 </Item31>181 <Item32>182 <Filename Value="Generics.pas"/>183 <UnitName Value="Generics"/>184 </Item32>185 <Item33>186 178 <Filename Value="CommonPackage.pas"/> 187 179 <Type Value="Main Unit"/> 188 180 <UnitName Value="CommonPackage"/> 181 </Item31> 182 <Item32> 183 <Filename Value="Table.pas"/> 184 <UnitName Value="Table"/> 185 </Item32> 186 <Item33> 187 <Filename Value="FormEx.pas"/> 188 <HasRegisterProc Value="True"/> 189 <UnitName Value="FormEx"/> 189 190 </Item33> 191 <Item34> 192 <Filename Value="Forms\FormTests.pas"/> 193 <UnitName Value="FormTests"/> 194 </Item34> 195 <Item35> 196 <Filename Value="Forms\FormTest.pas"/> 197 <UnitName Value="FormTest"/> 198 </Item35> 199 <Item36> 200 <Filename Value="Forms\FormAbout.pas"/> 201 <UnitName Value="FormAbout"/> 202 </Item36> 190 203 </Files> 191 204 <CompatibilityMode Value="True"/> -
trunk/Packages/Common/Common.pas
r554 r574 65 65 function GetFileFilterItemExt(Filter: string; Index: Integer): string; 66 66 function IntToBin(Data: Int64; Count: Byte): string; 67 function Implode(Separator: Char; List: TList<string>): string; 67 function Implode(Separator: string; List: TList<string>): string; 68 function Implode(Separator: string; List: TStringList; Around: string = ''): string; 68 69 function LastPos(const SubStr: String; const S: String): Integer; 69 70 function LoadFileToStr(const FileName: TFileName): AnsiString; … … 184 185 (*function DelTree(DirName : string): Boolean; 185 186 var 186 SHFileOpStruct : TSHFileOpStruct;187 DirBuf : array [0..255] of Char;187 SHFileOpStruct : TSHFileOpStruct; 188 DirBuf : array [0..255] of char; 188 189 begin 189 190 DirName := UTF8Decode(DirName); 190 191 try 191 Fill Char(SHFileOpStruct, Sizeof(SHFileOpStruct), 0);192 FillChar(DirBuf, Sizeof(DirBuf), 0 ) ;193 StrPCopy(DirBuf, DirName) ;192 Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0) ; 193 FillChar(DirBuf, Sizeof(DirBuf), 0 ) ; 194 StrPCopy(DirBuf, DirName) ; 194 195 with SHFileOpStruct do begin 195 196 Wnd := 0; … … 200 201 fFlags := fFlags or FOF_SILENT; 201 202 end; 202 Result := (SHFileOperation(SHFileOpStruct) = 0) ;203 Result := (SHFileOperation(SHFileOpStruct) = 0) ; 203 204 except 204 Result := False;205 Result := False; 205 206 end; 206 207 end;*) 208 209 function Implode(Separator: string; 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; 207 219 208 220 function LastPos(const SubStr: String; const S: String): Integer; … … 314 326 end; 315 327 316 function Implode(Separator: Char; List: TList<string>): string;328 function Implode(Separator: string; List: TList<string>): string; 317 329 var 318 330 I: Integer; -
trunk/Packages/Common/CommonPackage.pas
r456 r574 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,16 LazarusPackageIntf;15 PixelPointer, DataFile, TestCase, Generics, Table, FormEx, FormTests, 16 FormTest, FormAbout, LazarusPackageIntf; 17 17 18 18 implementation … … 31 31 RegisterUnit('Theme', @Theme.Register); 32 32 RegisterUnit('Translator', @Translator.Register); 33 RegisterUnit(' AboutDialog', @AboutDialog.Register);33 RegisterUnit('FormEx', @FormEx.Register); 34 34 end; 35 35 -
trunk/Packages/Common/DataFile.pas
r456 r574 77 77 procedure TDataFile.Assign(Source: TPersistent); 78 78 begin 79 inherited;80 79 if Source is TDataFile then begin 81 80 FFileName := TDataFile(Source).FFileName; 82 81 FModified := TDataFile(Source).FModified; 83 end ;82 end else inherited; 84 83 end; 85 84 -
trunk/Packages/Common/Languages/DataFile.cs.po
r456 r574 13 13 14 14 #: datafile.sallfiles 15 #, fuzzy16 15 msgctxt "datafile.sallfiles" 17 16 msgid "All files" … … 19 18 20 19 #: datafile.sdatafilename 21 #, fuzzy22 20 msgctxt "datafile.sdatafilename" 23 21 msgid "Data file" -
trunk/Packages/Common/Languages/DebugLog.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Jiří Hajda <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3.0.1\n" 11 13 12 14 #: debuglog.sfilenamenotdefined 13 #, fuzzy14 15 msgctxt "debuglog.sfilenamenotdefined" 15 16 msgid "Filename not defined" -
trunk/Packages/Common/Languages/FindFile.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: \n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 11 "Language: cs\n" 12 "X-Generator: Poedit 1.8.9\n" 12 "X-Generator: Poedit 3.0.1\n" 13 13 14 14 #: findfile.sdirnotfound 15 #, fuzzy16 15 msgctxt "findfile.sdirnotfound" 17 16 msgid "Directory not found" -
trunk/Packages/Common/Languages/FormAbout.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 11 "Language: cs\n" 12 "X-Generator: Poedit 2.4.1\n" 12 "X-Generator: Poedit 3.0.1\n" 13 13 14 14 #: formabout.slicense 15 #, fuzzy16 15 msgctxt "formabout.slicense" 17 16 msgid "License" … … 19 18 20 19 #: formabout.sreleasedate 21 #, fuzzy22 20 msgctxt "formabout.sreleasedate" 23 21 msgid "Release date" … … 25 23 26 24 #: formabout.sversion 27 #, fuzzy28 25 msgctxt "formabout.sversion" 29 26 msgid "Version" -
trunk/Packages/Common/Languages/JobProgressView.cs.po
r456 r574 10 10 "Content-Type: text/plain; charset=UTF-8\n" 11 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 2.2\n"12 "X-Generator: Poedit 3.0.1\n" 13 13 14 14 #: jobprogressview.sestimatedtime 15 #, object-pascal-format , fuzzy15 #, object-pascal-format 16 16 msgctxt "jobprogressview.sestimatedtime" 17 17 msgid "Estimated time: %s" … … 19 19 20 20 #: jobprogressview.sexecuted 21 #, fuzzy22 21 msgctxt "jobprogressview.sexecuted" 23 22 msgid "Executed" … … 25 24 26 25 #: jobprogressview.sfinished 27 #, fuzzy28 26 msgctxt "jobprogressview.sfinished" 29 27 msgid "Finished" … … 31 29 32 30 #: jobprogressview.spleasewait 33 #, fuzzy34 31 msgctxt "jobprogressview.spleasewait" 35 32 msgid "Please wait..." … … 37 34 38 35 #: jobprogressview.sterminate 39 #, fuzzy40 36 msgctxt "jobprogressview.sterminate" 41 37 msgid "Termination" … … 43 39 44 40 #: jobprogressview.stotalestimatedtime 45 #, object-pascal-format , fuzzy41 #, object-pascal-format 46 42 msgctxt "jobprogressview.stotalestimatedtime" 47 43 msgid "Total estimated time: %s" -
trunk/Packages/Common/Languages/Languages.cs.po
r459 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Jiří Hajda <software@mezservis.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3.0.1\n" 11 13 12 14 #: languages.slangauto 13 #, fuzzy14 15 msgctxt "languages.slangauto" 15 16 msgid "Automatic" … … 22 23 23 24 #: languages.slang_ab 24 #, fuzzy25 25 msgctxt "languages.slang_ab" 26 26 msgid "Abkhazian" … … 33 33 34 34 #: languages.slang_af 35 #, fuzzy36 35 msgctxt "languages.slang_af" 37 36 msgid "Afrikaans" … … 54 53 55 54 #: languages.slang_ar 56 #, fuzzy57 55 msgctxt "languages.slang_ar" 58 56 msgid "Arabic" … … 90 88 91 89 #: languages.slang_bg 92 #, fuzzy93 90 msgctxt "languages.slang_bg" 94 91 msgid "Bulgarian" … … 116 113 117 114 #: languages.slang_bo 118 #, fuzzy119 115 msgctxt "languages.slang_bo" 120 116 msgid "Tibetan" … … 132 128 133 129 #: languages.slang_ca 134 #, fuzzy135 130 msgctxt "languages.slang_ca" 136 131 msgid "Catalan" … … 153 148 154 149 #: languages.slang_cr 155 #, fuzzy156 150 msgctxt "languages.slang_cr" 157 151 msgid "Cree" … … 159 153 160 154 #: languages.slang_cs 161 #, fuzzy162 155 msgctxt "languages.slang_cs" 163 156 msgid "Czech" … … 175 168 176 169 #: languages.slang_da 177 #, fuzzy178 170 msgctxt "languages.slang_da" 179 171 msgid "Danish" … … 181 173 182 174 #: languages.slang_de 183 #, fuzzy184 175 msgctxt "languages.slang_de" 185 176 msgid "German" … … 187 178 188 179 #: languages.slang_de_at 189 #, fuzzy190 180 msgctxt "languages.slang_de_at" 191 181 msgid "Austrian German" … … 193 183 194 184 #: languages.slang_de_ch 195 #, fuzzy196 185 msgctxt "languages.slang_de_ch" 197 186 msgid "Swiss German" … … 214 203 215 204 #: languages.slang_el 216 #, fuzzy217 205 msgctxt "languages.slang_el" 218 206 msgid "Greek" … … 220 208 221 209 #: languages.slang_en 222 #, fuzzy223 210 msgctxt "languages.slang_en" 224 211 msgid "English" … … 226 213 227 214 #: languages.slang_en_au 228 #, fuzzy229 215 msgctxt "languages.slang_en_au" 230 216 msgid "Australian English" … … 232 218 233 219 #: languages.slang_en_ca 234 #, fuzzy235 220 msgctxt "languages.slang_en_ca" 236 221 msgid "Canadian English" … … 238 223 239 224 #: languages.slang_en_gb 240 #, fuzzy241 225 msgctxt "languages.slang_en_gb" 242 226 msgid "British English" … … 244 228 245 229 #: languages.slang_en_us 246 #, fuzzy247 230 msgctxt "languages.slang_en_us" 248 231 msgid "American English" … … 250 233 251 234 #: languages.slang_eo 252 #, fuzzy253 235 msgctxt "languages.slang_eo" 254 236 msgid "Esperanto" … … 256 238 257 239 #: languages.slang_es 258 #, fuzzy259 240 msgctxt "languages.slang_es" 260 241 msgid "Spanish" … … 262 243 263 244 #: languages.slang_et 264 #, fuzzy265 245 msgctxt "languages.slang_et" 266 246 msgid "Estonian" … … 273 253 274 254 #: languages.slang_fa 275 #, fuzzy276 255 msgctxt "languages.slang_fa" 277 256 msgid "Persian" … … 284 263 285 264 #: languages.slang_fi 286 #, fuzzy287 265 msgctxt "languages.slang_fi" 288 266 msgid "Finnish" … … 300 278 301 279 #: languages.slang_fr 302 #, fuzzy303 280 msgctxt "languages.slang_fr" 304 281 msgid "French" … … 316 293 317 294 #: languages.slang_ga 318 #, fuzzy319 295 msgctxt "languages.slang_ga" 320 296 msgid "Irish" … … 352 328 353 329 #: languages.slang_he 354 #, fuzzy355 330 msgctxt "languages.slang_he" 356 331 msgid "Hebrew" … … 368 343 369 344 #: languages.slang_hr 370 #, fuzzy371 345 msgctxt "languages.slang_hr" 372 346 msgid "Croatian" … … 379 353 380 354 #: languages.slang_hu 381 #, fuzzy382 355 msgctxt "languages.slang_hu" 383 356 msgid "Hungarian" … … 385 358 386 359 #: languages.slang_hy 387 #, fuzzy388 360 msgctxt "languages.slang_hy" 389 361 msgid "Armenian" … … 431 403 432 404 #: languages.slang_is 433 #, fuzzy434 405 msgctxt "languages.slang_is" 435 406 msgid "Icelandic" … … 437 408 438 409 #: languages.slang_it 439 #, fuzzy440 410 msgctxt "languages.slang_it" 441 411 msgid "Italian" … … 448 418 449 419 #: languages.slang_ja 450 #, fuzzy451 420 msgctxt "languages.slang_ja" 452 421 msgid "Japanese" … … 459 428 460 429 #: languages.slang_ka 461 #, fuzzy462 430 msgctxt "languages.slang_ka" 463 431 msgid "Georgian" … … 465 433 466 434 #: languages.slang_kg 467 #, fuzzy468 435 msgctxt "languages.slang_kg" 469 436 msgid "Kongo" … … 486 453 487 454 #: languages.slang_kl 488 #, fuzzy489 455 msgctxt "languages.slang_kl" 490 456 msgid "Greenlandic" … … 497 463 498 464 #: languages.slang_kn 499 #, fuzzy500 465 msgctxt "languages.slang_kn" 501 466 msgid "Kannada" … … 503 468 504 469 #: languages.slang_ko 505 #, fuzzy506 470 msgctxt "languages.slang_ko" 507 471 msgid "Korean" … … 529 493 530 494 #: languages.slang_kw 531 #, fuzzy532 495 msgctxt "languages.slang_kw" 533 496 msgid "Cornish" … … 540 503 541 504 #: languages.slang_la 542 #, fuzzy543 505 msgctxt "languages.slang_la" 544 506 msgid "Latin" … … 546 508 547 509 #: languages.slang_lb 548 #, fuzzy549 510 msgctxt "languages.slang_lb" 550 511 msgid "Luxembourgish" … … 567 528 568 529 #: languages.slang_lo 569 #, fuzzy570 530 msgctxt "languages.slang_lo" 571 531 msgid "Lao" … … 573 533 574 534 #: languages.slang_lt 575 #, fuzzy576 535 msgctxt "languages.slang_lt" 577 536 msgid "Lithuanian" … … 584 543 585 544 #: languages.slang_lv 586 #, fuzzy587 545 msgctxt "languages.slang_lv" 588 546 msgid "Latvian" … … 605 563 606 564 #: languages.slang_mk 607 #, fuzzy608 565 msgctxt "languages.slang_mk" 609 566 msgid "Macedonian" … … 616 573 617 574 #: languages.slang_mn 618 #, fuzzy619 575 msgctxt "languages.slang_mn" 620 576 msgid "Mongolian" … … 622 578 623 579 #: languages.slang_mo 624 #, fuzzy625 580 msgctxt "languages.slang_mo" 626 581 msgid "Moldavian" … … 673 628 674 629 #: languages.slang_nl 675 #, fuzzy676 630 msgctxt "languages.slang_nl" 677 631 msgid "Dutch" … … 689 643 690 644 #: languages.slang_no 691 #, fuzzy692 645 msgctxt "languages.slang_no" 693 646 msgid "Norwegian" … … 700 653 701 654 #: languages.slang_nv 702 #, fuzzy703 655 msgctxt "languages.slang_nv" 704 656 msgid "Navajo" … … 746 698 747 699 #: languages.slang_pl 748 #, fuzzy749 700 msgctxt "languages.slang_pl" 750 701 msgid "Polish" … … 757 708 758 709 #: languages.slang_pt 759 #, fuzzy760 710 msgctxt "languages.slang_pt" 761 711 msgid "Portuguese" … … 763 713 764 714 #: languages.slang_pt_br 765 #, fuzzy766 715 msgctxt "languages.slang_pt_br" 767 716 msgid "Brazilian Portuguese" … … 784 733 785 734 #: languages.slang_ro 786 #, fuzzy787 735 msgctxt "languages.slang_ro" 788 736 msgid "Romanian" … … 790 738 791 739 #: languages.slang_ru 792 #, fuzzy793 740 msgctxt "languages.slang_ru" 794 741 msgid "Russian" … … 831 778 832 779 #: languages.slang_sk 833 #, fuzzy834 780 msgctxt "languages.slang_sk" 835 781 msgid "Slovak" … … 837 783 838 784 #: languages.slang_sl 839 #, fuzzy840 785 msgctxt "languages.slang_sl" 841 786 msgid "Slovenian" … … 858 803 859 804 #: languages.slang_sq 860 #, fuzzy861 805 msgctxt "languages.slang_sq" 862 806 msgid "Albanian" … … 879 823 880 824 #: languages.slang_su 881 #, fuzzy882 825 msgctxt "languages.slang_su" 883 826 msgid "Sundanese" … … 885 828 886 829 #: languages.slang_sv 887 #, fuzzy888 830 msgctxt "languages.slang_sv" 889 831 msgid "Swedish" … … 941 883 942 884 #: languages.slang_tr 943 #, fuzzy944 885 msgctxt "languages.slang_tr" 945 886 msgid "Turkish" … … 952 893 953 894 #: languages.slang_tt 954 #, fuzzy955 895 msgctxt "languages.slang_tt" 956 896 msgid "Tatar" … … 973 913 974 914 #: languages.slang_uk 975 #, fuzzy976 915 msgctxt "languages.slang_uk" 977 916 msgid "Ukrainian" … … 994 933 995 934 #: languages.slang_vi 996 #, fuzzy997 935 msgctxt "languages.slang_vi" 998 936 msgid "Vietnamese" … … 1035 973 1036 974 #: languages.slang_zh 1037 #, fuzzy1038 975 msgctxt "languages.slang_zh" 1039 976 msgid "Chinese" … … 1049 986 1050 987 #: languages.slang_zu 1051 #, fuzzy1052 988 msgctxt "languages.slang_zu" 1053 989 msgid "Zulu" -
trunk/Packages/Common/Languages/Pool.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3.0.1\n" 11 13 12 14 #: pool.sobjectpoolempty 13 #, fuzzy14 15 msgctxt "pool.sobjectpoolempty" 15 16 msgid "Object pool is empty" … … 17 18 18 19 #: pool.sreleaseerror 19 #, fuzzy20 20 msgctxt "pool.sreleaseerror" 21 21 msgid "Unknown object for release from pool" -
trunk/Packages/Common/Languages/ResetableThread.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3.0.1\n" 11 13 12 14 #: resetablethread.swaiterror 13 #, fuzzy14 15 msgctxt "resetablethread.swaiterror" 15 16 msgid "WaitFor error" -
trunk/Packages/Common/Languages/ScaleDPI.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: \n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 11 "Language: cs\n" 12 "X-Generator: Poedit 1.8.9\n" 12 "X-Generator: Poedit 3.0.1\n" 13 13 14 14 #: scaledpi.swrongdpi 15 #, object-pascal-format , fuzzy15 #, object-pascal-format 16 16 msgctxt "scaledpi.swrongdpi" 17 17 msgid "Wrong DPI [%d,%d]" -
trunk/Packages/Common/Languages/TestCase.cs.po
r456 r574 13 13 14 14 #: testcase.sfailed 15 #, fuzzy16 15 msgctxt "testcase.sfailed" 17 16 msgid "Failed" … … 19 18 20 19 #: testcase.snone 21 #, fuzzy22 20 msgctxt "testcase.snone" 23 21 msgid "None" … … 25 23 26 24 #: testcase.spassed 27 #, fuzzy28 25 msgctxt "testcase.spassed" 29 26 msgid "Passed" -
trunk/Packages/Common/Languages/Threading.cs.po
r456 r574 1 1 msgid "" 2 2 msgstr "" 3 "Content-Type: text/plain; charset=UTF-8\n"4 3 "Project-Id-Version: \n" 5 4 "POT-Creation-Date: \n" … … 7 6 "Last-Translator: Chronos <robie@centrum.cz>\n" 8 7 "Language-Team: \n" 8 "Language: cs\n" 9 9 "MIME-Version: 1.0\n" 10 "Content-Type: text/plain; charset=UTF-8\n" 10 11 "Content-Transfer-Encoding: 8bit\n" 12 "X-Generator: Poedit 3.0.1\n" 11 13 12 14 #: threading.scurrentthreadnotfound 13 #, object-pascal-format , fuzzy15 #, object-pascal-format 14 16 msgctxt "threading.scurrentthreadnotfound" 15 17 msgid "Current thread ID %d not found in virtual thread list." -
trunk/Packages/Common/PrefixMultiplier.pas
r456 r574 31 31 ( 32 32 (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24), 33 33 (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21), 34 34 (ShortText: 'a'; FullText: 'atto'; Value: 1e-18), 35 35 (ShortText: 'f'; FullText: 'femto'; Value: 1e-15), … … 52 52 ( 53 53 (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24), 54 54 (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21), 55 55 (ShortText: 'as'; FullText: 'atto'; Value: 1e-18), 56 56 (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15), -
trunk/Packages/Common/Translator.pas
r456 r574 48 48 procedure TranslateProperty(Component: TPersistent; PropInfo: PPropInfo); 49 49 function IsExcluded(Component: TPersistent; PropertyName: string): Boolean; 50 function GetLangFileDir : string;50 function GetLangFileDirs: TStrings; 51 51 public 52 52 ComponentExcludes: TComponentExcludesList; … … 71 71 end; 72 72 73 const 74 PoExt = '.po'; 75 73 76 procedure Register; 74 77 75 78 76 79 implementation 80 81 uses 82 Common; 77 83 78 84 procedure Register; … … 161 167 FileList: TStringList; 162 168 I: Integer; 169 J: Integer; 163 170 LocaleShort: string; 164 171 SearchMask: string; 172 LangDirs: TStrings; 165 173 begin 166 174 FPoFiles.Clear; 167 if Assigned(FLanguage) then 168 try 175 if Assigned(FLanguage) then begin 169 176 LocaleShort := GetLocaleShort; 170 //ShowMessage(ExtractFileDir(Application.ExeName) +171 // DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');172 177 SearchMask := '*'; 173 178 if LocaleShort <> '' then SearchMask := SearchMask + '.' + LocaleShort; 174 SearchMask := SearchMask + '.po'; 175 FileList := FindAllFiles(GetLangFileDir, SearchMask); 176 for I := 0 to FileList.Count - 1 do begin 177 FileName := FileList[I]; 178 //FileName := FindLocaleFileName('.po'); 179 if FileExists(FileName) and ( 180 ((LocaleShort = '') and (Pos('.', FileName) = Pos('.po', FileName))) or 181 (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName)); 182 end; 183 finally 184 FileList.Free; 179 SearchMask := SearchMask + PoExt; 180 LangDirs := GetLangFileDirs; 181 for J := 0 to LangDirs.Count - 1 do begin 182 FileList := FindAllFiles(LangDirs[J], SearchMask); 183 try 184 for I := 0 to FileList.Count - 1 do begin 185 FileName := FileList[I]; 186 //FileName := FindLocaleFileName('.po'); 187 if FileExists(FileName) and ( 188 ((LocaleShort = '') and (Pos('.', FileName) = Pos(PoExt, FileName))) or 189 (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName)); 190 end; 191 finally 192 FileList.Free; 193 end; 194 end; 195 LangDirs.Free; 185 196 end; 186 197 end; … … 299 310 end; 300 311 301 function TTranslator.GetLangFileDir: string; 302 begin 303 Result := FPoFilesFolder; 304 if Copy(Result, 1, 1) <> DirectorySeparator then 305 Result := ExtractFileDir(Application.ExeName) + 306 DirectorySeparator + Result; 312 function TTranslator.GetLangFileDirs: TStrings; 313 var 314 I: Integer; 315 begin 316 Result := TStringList.Create; 317 Result.Delimiter := ';'; 318 Result.StrictDelimiter := True; 319 Result.DelimitedText := FPoFilesFolder; 320 321 for I := 0 to Result.Count - 1 do begin 322 Result[I] := StringReplace(Result[I], '/', DirectorySeparator, [rfReplaceAll]); 323 Result[I] := StringReplace(Result[I], '\', DirectorySeparator, [rfReplaceAll]); 324 if Copy(Result[I], 1, 1) <> DirectorySeparator then 325 Result[I] := ExtractFileDir(Application.ExeName) + 326 DirectorySeparator + Result[I]; 327 end; 307 328 end; 308 329 … … 371 392 var 372 393 I: Integer; 373 LangDir: string; 374 begin 375 LangDir := GetLangFileDir; 394 J: Integer; 395 LangDirs: TStrings; 396 begin 397 LangDirs := GetLangFileDirs; 376 398 Languages.SearchByCode('').Available := True; // Automatic 377 399 378 400 for I := 1 to Languages.Count - 1 do 379 401 with Languages[I] do begin 380 Available := FileExists(LangDir + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) + 381 '.' + Code + ExtensionSeparator + 'po') or (Code = 'en'); 382 end; 402 for J := 0 to LangDirs.Count - 1 do begin 403 if FileExists(LangDirs[J] + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) + 404 '.' + Code + PoExt) or (Code = 'en') then begin 405 Available := True; 406 Continue; 407 end; 408 end; 409 end; 410 LangDirs.Free; 383 411 end; 384 412
Note:
See TracChangeset
for help on using the changeset viewer.