Changeset 259 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Sep 25, 2007, 1:30:41 PM (18 years ago)

Author:

RBRi

Message:

support -i option

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -41 +41 @@
        globalSearchFlag : boolean;
        language : string;
+       showIndexFlag : boolean;
        helpManagerFlag : boolean;
        helpManagerWindow : HWND;
@@ -66 +67 @@
        PROPERTY getGlobalSearchFlag : boolean read globalSearchFlag;
        PROPERTY getLanguage : string read language;
+       PROPERTY getShowIndexFlag : boolean read showIndexFlag;
        PROPERTY getHelpManagerFlag : boolean read helpManagerFlag;
        FUNCTION setHelpManagerFlag(const aNewValue : boolean) : boolean;
@@ -118 +120 @@
     aStrings.Add('  globalSearchFlag: ' + boolToStr(getGlobalSearchFlag));
     aStrings.Add('  language: ' + getLanguage);
+    aStrings.Add('  showIndexFlag: ' + boolToStr(getShowIndexFlag));
     aStrings.Add('  helpManagerFlag: ' + boolToStr(getHelpManagerFlag));
     aStrings.Add('  helpManagerWindow: ' + LongWordToStr(getHelpManagerWindow));
@@ -162 +165 @@
     LogEvent(LogStartup, '  globalSearchFlag: ' + boolToStr(getGlobalSearchFlag));
     LogEvent(LogStartup, '  language: ' + getLanguage);
+    LogEvent(LogStartup, '  showIndexFlag: ' + boolToStr(getShowIndexFlag));
     LogEvent(LogStartup, '  helpManagerFlag: ' + boolToStr(getHelpManagerFlag));
     LogEvent(LogStartup, '  helpManagerWindow: ' + LongWordToStr(getHelpManagerWindow));
@@ -216 +220 @@
     globalSearchFlag := false;
     language := '';
+    showIndexFlag := false;
     helpManagerFlag := false;
     helpManagerWindow := 0;
@@ -608 +613 @@
         end;
 
+      'i', 'I' :
+        begin
+          showIndexFlag := true;
+        end;
+
       'g', 'G' :
         begin