Changeset 148 for trunk/Packages/Common

Timestamp:

Jun 5, 2024, 8:50:50 AM (7 months ago)

Author:

chronos

Message:

• Modified: Updated Common package.

Location:

trunk/Packages/Common

Files:

• AboutDialog.pas (deleted)
• Common.lpk (modified) (3 diffs)
• Common.pas (modified) (3 diffs)
• CommonPackage.pas (modified) (2 diffs)
• DataFile.pas (modified) (1 diff)
• FormAbout.lfm (deleted)
• FormAbout.lrj (deleted)
• FormAbout.pas (deleted)
• FormEx.pas (added)
• Forms (added)
• Forms/FormAbout.lfm (added)
• Forms/FormAbout.lrj (added)
• Forms/FormAbout.pas (added)
• Forms/FormTest.lfm (added)
• Forms/FormTest.lrj (added)
• Forms/FormTest.pas (added)
• Forms/FormTests.lfm (added)
• Forms/FormTests.lrj (added)
• Forms/FormTests.pas (added)
• Languages.pas (modified) (3 diffs)
• Languages/DataFile.cs.po (modified) (2 diffs)
• Languages/DebugLog.cs.po (modified) (2 diffs)
• Languages/FindFile.cs.po (modified) (2 diffs)
• Languages/FormAbout.cs.po (modified) (4 diffs)
• Languages/FormTest.cs.po (added)
• Languages/FormTest.pot (added)
• Languages/FormTests.cs.po (added)
• Languages/FormTests.pot (added)
• Languages/JobProgressView.cs.po (modified) (6 diffs)
• Languages/Languages.cs.po (modified) (66 diffs)
• Languages/Languages.pot (modified) (1 diff)
• Languages/PixelPointer.pot (added)
• Languages/Pool.cs.po (modified) (3 diffs)
• Languages/ResetableThread.cs.po (modified) (2 diffs)
• Languages/ScaleDPI.cs.po (modified) (2 diffs)
• Languages/Table.pot (added)
• Languages/TestCase.cs.po (modified) (3 diffs)
• Languages/Threading.cs.po (modified) (2 diffs)
• PixelPointer.pas (modified) (18 diffs)
• PrefixMultiplier.pas (modified) (2 diffs)
• Table.pas (added)
• Translator.pas (modified) (5 diffs)

trunk/Packages/Common/Common.lpk

@@ -11 +11 @@
       <PathDelim Value="\"/>
       <SearchPaths>
+        <OtherUnitFiles Value="Forms"/>
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
       </SearchPaths>
@@ -41 +42 @@
 Source: https://svn.zdechov.net/PascalClassLibrary/Common/"/>
     <License Value="Copy left."/>
-    <Version Minor="11"/>
-    <Files Count="33">
+    <Version Minor="12"/>
+    <Files Count="36">
       <Item1>
         <Filename Value="StopWatch.pas"/>
@@ -159 +160 @@
       </Item26>
       <Item27>
-        <Filename Value="FormAbout.pas"/>
-        <UnitName Value="FormAbout"/>
+        <Filename Value="PixelPointer.pas"/>
+        <UnitName Value="PixelPointer"/>
       </Item27>
       <Item28>
-        <Filename Value="AboutDialog.pas"/>
-        <HasRegisterProc Value="True"/>
-        <UnitName Value="AboutDialog"/>
+        <Filename Value="DataFile.pas"/>
+        <UnitName Value="DataFile"/>
       </Item28>
       <Item29>
-        <Filename Value="PixelPointer.pas"/>
-        <UnitName Value="PixelPointer"/>
+        <Filename Value="TestCase.pas"/>
+        <UnitName Value="TestCase"/>
       </Item29>
       <Item30>
-        <Filename Value="DataFile.pas"/>
-        <UnitName Value="DataFile"/>
+        <Filename Value="Generics.pas"/>
+        <UnitName Value="Generics"/>
       </Item30>
       <Item31>
-        <Filename Value="TestCase.pas"/>
-        <UnitName Value="TestCase"/>
-      </Item31>
-      <Item32>
-        <Filename Value="Generics.pas"/>
-        <UnitName Value="Generics"/>
-      </Item32>
-      <Item33>
         <Filename Value="CommonPackage.pas"/>
         <Type Value="Main Unit"/>
         <UnitName Value="CommonPackage"/>
+      </Item31>
+      <Item32>
+        <Filename Value="Table.pas"/>
+        <UnitName Value="Table"/>
+      </Item32>
+      <Item33>
+        <Filename Value="FormEx.pas"/>
+        <HasRegisterProc Value="True"/>
+        <UnitName Value="FormEx"/>
       </Item33>
+      <Item34>
+        <Filename Value="Forms\FormTests.pas"/>
+        <UnitName Value="FormTests"/>
+      </Item34>
+      <Item35>
+        <Filename Value="Forms\FormTest.pas"/>
+        <UnitName Value="FormTest"/>
+      </Item35>
+      <Item36>
+        <Filename Value="Forms\FormAbout.pas"/>
+        <UnitName Value="FormAbout"/>
+      </Item36>
     </Files>
     <CompatibilityMode Value="True"/>

trunk/Packages/Common/Common.pas

@@ -65 +65 @@
 function GetFileFilterItemExt(Filter: string; Index: Integer): string;
 function IntToBin(Data: Int64; Count: Byte): string;
-function Implode(Separator: Char; List: TList<string>): string;
+function Implode(Separator: string; List: TList<string>): string;
+function Implode(Separator: string; List: TStringList; Around: string = ''): string;
 function LastPos(const SubStr: String; const S: String): Integer;
 function LoadFileToStr(const FileName: TFileName): AnsiString;
@@ -206 +207 @@
 end;*)
 
+function Implode(Separator: string; List: TStringList; Around: string = ''): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to List.Count - 1 do begin
+    Result := Result + Around + List[I] + Around;
+    if I < List.Count - 1 then Result := Result + Separator;
+  end;
+end;
+
 function LastPos(const SubStr: String; const S: String): Integer;
 begin
@@ -314 +326 @@
 end;
 
-function Implode(Separator: Char; List: TList<string>): string;
+function Implode(Separator: string; List: TList<string>): string;
 var
   I: Integer;

trunk/Packages/Common/CommonPackage.pas

@@ -9 +9 @@
 
 uses
-  StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading,
+  StopWatch, Common, DebugLog, Common.Delay, PrefixMultiplier, URI, Threading, 
   Memory, ResetableThread, Pool, LastOpenedList, RegistryEx, JobProgressView, 
   XML, ApplicationInfo, SyncCounter, ListViewSort, PersistentForm, FindFile, 
   ScaleDPI, Theme, StringTable, MetaCanvas, Geometric, Translator, Languages, 
-  FormAbout, AboutDialog, PixelPointer, DataFile, TestCase, Generics, 
-  LazarusPackageIntf;
+  PixelPointer, DataFile, TestCase, Generics, Table, FormEx, FormTests, 
+  FormTest, FormAbout, LazarusPackageIntf;
 
 implementation
@@ -31 +31 @@
   RegisterUnit('Theme', @Theme.Register);
   RegisterUnit('Translator', @Translator.Register);
-  RegisterUnit('AboutDialog', @AboutDialog.Register);
+  RegisterUnit('FormEx', @FormEx.Register);
 end;
 

trunk/Packages/Common/DataFile.pas

@@ -77 +77 @@
 procedure TDataFile.Assign(Source: TPersistent);
 begin
-  inherited;
   if Source is TDataFile then begin
     FFileName := TDataFile(Source).FFileName;
     FModified := TDataFile(Source).FModified;
-  end;
+  end else inherited;
 end;
 

trunk/Packages/Common/Languages.pas

@@ -216 +216 @@
   SLang_za = 'Zhuang';
   SLang_zh = 'Chinese';
+  SLang_zh_Hans = 'Simplified Chinese';
+  SLang_zh_Hant = 'Traditional Chinese';
   SLang_zu = 'Zulu';
+
 
 implementation
@@ -228 +231 @@
 begin
   I := 0;
-  while (I < Count) and (TLanguage(Items[I]).Code < ACode) do Inc(I);
-  if I < Count then Result := TLanguage(Items[I])
+  while (I < Count) and (Items[I].Code <> ACode) do Inc(I);
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -439 +442 @@
   AddNew('za', SLang_za);
   AddNew('zh', SLang_zh);
+  AddNew('zh-Hant', SLang_zh_Hant);
+  AddNew('zh-Hans', SLang_zh_Hans);
   AddNew('zu', SLang_zu);
 end;

trunk/Packages/Common/Languages/DataFile.cs.po

@@ -13 +13 @@
 
 #: datafile.sallfiles
-#, fuzzy
 msgctxt "datafile.sallfiles"
 msgid "All files"
@@ -19 +18 @@
 
 #: datafile.sdatafilename
-#, fuzzy
 msgctxt "datafile.sdatafilename"
 msgid "Data file"

trunk/Packages/Common/Languages/DebugLog.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Jiří Hajda <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: debuglog.sfilenamenotdefined
-#, fuzzy
 msgctxt "debuglog.sfilenamenotdefined"
 msgid "Filename not defined"

trunk/Packages/Common/Languages/FindFile.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: \n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Language: cs\n"
-"X-Generator: Poedit 1.8.9\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: findfile.sdirnotfound
-#, fuzzy
 msgctxt "findfile.sdirnotfound"
 msgid "Directory not found"

trunk/Packages/Common/Languages/FormAbout.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Language: cs\n"
-"X-Generator: Poedit 2.4.1\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: formabout.slicense
-#, fuzzy
 msgctxt "formabout.slicense"
 msgid "License"
@@ -19 +18 @@
 
 #: formabout.sreleasedate
-#, fuzzy
 msgctxt "formabout.sreleasedate"
 msgid "Release date"
@@ -25 +23 @@
 
 #: formabout.sversion
-#, fuzzy
 msgctxt "formabout.sversion"
 msgid "Version"

trunk/Packages/Common/Languages/JobProgressView.cs.po

@@ -10 +10 @@
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"X-Generator: Poedit 2.2\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: jobprogressview.sestimatedtime
-#, object-pascal-format, fuzzy
+#, object-pascal-format
 msgctxt "jobprogressview.sestimatedtime"
 msgid "Estimated time: %s"
@@ -19 +19 @@
 
 #: jobprogressview.sexecuted
-#, fuzzy
 msgctxt "jobprogressview.sexecuted"
 msgid "Executed"
@@ -25 +24 @@
 
 #: jobprogressview.sfinished
-#, fuzzy
 msgctxt "jobprogressview.sfinished"
 msgid "Finished"
@@ -31 +29 @@
 
 #: jobprogressview.spleasewait
-#, fuzzy
 msgctxt "jobprogressview.spleasewait"
 msgid "Please wait..."
@@ -37 +34 @@
 
 #: jobprogressview.sterminate
-#, fuzzy
 msgctxt "jobprogressview.sterminate"
 msgid "Termination"
@@ -43 +39 @@
 
 #: jobprogressview.stotalestimatedtime
-#, object-pascal-format, fuzzy
+#, object-pascal-format
 msgctxt "jobprogressview.stotalestimatedtime"
 msgid "Total estimated time: %s"

trunk/Packages/Common/Languages/Languages.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Jiří Hajda <software@mezservis.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: languages.slangauto
-#, fuzzy
 msgctxt "languages.slangauto"
 msgid "Automatic"
@@ -22 +23 @@
 
 #: languages.slang_ab
-#, fuzzy
 msgctxt "languages.slang_ab"
 msgid "Abkhazian"
@@ -33 +33 @@
 
 #: languages.slang_af
-#, fuzzy
 msgctxt "languages.slang_af"
 msgid "Afrikaans"
@@ -54 +53 @@
 
 #: languages.slang_ar
-#, fuzzy
 msgctxt "languages.slang_ar"
 msgid "Arabic"
@@ -90 +88 @@
 
 #: languages.slang_bg
-#, fuzzy
 msgctxt "languages.slang_bg"
 msgid "Bulgarian"
@@ -116 +113 @@
 
 #: languages.slang_bo
-#, fuzzy
 msgctxt "languages.slang_bo"
 msgid "Tibetan"
@@ -132 +128 @@
 
 #: languages.slang_ca
-#, fuzzy
 msgctxt "languages.slang_ca"
 msgid "Catalan"
@@ -153 +148 @@
 
 #: languages.slang_cr
-#, fuzzy
 msgctxt "languages.slang_cr"
 msgid "Cree"
@@ -159 +153 @@
 
 #: languages.slang_cs
-#, fuzzy
 msgctxt "languages.slang_cs"
 msgid "Czech"
@@ -175 +168 @@
 
 #: languages.slang_da
-#, fuzzy
 msgctxt "languages.slang_da"
 msgid "Danish"
@@ -181 +173 @@
 
 #: languages.slang_de
-#, fuzzy
 msgctxt "languages.slang_de"
 msgid "German"
@@ -187 +178 @@
 
 #: languages.slang_de_at
-#, fuzzy
 msgctxt "languages.slang_de_at"
 msgid "Austrian German"
@@ -193 +183 @@
 
 #: languages.slang_de_ch
-#, fuzzy
 msgctxt "languages.slang_de_ch"
 msgid "Swiss German"
@@ -214 +203 @@
 
 #: languages.slang_el
-#, fuzzy
 msgctxt "languages.slang_el"
 msgid "Greek"
@@ -220 +208 @@
 
 #: languages.slang_en
-#, fuzzy
 msgctxt "languages.slang_en"
 msgid "English"
@@ -226 +213 @@
 
 #: languages.slang_en_au
-#, fuzzy
 msgctxt "languages.slang_en_au"
 msgid "Australian English"
@@ -232 +218 @@
 
 #: languages.slang_en_ca
-#, fuzzy
 msgctxt "languages.slang_en_ca"
 msgid "Canadian English"
@@ -238 +223 @@
 
 #: languages.slang_en_gb
-#, fuzzy
 msgctxt "languages.slang_en_gb"
 msgid "British English"
@@ -244 +228 @@
 
 #: languages.slang_en_us
-#, fuzzy
 msgctxt "languages.slang_en_us"
 msgid "American English"
@@ -250 +233 @@
 
 #: languages.slang_eo
-#, fuzzy
 msgctxt "languages.slang_eo"
 msgid "Esperanto"
@@ -256 +238 @@
 
 #: languages.slang_es
-#, fuzzy
 msgctxt "languages.slang_es"
 msgid "Spanish"
@@ -262 +243 @@
 
 #: languages.slang_et
-#, fuzzy
 msgctxt "languages.slang_et"
 msgid "Estonian"
@@ -273 +253 @@
 
 #: languages.slang_fa
-#, fuzzy
 msgctxt "languages.slang_fa"
 msgid "Persian"
@@ -284 +263 @@
 
 #: languages.slang_fi
-#, fuzzy
 msgctxt "languages.slang_fi"
 msgid "Finnish"
@@ -300 +278 @@
 
 #: languages.slang_fr
-#, fuzzy
 msgctxt "languages.slang_fr"
 msgid "French"
@@ -316 +293 @@
 
 #: languages.slang_ga
-#, fuzzy
 msgctxt "languages.slang_ga"
 msgid "Irish"
@@ -352 +328 @@
 
 #: languages.slang_he
-#, fuzzy
 msgctxt "languages.slang_he"
 msgid "Hebrew"
@@ -368 +343 @@
 
 #: languages.slang_hr
-#, fuzzy
 msgctxt "languages.slang_hr"
 msgid "Croatian"
@@ -379 +353 @@
 
 #: languages.slang_hu
-#, fuzzy
 msgctxt "languages.slang_hu"
 msgid "Hungarian"
@@ -385 +358 @@
 
 #: languages.slang_hy
-#, fuzzy
 msgctxt "languages.slang_hy"
 msgid "Armenian"
@@ -431 +403 @@
 
 #: languages.slang_is
-#, fuzzy
 msgctxt "languages.slang_is"
 msgid "Icelandic"
@@ -437 +408 @@
 
 #: languages.slang_it
-#, fuzzy
 msgctxt "languages.slang_it"
 msgid "Italian"
@@ -448 +418 @@
 
 #: languages.slang_ja
-#, fuzzy
 msgctxt "languages.slang_ja"
 msgid "Japanese"
@@ -459 +428 @@
 
 #: languages.slang_ka
-#, fuzzy
 msgctxt "languages.slang_ka"
 msgid "Georgian"
@@ -465 +433 @@
 
 #: languages.slang_kg
-#, fuzzy
 msgctxt "languages.slang_kg"
 msgid "Kongo"
@@ -486 +453 @@
 
 #: languages.slang_kl
-#, fuzzy
 msgctxt "languages.slang_kl"
 msgid "Greenlandic"
@@ -497 +463 @@
 
 #: languages.slang_kn
-#, fuzzy
 msgctxt "languages.slang_kn"
 msgid "Kannada"
@@ -503 +468 @@
 
 #: languages.slang_ko
-#, fuzzy
 msgctxt "languages.slang_ko"
 msgid "Korean"
@@ -529 +493 @@
 
 #: languages.slang_kw
-#, fuzzy
 msgctxt "languages.slang_kw"
 msgid "Cornish"
@@ -540 +503 @@
 
 #: languages.slang_la
-#, fuzzy
 msgctxt "languages.slang_la"
 msgid "Latin"
@@ -546 +508 @@
 
 #: languages.slang_lb
-#, fuzzy
 msgctxt "languages.slang_lb"
 msgid "Luxembourgish"
@@ -567 +528 @@
 
 #: languages.slang_lo
-#, fuzzy
 msgctxt "languages.slang_lo"
 msgid "Lao"
@@ -573 +533 @@
 
 #: languages.slang_lt
-#, fuzzy
 msgctxt "languages.slang_lt"
 msgid "Lithuanian"
@@ -584 +543 @@
 
 #: languages.slang_lv
-#, fuzzy
 msgctxt "languages.slang_lv"
 msgid "Latvian"
@@ -605 +563 @@
 
 #: languages.slang_mk
-#, fuzzy
 msgctxt "languages.slang_mk"
 msgid "Macedonian"
@@ -616 +573 @@
 
 #: languages.slang_mn
-#, fuzzy
 msgctxt "languages.slang_mn"
 msgid "Mongolian"
@@ -622 +578 @@
 
 #: languages.slang_mo
-#, fuzzy
 msgctxt "languages.slang_mo"
 msgid "Moldavian"
@@ -673 +628 @@
 
 #: languages.slang_nl
-#, fuzzy
 msgctxt "languages.slang_nl"
 msgid "Dutch"
@@ -689 +643 @@
 
 #: languages.slang_no
-#, fuzzy
 msgctxt "languages.slang_no"
 msgid "Norwegian"
@@ -700 +653 @@
 
 #: languages.slang_nv
-#, fuzzy
 msgctxt "languages.slang_nv"
 msgid "Navajo"
@@ -746 +698 @@
 
 #: languages.slang_pl
-#, fuzzy
 msgctxt "languages.slang_pl"
 msgid "Polish"
@@ -757 +708 @@
 
 #: languages.slang_pt
-#, fuzzy
 msgctxt "languages.slang_pt"
 msgid "Portuguese"
@@ -763 +713 @@
 
 #: languages.slang_pt_br
-#, fuzzy
 msgctxt "languages.slang_pt_br"
 msgid "Brazilian Portuguese"
@@ -784 +733 @@
 
 #: languages.slang_ro
-#, fuzzy
 msgctxt "languages.slang_ro"
 msgid "Romanian"
@@ -790 +738 @@
 
 #: languages.slang_ru
-#, fuzzy
 msgctxt "languages.slang_ru"
 msgid "Russian"
@@ -831 +778 @@
 
 #: languages.slang_sk
-#, fuzzy
 msgctxt "languages.slang_sk"
 msgid "Slovak"
@@ -837 +783 @@
 
 #: languages.slang_sl
-#, fuzzy
 msgctxt "languages.slang_sl"
 msgid "Slovenian"
@@ -858 +803 @@
 
 #: languages.slang_sq
-#, fuzzy
 msgctxt "languages.slang_sq"
 msgid "Albanian"
@@ -879 +823 @@
 
 #: languages.slang_su
-#, fuzzy
 msgctxt "languages.slang_su"
 msgid "Sundanese"
@@ -885 +828 @@
 
 #: languages.slang_sv
-#, fuzzy
 msgctxt "languages.slang_sv"
 msgid "Swedish"
@@ -941 +883 @@
 
 #: languages.slang_tr
-#, fuzzy
 msgctxt "languages.slang_tr"
 msgid "Turkish"
@@ -952 +893 @@
 
 #: languages.slang_tt
-#, fuzzy
 msgctxt "languages.slang_tt"
 msgid "Tatar"
@@ -973 +913 @@
 
 #: languages.slang_uk
-#, fuzzy
 msgctxt "languages.slang_uk"
 msgid "Ukrainian"
@@ -994 +933 @@
 
 #: languages.slang_vi
-#, fuzzy
 msgctxt "languages.slang_vi"
 msgid "Vietnamese"
@@ -1035 +973 @@
 
 #: languages.slang_zh
-#, fuzzy
 msgctxt "languages.slang_zh"
 msgid "Chinese"
 msgstr "Čínština"
 
+#: languages.slang_zh_hans
+msgid "Simplified Chinese"
+msgstr ""
+
+#: languages.slang_zh_hant
+msgid "Traditional Chinese"
+msgstr ""
+
 #: languages.slang_zu
-#, fuzzy
 msgctxt "languages.slang_zu"
 msgid "Zulu"

trunk/Packages/Common/Languages/Languages.pot

@@ -776 +776 @@
 msgstr ""
 
+#: languages.slang_zh_hans
+msgid "Simplified Chinese"
+msgstr ""
+
+#: languages.slang_zh_hant
+msgid "Traditional Chinese"
+msgstr ""
+
 #: languages.slang_zu
 msgid "Zulu"

trunk/Packages/Common/Languages/Pool.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: pool.sobjectpoolempty
-#, fuzzy
 msgctxt "pool.sobjectpoolempty"
 msgid "Object pool is empty"
@@ -17 +18 @@
 
 #: pool.sreleaseerror
-#, fuzzy
 msgctxt "pool.sreleaseerror"
 msgid "Unknown object for release from pool"

trunk/Packages/Common/Languages/ResetableThread.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: resetablethread.swaiterror
-#, fuzzy
 msgctxt "resetablethread.swaiterror"
 msgid "WaitFor error"

trunk/Packages/Common/Languages/ScaleDPI.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: \n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
-"Language: cs\n"
-"X-Generator: Poedit 1.8.9\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: scaledpi.swrongdpi
-#, object-pascal-format, fuzzy
+#, object-pascal-format
 msgctxt "scaledpi.swrongdpi"
 msgid "Wrong DPI [%d,%d]"

trunk/Packages/Common/Languages/TestCase.cs.po

@@ -13 +13 @@
 
 #: testcase.sfailed
-#, fuzzy
 msgctxt "testcase.sfailed"
 msgid "Failed"
@@ -19 +18 @@
 
 #: testcase.snone
-#, fuzzy
 msgctxt "testcase.snone"
 msgid "None"
@@ -25 +23 @@
 
 #: testcase.spassed
-#, fuzzy
 msgctxt "testcase.spassed"
 msgid "Passed"

trunk/Packages/Common/Languages/Threading.cs.po

@@ -1 +1 @@
 msgid ""
 msgstr ""
-"Content-Type: text/plain; charset=UTF-8\n"
 "Project-Id-Version: \n"
 "POT-Creation-Date: \n"
@@ -7 +6 @@
 "Last-Translator: Chronos <robie@centrum.cz>\n"
 "Language-Team: \n"
+"Language: cs\n"
 "MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
+"X-Generator: Poedit 3.0.1\n"
 
 #: threading.scurrentthreadnotfound
-#, object-pascal-format, fuzzy
+#, object-pascal-format
 msgctxt "threading.scurrentthreadnotfound"
 msgid "Current thread ID %d not found in virtual thread list."

trunk/Packages/Common/PixelPointer.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Graphics;
+  Math, Classes, SysUtils, Graphics;
 
 type
   TColor32 = type Cardinal;
   TColor32Component = (ccBlue, ccGreen, ccRed, ccAlpha);
+  TColor32Planes = array[0..3] of Byte;
 
   { TPixel32 }
@@ -14 +15 @@
   TPixel32 = packed record
   private
-    procedure SetRGB(AValue: Cardinal);
-    function GetRGB: Cardinal;
+    procedure SetRGB(AValue: Cardinal); inline;
+    function GetRGB: Cardinal; inline;
   public
     property RGB: Cardinal read GetRGB write SetRGB;
@@ -21 +22 @@
       0: (B, G, R, A: Byte);
       1: (ARGB: TColor32);
-      2: (Planes: array[0..3] of Byte);
+      2: (Planes: TColor32Planes);
       3: (Components: array[TColor32Component] of Byte);
   end;
@@ -29 +30 @@
 
   TPixelPointer = record
+  private
+    function GetPixelARGB: TColor32; inline;
+    function GetPixelB: Byte; inline;
+    function GetPixelG: Byte; inline;
+    function GetPixelPlane(Index: Byte): Byte; inline;
+    function GetPixelR: Byte; inline;
+    function GetPixelA: Byte; inline;
+    function GetPixelPlanes: TColor32Planes;
+    function GetPixelRGB: Cardinal; inline;
+    procedure SetPixelARGB(Value: TColor32); inline;
+    procedure SetPixelB(Value: Byte); inline;
+    procedure SetPixelG(Value: Byte); inline;
+    procedure SetPixelPlane(Index: Byte; AValue: Byte); inline;
+    procedure SetPixelR(Value: Byte); inline;
+    procedure SetPixelA(Value: Byte); inline;
+    procedure SetPixelRGB(Value: Cardinal); inline;
+  public
     Base: PPixel32;
     Pixel: PPixel32;
@@ -35 +53 @@
     BytesPerPixel: Integer;
     BytesPerLine: Integer;
+    Data: PPixel32;
+    Width: Integer;
+    Height: Integer;
     procedure NextLine; inline; // Move pointer to start of next line
     procedure PreviousLine; inline; // Move pointer to start of previous line
@@ -41 +62 @@
     procedure SetXY(X, Y: Integer); inline; // Set pixel position relative to base
     procedure SetX(X: Integer); inline; // Set horizontal pixel position relative to base
+    procedure CheckRange; inline; // Check if current pixel position is not out of range
+    function PosValid: Boolean;
+    class function Create(Bitmap: TRasterImage; BaseX: Integer = 0; BaseY: Integer = 0): TPixelPointer; static;
+    property PixelARGB: TColor32 read GetPixelARGB write SetPixelARGB;
+    property PixelRGB: Cardinal read GetPixelRGB write SetPixelRGB;
+    property PixelB: Byte read GetPixelB write SetPixelB;
+    property PixelG: Byte read GetPixelG write SetPixelG;
+    property PixelR: Byte read GetPixelR write SetPixelR;
+    property PixelA: Byte read GetPixelA write SetPixelA;
+    property PixelPlane[Index: Byte]: Byte read GetPixelPlane write SetPixelPlane;
   end;
   PPixelPointer = ^TPixelPointer;
 
-  function PixelPointer(Bitmap: TRasterImage; BaseX: Integer = 0; BaseY: Integer = 0): TPixelPointer; inline;
   function SwapRedBlue(Color: TColor32): TColor32;
   procedure BitmapCopyRect(DstBitmap: TRasterImage; DstRect: TRect; SrcBitmap: TRasterImage; SrcPos: TPoint);
@@ -63 +93 @@
 implementation
 
+resourcestring
+  SOutOfRange = 'Pixel pointer out of range [X: %d, Y: %d, Width: %d, Height: %d]';
+  SWrongBitmapSize = 'Wrong bitmap size [width: %d, height: %d]';
+
 { TPixel32 }
 
@@ -72 +106 @@
 procedure TPixel32.SetRGB(AValue: Cardinal);
 begin
-  R := (AValue shr 16) and $ff;
-  G := (AValue shr 8) and $ff;
-  B := (AValue shr 0) and $ff;
+  ARGB := (ARGB and $ff000000) or (AValue and $ffffff);
 end;
 
@@ -112 +144 @@
 end;
 
+procedure TPixelPointer.CheckRange;
+{$IFOPT R+}
+var
+  X: Integer;
+  Y: Integer;
+{$ENDIF}
+begin
+  {$IFOPT R+}
+  if (PByte(Pixel) < PByte(Data)) or
+    (PByte(Pixel) >= PByte(Data) + Height * BytesPerLine) then begin
+    X := PByte(Pixel) - PByte(Data);
+    Y := Floor(X / BytesPerLine);
+    X := X - Y * BytesPerLine;
+    X := Floor(X / BytesPerPixel);
+    raise Exception.Create(Format(SOutOfRange, [X, Y, Width, Height]));
+  end;
+  {$ENDIF}
+end;
+
+function TPixelPointer.PosValid: Boolean;
+begin
+  Result := not ((PByte(Pixel) < PByte(Data)) or
+    (PByte(Pixel) >= PByte(Data) + Height * BytesPerLine));
+end;
+
+function TPixelPointer.GetPixelPlanes: TColor32Planes;
+begin
+  CheckRange;
+  Result := Pixel^.Planes;
+end;
+
+function TPixelPointer.GetPixelRGB: Cardinal;
+begin
+  CheckRange;
+  Result := Pixel^.RGB;
+end;
+
+procedure TPixelPointer.SetPixelARGB(Value: TColor32);
+begin
+  CheckRange;
+  Pixel^.ARGB := Value;
+end;
+
+procedure TPixelPointer.SetPixelB(Value: Byte);
+begin
+  CheckRange;
+  Pixel^.B := Value;
+end;
+
+procedure TPixelPointer.SetPixelG(Value: Byte);
+begin
+  CheckRange;
+  Pixel^.G := Value;
+end;
+
+procedure TPixelPointer.SetPixelPlane(Index: Byte; AValue: Byte);
+begin
+  CheckRange;
+  Pixel^.Planes[Index] := AValue;
+end;
+
+procedure TPixelPointer.SetPixelR(Value: Byte);
+begin
+  CheckRange;
+  Pixel^.R := Value;
+end;
+
+procedure TPixelPointer.SetPixelA(Value: Byte);
+begin
+  CheckRange;
+  Pixel^.A := Value;
+end;
+
+function TPixelPointer.GetPixelARGB: TColor32;
+begin
+  CheckRange;
+  Result := Pixel^.ARGB;
+end;
+
+function TPixelPointer.GetPixelB: Byte;
+begin
+  CheckRange;
+  Result := Pixel^.B;
+end;
+
+function TPixelPointer.GetPixelG: Byte;
+begin
+  CheckRange;
+  Result := Pixel^.G;
+end;
+
+function TPixelPointer.GetPixelPlane(Index: Byte): Byte;
+begin
+  CheckRange;
+  Result := Pixel^.Planes[Index];
+end;
+
+function TPixelPointer.GetPixelR: Byte;
+begin
+  CheckRange;
+  Result := Pixel^.R;
+end;
+
+function TPixelPointer.GetPixelA: Byte;
+begin
+  CheckRange;
+  Result := Pixel^.A;
+end;
+
+procedure TPixelPointer.SetPixelRGB(Value: Cardinal);
+begin
+  CheckRange;
+  Pixel^.RGB := Value;
+end;
+
 procedure BitmapCopyRect(DstBitmap: TRasterImage; DstRect: TRect;
   SrcBitmap: TRasterImage; SrcPos: TPoint);
@@ -120 +267 @@
   SrcBitmap.BeginUpdate(True);
   DstBitmap.BeginUpdate(True);
-  SrcPtr := PixelPointer(SrcBitmap, SrcPos.X, SrcPos.Y);
-  DstPtr := PixelPointer(DstBitmap, DstRect.Left, DstRect.Top);
+  SrcPtr := TPixelPointer.Create(SrcBitmap, SrcPos.X, SrcPos.Y);
+  DstPtr := TPixelPointer.Create(DstBitmap, DstRect.Left, DstRect.Top);
   for Y := 0 to DstRect.Height - 1 do begin
     for X := 0 to DstRect.Width - 1 do begin
-      DstPtr.Pixel^.ARGB := SrcPtr.Pixel^.ARGB;
+      DstPtr.PixelARGB := SrcPtr.PixelARGB;
       SrcPtr.NextPixel;
       DstPtr.NextPixel;
@@ -150 +297 @@
   SrcBitmap.BeginUpdate(True);
   DstBitmap.BeginUpdate(True);
-  SrcPtr := PixelPointer(SrcBitmap, SrcRect.Left, SrcRect.Top);
-  DstPtr := PixelPointer(DstBitmap, DstRect.Left, DstRect.Top);
+  SrcPtr := TPixelPointer.Create(SrcBitmap, SrcRect.Left, SrcRect.Top);
+  DstPtr := TPixelPointer.Create(DstBitmap, DstRect.Left, DstRect.Top);
   for Y := 0 to DstRect.Height - 1 do begin
     for X := 0 to DstRect.Width - 1 do begin
@@ -160 +307 @@
       DstPtr.SetXY(X, Y);
       SrcPtr.SetXY(R.Left, R.Top);
-      C := SrcPtr.Pixel^.ARGB;
-      DstPtr.Pixel^.ARGB := C;
+      C := SrcPtr.PixelARGB;
+      DstPtr.PixelARGB := C;
       for YY := 0 to R.Height - 1 do begin
         for XX := 0 to R.Width - 1 do begin
-          DstPtr.Pixel^.ARGB := C;
+          DstPtr.PixelARGB := C;
           DstPtr.NextPixel;
         end;
@@ -181 +328 @@
 begin
   Bitmap.BeginUpdate(True);
-  Ptr := PixelPointer(Bitmap);
+  Ptr := TPixelPointer.Create(Bitmap);
   for Y := 0 to Bitmap.Height - 1 do begin
     for X := 0 to Bitmap.Width - 1 do begin
-      Ptr.Pixel^.ARGB := Color;
+      Ptr.PixelARGB := Color;
       Ptr.NextPixel;
     end;
@@ -198 +345 @@
 begin
   Bitmap.BeginUpdate(True);
-  Ptr := PixelPointer(Bitmap, Rect.Left, Rect.Top);
+  Ptr := TPixelPointer.Create(Bitmap, Rect.Left, Rect.Top);
   for Y := 0 to Rect.Height - 1 do begin
     for X := 0 to Rect.Width - 1 do begin
-      Ptr.Pixel^.ARGB := Color;
+      Ptr.PixelARGB := Color;
       Ptr.NextPixel;
     end;
@@ -215 +362 @@
 begin
   Bitmap.BeginUpdate(True);
-  Ptr := PixelPointer(Bitmap);
+  Ptr := TPixelPointer.Create(Bitmap);
   for Y := 0 to Bitmap.Height - 1 do begin
     for X := 0 to Bitmap.Width - 1 do begin
-      Ptr.Pixel^.ARGB := SwapRedBlue(Ptr.Pixel^.ARGB);
+      Ptr.PixelARGB := SwapRedBlue(Ptr.PixelARGB);
       Ptr.NextPixel;
     end;
@@ -232 +379 @@
 begin
   Bitmap.BeginUpdate(True);
-  Ptr := PixelPointer(Bitmap);
+  Ptr := TPixelPointer.Create(Bitmap);
   for Y := 0 to Bitmap.Height - 1 do begin
     for X := 0 to Bitmap.Width - 1 do begin
-      Ptr.Pixel^.ARGB := Ptr.Pixel^.ARGB xor $ffffff;
+      Ptr.PixelARGB := Ptr.PixelARGB xor $ffffff;
       Ptr.NextPixel;
     end;
@@ -252 +399 @@
   Pixel := Color32ToPixel32(Color);
   Bitmap.BeginUpdate(True);
-  Ptr := PixelPointer(Bitmap);
+  Ptr := TPixelPointer.Create(Bitmap);
   for Y := 0 to Bitmap.Height - 1 do begin
     for X := 0 to Bitmap.Width - 1 do begin
-      A := Ptr.Pixel^.A; //(Ptr.Pixel^.A + Pixel.A) shr 1;
-      R := (Ptr.Pixel^.R + Pixel.R) shr 1;
-      G := (Ptr.Pixel^.G + Pixel.G) shr 1;
-      B := (Ptr.Pixel^.B + Pixel.B) shr 1;
-      Ptr.Pixel^.ARGB := Color32(A, R, G, B);
+      A := Ptr.PixelA; //(Ptr.PixelA + Pixel.A) shr 1;
+      R := (Ptr.PixelR + Pixel.R) shr 1;
+      G := (Ptr.PixelG + Pixel.G) shr 1;
+      B := (Ptr.PixelB + Pixel.B) shr 1;
+      Ptr.PixelARGB := Color32(A, R, G, B);
       Ptr.NextPixel;
     end;
@@ -295 +442 @@
 end;
 
-function PixelPointer(Bitmap: TRasterImage; BaseX: Integer;
+class function TPixelPointer.Create(Bitmap: TRasterImage; BaseX: Integer;
   BaseY: Integer): TPixelPointer;
 begin
+  Result.Width := Bitmap.Width;
+  Result.Height := Bitmap.Height;
+  if (Result.Width < 0) or (Result.Height < 0) then
+    raise Exception.Create(Format(SWrongBitmapSize, [Result.Width, Result.Height]));
   Result.BytesPerLine := Bitmap.RawImage.Description.BytesPerLine;
   Result.BytesPerPixel := Bitmap.RawImage.Description.BitsPerPixel shr 3;
+  Result.Data := PPixel32(Bitmap.RawImage.Data);
   Result.Base := PPixel32(Bitmap.RawImage.Data + BaseX * Result.BytesPerPixel +
     BaseY * Result.BytesPerLine);

trunk/Packages/Common/PrefixMultiplier.pas

@@ -31 +31 @@
   (
     (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24),
-      (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
+    (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
     (ShortText: 'a'; FullText: 'atto'; Value: 1e-18),
     (ShortText: 'f'; FullText: 'femto'; Value: 1e-15),
@@ -52 +52 @@
   (
     (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24),
-      (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
+    (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
     (ShortText: 'as'; FullText: 'atto'; Value: 1e-18),
     (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15),

trunk/Packages/Common/Translator.pas

@@ -48 +48 @@
     procedure TranslateProperty(Component: TPersistent; PropInfo: PPropInfo);
     function IsExcluded(Component: TPersistent; PropertyName: string): Boolean;
-    function GetLangFileDir: string;
+    function GetLangFileDirs: TStrings;
   public
     ComponentExcludes: TComponentExcludesList;
@@ -71 +71 @@
   end;
 
+const
+  PoExt = '.po';
+
 procedure Register;
 
 
 implementation
+
+uses
+  Common;
 
 procedure Register;
@@ -161 +167 @@
   FileList: TStringList;
   I: Integer;
+  J: Integer;
   LocaleShort: string;
   SearchMask: string;
+  LangDirs: TStrings;
 begin
   FPoFiles.Clear;
-  if Assigned(FLanguage) then
-  try
+  if Assigned(FLanguage) then begin
     LocaleShort := GetLocaleShort;
-    //ShowMessage(ExtractFileDir(Application.ExeName) +
-    //  DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');
     SearchMask := '*';
     if LocaleShort <> '' then SearchMask := SearchMask + '.' + LocaleShort;
-    SearchMask := SearchMask + '.po';
-    FileList := FindAllFiles(GetLangFileDir, SearchMask);
-    for I := 0 to FileList.Count - 1 do begin
-      FileName := FileList[I];
-      //FileName := FindLocaleFileName('.po');
-      if FileExists(FileName) and (
-      ((LocaleShort = '') and (Pos('.', FileName) = Pos('.po', FileName))) or
-      (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName));
-    end;
-  finally
-    FileList.Free;
+    SearchMask := SearchMask + PoExt;
+    LangDirs := GetLangFileDirs;
+    for J := 0 to LangDirs.Count - 1 do begin
+      FileList := FindAllFiles(LangDirs[J], SearchMask);
+      try
+        for I := 0 to FileList.Count - 1 do begin
+          FileName := FileList[I];
+          //FileName := FindLocaleFileName('.po');
+           if FileExists(FileName) and (
+          ((LocaleShort = '') and (Pos('.', FileName) = Pos(PoExt, FileName))) or
+          (LocaleShort <> '')) then FPoFiles.Add(TPOFile.Create(FileName));
+        end;
+      finally
+        FileList.Free;
+      end;
+    end;
+    LangDirs.Free;
   end;
 end;
@@ -299 +310 @@
 end;
 
-function TTranslator.GetLangFileDir: string;
-begin
-  Result := FPoFilesFolder;
-  if Copy(Result, 1, 1) <> DirectorySeparator then
-    Result := ExtractFileDir(Application.ExeName) +
-      DirectorySeparator + Result;
+function TTranslator.GetLangFileDirs: TStrings;
+var
+  I: Integer;
+begin
+  Result := TStringList.Create;
+  Result.Delimiter := ';';
+  Result.StrictDelimiter := True;
+  Result.DelimitedText := FPoFilesFolder;
+
+  for I := 0 to Result.Count - 1 do begin
+    Result[I] := StringReplace(Result[I], '/', DirectorySeparator, [rfReplaceAll]);
+    Result[I] := StringReplace(Result[I], '\', DirectorySeparator, [rfReplaceAll]);
+    if Copy(Result[I], 1, 1) <> DirectorySeparator then
+      Result[I] := ExtractFileDir(Application.ExeName) +
+        DirectorySeparator + Result[I];
+  end;
 end;
 
@@ -371 +392 @@
 var
   I: Integer;
-  LangDir: string;
-begin
-  LangDir := GetLangFileDir;
+  J: Integer;
+  LangDirs: TStrings;
+begin
+  LangDirs := GetLangFileDirs;
   Languages.SearchByCode('').Available := True; // Automatic
 
   for I := 1 to Languages.Count - 1 do
   with Languages[I] do begin
-    Available := FileExists(LangDir + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) +
-      '.' + Code + ExtensionSeparator + 'po') or (Code = 'en');
-  end;
+    for J := 0 to LangDirs.Count - 1 do begin
+      if FileExists(LangDirs[J] + DirectorySeparator + ExtractFileNameOnly(Application.ExeName) +
+        '.' + Code + PoExt) or (Code = 'en') then begin
+          Available := True;
+          Continue;
+        end;
+    end;
+  end;
+  LangDirs.Free;
 end;