#43 include farsi language

Author: digao-dalpiaz

CompInstall.ini

@@ -3,7 +3,7 @@ IniVersion=2
 
 [General]
 Name=Digao Dalpiaz - Dam component
-Version=6.7
+Version=6.8
 DelphiVersions=XE3;XE4;XE5;XE6;XE7;XE8;10;10.1;10.2;10.3;10.4;11;12
 Packages=DamCommonPackage;DamPackage_VCL;DamPackage_FMX;DamDesignPackage_VCL;DamDesignPackage_FMX
 AddLibrary=1

README.md

@@ -38,16 +38,20 @@
 
 ## What's New
 
+- 01/24/2025 (Version 6.8)
+
+   - Include Farsi language support
+
+<details>
+  <summary>Click here to view the entire changelog</summary>
+
 - 03/25/2024 (Version 6.7) (*Minimum DzHTMLText version: 6.3*)
 
    - Fix message icon scaling when showing message (VCL)
    - Fix Lazarus message scaling
    - Fix Delphi message editor text preview scaling
    - Calculate buttons width after DPI scaling
 
-<details>
-  <summary>Click here to view the entire changelog</summary>
-
 - 03/16/2024 (Version 6.6)
 
    - Fix Delphi 10 Seattle compiling (ScaleForCurrentDPI only available in Delphi 10.1 Berlin)

Resources/DamLang.ini

@@ -127,3 +127,13 @@ Quest=Soru
 Warn=Uyarı
 Error=Hata
 Msg=Mesaj
+
+[Farsi]
+OK=تایید
+Yes=بله
+No=خیر
+Info=اطلاعات
+Quest=سوال
+Warn=هشدار
+Error=خطا
+Msg=پیام

Source/DamLanguage.pas

@@ -14,7 +14,7 @@ interface
 type
   TDamLanguage = (dgEnglish, dgPortuguese, dgSpanish, dgGerman, dgItalian,
     dgChinese, dgJapanese, dgGreek, dgRussian, dgFrench, dgPolish, dgDutch,
-    dgTurkish);
+    dgTurkish, dgFarsi);
 
   TDamLanguageDefinition = record
     OK, Yes, No, Info, Quest, Warn, Error, Msg: string;
@@ -45,7 +45,7 @@   TLanguageParams = record
   end;
 
 const
-  LANGUAGES_PARAMS: array[0..12] of TLanguageParams = (
+  LANGUAGES_PARAMS: array[0..13] of TLanguageParams = (
     (Name: 'English'   ; DamLang: dgEnglish   ; SysLang: $09 ),
     (Name: 'Portuguese'; DamLang: dgPortuguese; SysLang: $16 ),
     (Name: 'Spanish'   ; DamLang: dgSpanish   ; SysLang: $0a ),
@@ -58,7 +58,8 @@   TLanguageParams = record
     (Name: 'French'    ; DamLang: dgFrench    ; SysLang: $0c ),
     (Name: 'Polish'    ; DamLang: dgPolish    ; SysLang: $15 ),
     (Name: 'Dutch'     ; DamLang: dgDutch     ; SysLang: $13 ),
-    (Name: 'Turkish'   ; DamLang: dgTurkish   ; SysLang: $1f )
+    (Name: 'Turkish'   ; DamLang: dgTurkish   ; SysLang: $1f ),
+    (Name: 'Farsi'     ; DamLang: dgFarsi     ; SysLang: $29 )
   );
 
 procedure SetDamLangBySysLang(var DamLang: TDamLanguage);

Source/Dam_Resource.res

@@ -222,7 +222,7 @@ implementation
   {$ENDIF}
 {$ENDIF};
 
-const STR_VERSION = '6.7';
+const STR_VERSION = '6.8';
 
 var ObjDefault: TDam = nil;