Changeset 94 for trunk/NewView/DebugUnit.pas

Timestamp:

Mar 10, 2007, 8:05:21 PM (18 years ago)

Author:

RBRi

Message:

+ i18n debug messages

File:

• trunk/NewView/DebugUnit.pas (modified) (3 diffs)

trunk/NewView/DebugUnit.pas

@@ -22 +22 @@
                         LogShutdown,
                         LogSettings,
+                        LogI18n,
                         LogParse,
                         LogDisplay,
@@ -119 +120 @@
   Begin
     Case aLogAspect of
-      LogStartup      :  result := 'Startup';
-      LogShutdown     :  result := 'Start';
-      LogSettings     :  result := 'Settings';
-      LogParse        :  result := 'Parse';
-      LogDisplay      :  result := 'Display';
-      LogSearch       :  result := 'Search';
-      LogNHM          :  result := 'NewHelpManager';
-      LogViewStub     :  result := 'ViewStub';
-      LogObjConstDest :  result := 'ObjConstDest';
-      LogDebug        :  result := 'Debug';
-      else               result := 'Unknown';
+      LogStartup      : result := 'Startup';
+      LogShutdown     : result := 'Start';
+      LogSettings     : result := 'Settings';
+      LogI18n         : result := 'I18n';
+      LogParse        : result := 'Parse';
+      LogDisplay      : result := 'Display';
+      LogSearch       : result := 'Search';
+      LogNHM          : result := 'NewHelpManager';
+      LogViewStub     : result := 'ViewStub';
+      LogObjConstDest : result := 'ObjConstDest';
+      LogDebug        : result := 'Debug';
+      else              result := 'Unknown';
       end;
   End;
@@ -147 +149 @@
       if tmpAspects[i] = 'LogShutdown'     then activeLogAspects := activeLogAspects + [ LogShutdown ];
       if tmpAspects[i] = 'LogSettings'     then activeLogAspects := activeLogAspects + [ LogSettings ];
+      if tmpAspects[i] = 'LogI18n'         then activeLogAspects := activeLogAspects + [ LogI18n ];
       if tmpAspects[i] = 'LogParse'        then activeLogAspects := activeLogAspects + [ LogParse ];
       if tmpAspects[i] = 'LogDisplay'      then activeLogAspects := activeLogAspects + [ LogDisplay ];