Changeset 70 for trunk/NewView/DebugUnit.pas

Timestamp:

Feb 8, 2007, 8:38:04 PM (19 years ago)

Author:

RBRi

Message:

more debug

File:

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

trunk/NewView/DebugUnit.pas

@@ -26 +26 @@
   // -- Logging --
   Type
-    LogAspect = (LogStartup, LogShutdown, LogSettings, LogParse, LogDisplay, LogSearch, LogViewStub, LogObjConstDest);
+    LogAspect = (       LogStartup,
+                        LogShutdown,
+                        LogSettings,
+                        LogParse,
+                        LogDisplay,
+                        LogSearch,
+                        LogNHM,
+                        LogViewStub,
+                        LogObjConstDest,
+                        LogDebug
+    );
     LogAspects = SET OF LogAspect;
 
@@ -46 +56 @@
 const
   activeLogAspects : LogAspects = [
-                                        LogStartup,
+//                                        LogStartup,
 //                                        LogShutdown,
 //                                        LogSettings,
@@ -52 +62 @@
 //                                        LogDisplay,
 //                                        LogSearch,
-                                        LogViewStub,
-                                        LogObjConstDest
+                                          LogNHM,
+//                                        LogViewStub,
+//                                        LogObjConstDest,
+                                          LogDebug
                                   ];
 
@@ -71 +83 @@
       LogDisplay      :  result := 'Display';
       LogSearch       :  result := 'Search';
+      LogNHM          :  result := 'NewHelpManager';
       LogViewStub     :  result := 'ViewStub';
       LogObjConstDest :  result := 'ObjConstDest';
+      LogDebug        :  result := 'Debug';
       else               result := 'Unknown';
       end;