Changeset 147

Timestamp:

May 8, 2007, 8:49:23 PM (18 years ago)

Author:

RBRi

Message:

enhanced debugging output

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -53 +53 @@
        searchText : AnsiString;
        debugEnabled : boolean;
+       nhmDebugMessages : TStringList;  // for better debugging strange situations
 
        FUNCTION handleSwitchWithValue(const aSwitchString : String; const aSwitch : String; var aValue : String) : Boolean;
@@ -80 +81 @@
        PROCEDURE parseCmdLine(const aCmdLineString : AnsiString);
        FUNCTION getOwnHelpFileName: String;
+       PROCEDURE addNhmDebugMessage(const aString : String);
   end;
 
@@ -90 +92 @@
 uses
   DOS,
-  FileUtilsUnit;
+  FileUtilsUnit,
+  VersionUnit;
 
   PROCEDURE TCmdLineParameters.writeDetailsTo(aStrings : TStrings);
   var
     tmpWindowPosition : TWindowPosition;
-  begin
+    i : integer;
+  begin
+    aStrings.Add('---- Version ----');
+    aStrings.Add('  ' + GetAppVersion);
+    aStrings.Add('');
+
+    aStrings.Add('---- Command Line ----');
     aStrings.Add('''' + commandLine + '''');
     aStrings.Add('isDebugEnabled: ' + boolToStr(isDebugEnabled));
@@ -122 +131 @@
     aStrings.Add('  ownerWindow: ' + intToStr(getOwnerWindow));
     aStrings.Add('  windowTitle: ' + getWindowTitle);
+
+    if nil <> nhmDebugMessages then
+    begin
+      aStrings.Add('');
+      aStrings.Add('---- NHM DebugMessages ----');
+      for i := 0 to nhmDebugMessages.count-1 do
+      begin
+        aStrings.Add('  ' + nhmDebugMessages[i]);
+      end;
+    end;
+
   end;
 
@@ -494 +514 @@
   Var
     tmpParts : TStringList;
+    tmpScreenWidth : longint;
+    tmpScreenHeight : longint;
   Begin
     tmpParts := TStringList.Create;
     StrExtractStrings(tmpParts, aParamValue, [','], '\');
 
-    result.Left := ParseWindowPositionPart(tmpParts[0], WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN));
-    result.Bottom := ParseWindowPositionPart(tmpParts[1], WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN));
-
-    result.Width := ParseWindowPositionPart(tmpParts[2], WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN));
+    tmpScreenWidth := WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN);
+    tmpScreenHeight := WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN);
+
+    result.Left := ParseWindowPositionPart(tmpParts[0], tmpScreenWidth);
+    result.Bottom := ParseWindowPositionPart(tmpParts[1], tmpScreenHeight);
+
+    result.Width := ParseWindowPositionPart(tmpParts[2], tmpScreenWidth);
     if result.Width < 50 then
       result.Width := 50;
 
-    result.Height := ParseWindowPositionPart(tmpParts[3], WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN));
+    result.Height := ParseWindowPositionPart(tmpParts[3], tmpScreenHeight);
     if result.Height < 50 then
       result.Height := 50;
@@ -631 +656 @@
 
     result := FindDefaultLanguageHelpFile('NewView', tmpLanguage);
+  end;
+
+
+  PROCEDURE TCmdLineParameters.addNhmDebugMessage(const aString : String);
+  var
+    tmpLanguage : String;
+  begin
+    if nil = nhmDebugMessages then
+    begin
+      nhmDebugMessages := TStringList.Create;
+    end;
+
+    nhmDebugMessages.add(aString);
   end;
 
@@ -655 +693 @@
     AnsiSetString(result, tmpParams, StrLen(tmpParams));
   END;
+
+
 END.