Changeset 65 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Jan 25, 2007, 9:08:08 PM (19 years ago)

Author:

RBRi

Message:

more fixes for the link handling

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -56 +56 @@
        FUNCTION handleParamWithValue(const aCmdLineString : String; const aSwitch : String; var aValue : String) : Boolean;
        PROCEDURE parseSwitch(aCmdLineString : String);
+       PROPERTY getFileNames : string read fileNames;
+       PROPERTY getSearchText : string read searchText;
 
      public
@@ -70 +72 @@
        PROPERTY getOwnerWindow : integer read ownerWindow;
        PROPERTY getWindowTitle : string read windowTitle;
-       PROPERTY getFileNames : string read fileNames;
        PROPERTY getFileNamesRaw : string read fileNamesRaw;
-       PROPERTY getSearchText : string read searchText;
-
+
+       PROCEDURE writeDetailsTo(aStrings : TStrings);
        PROCEDURE parseCmdLine(aCmdLineString : String);
 
@@ -90 +91 @@
 uses
   ACLFileUtility;
+
+  PROCEDURE TCmdLineParameters.writeDetailsTo(aStrings : TStrings);
+  var
+    tmpWindowPosition : TWindowPosition;
+  begin
+    aStrings.Add('parsed infos:');
+
+    aStrings.Add('getShowUsageFlag: ' + boolToStr(getShowUsageFlag));
+    aStrings.Add('getSearchFlag: ' + boolToStr(getSearchFlag));
+    aStrings.Add('getSearchText: ' + getSearchText);
+    aStrings.Add('getGlobalSearchFlag: ' + boolToStr(getGlobalSearchFlag));
+    aStrings.Add('getLanguage: ' + getLanguage);
+    aStrings.Add('getHelpManagerFlag: ' + boolToStr(getHelpManagerFlag));
+    aStrings.Add('getHelpManagerFlag: ' + boolToStr(getHelpManagerFlag));
+    aStrings.Add('getHelpManagerWindow: ' + intToStr(getHelpManagerWindow));
+    aStrings.Add('getWindowPositionFlag: ' + boolToStr(getWindowPositionFlag));
+    aStrings.Add('getFileNames: ' + getFileNames);
+    aStrings.Add('getInterpretedSearchText: ' + getInterpretedSearchText);
+    aStrings.Add('getInterpretedFileNames: ' + getInterpretedFileNames);
+
+    tmpWindowPosition := getWindowPosition;
+    aStrings.Add('getWindowPosition: '
+                        + intToStr(tmpWindowPosition.left) + ', '
+                        + intToStr(tmpWindowPosition.bottom) + ', '
+                        + intToStr(tmpWindowPosition.width) + ', '
+                        + intToStr(tmpWindowPosition.height)
+                );
+    aStrings.Add('getOwnerWindow: ' + intToStr(getOwnerWindow));
+    aStrings.Add('getWindowTitle: ' + getWindowTitle);
+  end;
+
 
   FUNCTION TCmdLineParameters.getInterpretedFileNames: String;
@@ -122 +154 @@
     then
       result := getFileNamesRaw;
+
+    if not getGlobalSearchFlag
+       AND (not getSearchFlag)
+    then
+    begin
+      result := StrTrim(result);
+      result := StrTrimChars(result, ['"']);
+    end;
+
   end;