Changeset 228 for CoolTranslator

Timestamp:

Apr 7, 2011, 8:05:17 AM (14 years ago)

Author:

george

Message:

• Added: Language list of all languages with their codes.

Location:

CoolTranslator

Files:

• CoolTranslator.lpk (modified) (3 diffs)
• CoolTranslator.pas (modified) (1 diff)
• Languages (added)
• Languages/ULanguages.cs.po (added)
• Languages/ULanguages.po (added)
• UCoolTranslator.pas (modified) (4 diffs)
• ULanguages.pas (added)

CoolTranslator/CoolTranslator.lpk

@@ -9 +9 @@
       <PathDelim Value="\"/>
       <SearchPaths>
-        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
+        <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
       <Other>
@@ -18 +18 @@
     <License Value="GNU/GPL"/>
     <Version Minor="1"/>
-    <Files Count="1">
+    <Files Count="2">
       <Item1>
         <Filename Value="UCoolTranslator.pas"/>
@@ -24 +24 @@
         <UnitName Value="UCoolTranslator"/>
       </Item1>
+      <Item2>
+        <Filename Value="ULanguages.pas"/>
+        <UnitName Value="ULanguages"/>
+      </Item2>
     </Files>
+    <i18n>
+      <EnableI18N Value="True"/>
+      <OutDir Value="Languages"/>
+    </i18n>
     <Type Value="RunAndDesignTime"/>
     <RequiredPkgs Count="2">

CoolTranslator/CoolTranslator.pas

@@ -8 +8 @@
 
 uses
-  UCoolTranslator, LazarusPackageIntf;
+  UCoolTranslator, ULanguages, LazarusPackageIntf;
 
 implementation

CoolTranslator/UCoolTranslator.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, StdCtrls, ExtCtrls, StrUtils, Controls, Contnrs,
-  Translations, TypInfo, Dialogs, FileUtil, LCLProc;
+  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages;
 
 type
-
-  TLanguage = class
-    Name: string;
-    Code: string;
-  end;
-
-  { TLanguageList }
-
-  TLanguageList = class(TObjectList)
-    function SearchByCode(ACode: string): TLanguage;
-  end;
-
   { TComponentExcludes }
 
@@ -74 +62 @@
 procedure Register;
 
-resourcestring
-  SLanguageCzech = 'Czech';
-  SLanguageEnglish = 'English';
-  SLanguageAutomatic = 'Automatic';
-
-
 implementation
 
@@ -308 +290 @@
   inherited;
   ComponentExcludes := TComponentExcludesList.Create;
+  Languages := TLanguageList.Create;
+  POFilesFolder := 'Languages';
+
+  // LCL
   AddExcludes(TComponent, 'Name');
-
-  Languages := TLanguageList.Create;
-  with TLanguage(Languages[Languages.Add(TLanguage.Create)]) do begin
-    Name := SLanguageAutomatic;
-    Code := '';
-  end;
-  with TLanguage(Languages[Languages.Add(TLanguage.Create)]) do begin
-    Name := SLanguageCzech;
-    Code := 'cs';
-  end;
-  with TLanguage(Languages[Languages.Add(TLanguage.Create)]) do begin
-    Name := SLanguageEnglish;
-    Code := 'en';
-  end;
+  //AddExcludes(TAction, 'Category');
+  AddExcludes(TControl, 'HelpKeyword');
 end;
 
@@ -476 +450 @@
 end;
 
-{ TLanguageList }
-
-function TLanguageList.SearchByCode(ACode: string): TLanguage;
-var
-  I: Integer;
-begin
-  I := 0;
-  while (I < Count) and (TLanguage(Items[I]).Code < ACode) do Inc(I);
-  if I < Count then Result := TLanguage(Items[I])
-    else Result := nil;
-end;
-
 
 end.