Changeset 39 for trunk/Components/ACLLanguageUnit.pas

Timestamp:

Jan 2, 2007, 8:18:36 PM (19 years ago)

Author:

RBRi

Message:

• ACLProfile calls

File:

• trunk/Components/ACLLanguageUnit.pas (modified) (5 diffs)

trunk/Components/ACLLanguageUnit.pas

@@ -132 +132 @@
   StdCtrls, Buttons, ExtCtrls, TabCtrls, Dialogs,
   Coolbar2, Multicolumnlistbox,
-  ACLUtility, ACLStringUtility, ACLProfile, ACLFileUtility;
+  ACLUtility, ACLStringUtility,
+//  ACLProfile,
+  ACLFileUtility;
 
 var
@@ -738 +740 @@
   MinorLanguage: string;
 begin
-  ProfileEvent( 'LoadDefaultLanguage' );
+//  ProfileEvent( 'LoadDefaultLanguage' );
 
   LanguageVar := GetEnv( 'LANG' );
 
-  ProfileEvent( '  LANG='
-                + LanguageVar );
+//  ProfileEvent( '  LANG=' + LanguageVar );
   if LanguageVar = '' then
     LanguageVar := 'EN_US';
@@ -750 +751 @@
   MinorLanguage := ExtractNextValue( LanguageVar, '_' );
 
-  ProfileEvent( '  MajorLanguage='
-                + MajorLanguage );
-  ProfileEvent( '  MinorLanguage='
-                + MinorLanguage );
+//  ProfileEvent( '  MajorLanguage=' + MajorLanguage );
+//  ProfileEvent( '  MinorLanguage=' + MinorLanguage );
 
   // note there might be some other stuff on the end of LANG
@@ -760 +759 @@
   if MinorLanguage <> '' then
   begin
-    ProfileEvent( '  Trying Major_Minor' );
+//    ProfileEvent( '  Trying Major_Minor' );
     if LoadAutoLanguage( AppName,
                          MajorLanguage
@@ -767 +766 @@
     begin
       // found a specifc language
-      ProfileEvent( '    Found' );
+//      ProfileEvent( '    Found' );
       exit;
     end;
   end;
 
-  ProfileEvent( '  Trying Major only' );
+//  ProfileEvent( '  Trying Major only' );
   // try generic language?
   if LoadAutoLanguage( AppName, MajorLanguage ) then
   begin
-    ProfileEvent( '    Found' );
+//    ProfileEvent( '    Found' );
   end
   else
   begin
-    ProfileEvent( '    No language found, using default' );
+//    ProfileEvent( '    No language found, using default' );
 
     // load defaults