Changeset 69 for trunk/NewView/CmdLineParameterUnit.pas

Timestamp:

Feb 6, 2007, 9:01:19 PM (19 years ago)

Author:

RBRi

Message:

fixed melpmanager parameter handling
more unit tests

File:

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

trunk/NewView/CmdLineParameterUnit.pas

@@ -42 +42 @@
        language : string;
        helpManagerFlag : boolean;
-       helpManagerWindow : integer;
+       helpManagerWindow : HWND;
        windowPositionFlag: boolean;
        windowPosition: TWindowPosition;
@@ -65 +65 @@
        PROPERTY getHelpManagerFlag : boolean read helpManagerFlag;
        FUNCTION setHelpManagerFlag(aNewValue : boolean) : boolean;
-       PROPERTY getHelpManagerWindow : integer read helpManagerWindow;
+       PROPERTY getHelpManagerWindow : HWND read helpManagerWindow;
        PROPERTY getWindowPositionFlag : boolean read windowPositionFlag;
        PROPERTY getWindowPosition : TWindowPosition read windowPosition;
@@ -103 +103 @@
     aStrings.Add('getLanguage: ' + getLanguage);
     aStrings.Add('getHelpManagerFlag: ' + boolToStr(getHelpManagerFlag));
-    aStrings.Add('getHelpManagerFlag: ' + boolToStr(getHelpManagerFlag));
-    aStrings.Add('getHelpManagerWindow: ' + intToStr(getHelpManagerWindow));
+    aStrings.Add('getHelpManagerWindow: ' + LongWordToStr(getHelpManagerWindow));
     aStrings.Add('getWindowPositionFlag: ' + boolToStr(getWindowPositionFlag));
     aStrings.Add('getFileNames: ' + getFileNames);