Changeset 228 for CoolTranslator/UCoolTranslator.pas

Timestamp:

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

Author:

george

Message:

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

File:

• CoolTranslator/UCoolTranslator.pas (modified) (4 diffs)

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.