Changeset 369

Timestamp:

Feb 5, 2010, 9:00:37 PM (16 years ago)

Author:

RBRi

Message:

show more debug info

File:

• trunk/NewView/CmdLineParameterUnit.pas (modified) (2 diffs)

trunk/NewView/CmdLineParameterUnit.pas

@@ -159 +159 @@
   var
     tmpWindowPosition : TWindowPosition;
+    i : integer;
   begin
     LogEvent(LogStartup, '''' + commandLine + '''');
@@ -187 +188 @@
     LogEvent(LogStartup, '  ownerWindow: ' + intToStr(getOwnerWindow));
     LogEvent(LogStartup, '  windowTitle: ' + getWindowTitle);
+
+    if nil <> nhmDebugMessages then
+    begin
+      LogEvent(LogStartup, '');
+      LogEvent(LogStartup, '---- NHM DebugMessages ----');
+      for i := 0 to nhmDebugMessages.count-1 do
+      begin
+        LogEvent(LogStartup, '  ' + nhmDebugMessages[i]);
+      end;
+    end;
+
   end;