Changeset 80

Timestamp:

Feb 15, 2007, 12:47:18 PM (18 years ago)

Author:

RBRi

Message:

improved log handling

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -76 +76 @@
 
        PROCEDURE writeDetailsTo(aStrings : TStrings);
+       PROCEDURE logDetails;
        PROCEDURE parseCmdLine(aCmdLineString : String);
   end;
@@ -120 +121 @@
     aStrings.Add('  ownerWindow: ' + intToStr(getOwnerWindow));
     aStrings.Add('  windowTitle: ' + getWindowTitle);
+  end;
+
+
+  PROCEDURE TCmdLineParameters.LogDetails;
+  var
+    tmpWindowPosition : TWindowPosition;
+  begin
+    LogEvent(LogStartup, '''' + commandLine + '''');
+    LogEvent(LogStartup, 'isDebugEnabled: ' + boolToStr(isDebugEnabled));
+    LogEvent(LogStartup, 'parsed infos:');
+
+    LogEvent(LogStartup, '  showUsageFlag: ' + boolToStr(getShowUsageFlag));
+    LogEvent(LogStartup, '  searchFlag: ' + boolToStr(getSearchFlag));
+    LogEvent(LogStartup, '  fileNames: ' + getFileNames);
+    LogEvent(LogStartup, '  parsedFileNames: ' + getParsedFileNames);
+    LogEvent(LogStartup, '  searchText: ' + getSearchText);
+    LogEvent(LogStartup, '  parsedSearchText: ' + getParsedSearchText);
+    LogEvent(LogStartup, '  globalSearchFlag: ' + boolToStr(getGlobalSearchFlag));
+    LogEvent(LogStartup, '  language: ' + getLanguage);
+    LogEvent(LogStartup, '  helpManagerFlag: ' + boolToStr(getHelpManagerFlag));
+    LogEvent(LogStartup, '  helpManagerWindow: ' + LongWordToStr(getHelpManagerWindow));
+    LogEvent(LogStartup, '  windowPositionFlag: ' + boolToStr(getWindowPositionFlag));
+
+    tmpWindowPosition := getWindowPosition;
+    LogEvent(LogStartup, '  windowPosition: '
+                        + intToStr(tmpWindowPosition.left) + ', '
+                        + intToStr(tmpWindowPosition.bottom) + ', '
+                        + intToStr(tmpWindowPosition.width) + ', '
+                        + intToStr(tmpWindowPosition.height)
+                );
+    LogEvent(LogStartup, '  ownerWindow: ' + intToStr(getOwnerWindow));
+    LogEvent(LogStartup, '  windowTitle: ' + getWindowTitle);
   end;
 
@@ -410 +443 @@
 
     LogEvent(LogStartup, 'Parameters parsed');
-    LogEvent(LogStartup, '  Filename(s): "' + fileNames + '"');
-    LogEvent(LogStartup, '  Search Text: "' + searchText + '"');
+    LogDetails;
   end;