Ignore:
Timestamp:
Aug 26, 2006, 8:47:38 PM (19 years ago)
Author:
RBRi
Message:

% more source cleanup (uses)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NewView/CmdLineParameterUnit.pas

    r30 r32  
    1111
    1212uses
    13   Os2Def, BseTib, BseDos,
     13  Os2Def,
     14  BseTib,
     15  BseDos,
    1416  SysUtils,
    1517  Classes,
    16 
    1718  PMWIN,
    18 
    1919  ACLStringUtility,
    2020  ACLProfile,
    … …  
    5151
    5252     public
    53        FUNCTION getShowUsageFlag : boolean;
    54        FUNCTION getSearchTextFlag : boolean;
    55        FUNCTION getSearchText : string;
    56        FUNCTION getGlobalSearchTextFlag : boolean;
    57        FUNCTION getGlobalSearchText : string;
    58        FUNCTION getLanguage : string;
    59        FUNCTION getHelpManagerFlag : boolean;
     53       PROPERTY getShowUsageFlag : boolean read showUsageFlag;
     54       PROPERTY getSearchTextFlag : boolean read searchTextFlag;
     55       PROPERTY getSearchText : string read searchText;
     56       PROPERTY getGlobalSearchTextFlag : boolean read globalSearchTextFlag;
     57       PROPERTY getGlobalSearchText : string read globalSearchText;
     58       PROPERTY getLanguage : string read language;
     59       PROPERTY getHelpManagerFlag : boolean read helpManagerFlag;
    6060       FUNCTION setHelpManagerFlag(aNewValue : boolean) : boolean;
    61        FUNCTION getHelpManagerWindow : integer;
    62        FUNCTION getWindowPositionFlag : boolean;
    63        FUNCTION getWindowPosition : TWindowPosition;
    64        FUNCTION getOwnerWindow : integer;
    65        FUNCTION getWindowTitle : string;
    66        FUNCTION getFileNames : string;
    67        FUNCTION getTopics : string;
     61       PROPERTY getHelpManagerWindow : integer read helpManagerWindow;
     62       PROPERTY getWindowPositionFlag : boolean read windowPositionFlag;
     63       PROPERTY getWindowPosition : TWindowPosition read windowPosition;
     64       PROPERTY getOwnerWindow : integer read ownerWindow;
     65       PROPERTY getWindowTitle : string read windowTitle;
     66       PROPERTY getFileNames : string read fileNames;
     67       PROPERTY getTopics : string read topics;
    6868       PROCEDURE parseCmdLine(aSplittedCmdLine : TStringList);
    6969  end;
    … …  
    100100Implementation
    101101
    102   FUNCTION TCmdLineParameters.getShowUsageFlag : boolean;
    103   begin
    104        result := showUsageFlag;
    105   end;
    106 
    107 
    108   FUNCTION TCmdLineParameters.getSearchTextFlag : boolean;
    109   begin
    110        result := searchTextFlag;
    111   end;
    112 
    113 
    114   FUNCTION TCmdLineParameters.getSearchText : string;
    115   begin
    116        result := searchText;
    117   end;
    118 
    119 
    120   FUNCTION TCmdLineParameters.getGlobalSearchTextFlag : boolean;
    121   begin
    122        result := globalSearchTextFlag;
    123   end;
    124 
    125 
    126   FUNCTION TCmdLineParameters.getGlobalSearchText : string;
    127   begin
    128        result := globalSearchText;
    129   end;
    130 
    131 
    132   FUNCTION TCmdLineParameters.getLanguage : string;
    133   begin
    134        result := language;
    135   end;
    136 
    137 
    138   FUNCTION TCmdLineParameters.getHelpManagerFlag : boolean;
    139   begin
    140        result := helpManagerFlag;
    141   end;
    142 
    143 
    144102  FUNCTION TCmdLineParameters.setHelpManagerFlag(aNewValue : boolean) : boolean;
    145103  begin
    146104       helpManagerFlag := aNewValue;
    147105       result := helpManagerFlag;
    148   end;
    149 
    150 
    151   FUNCTION TCmdLineParameters.getHelpManagerWindow : integer;
    152   begin
    153        result := helpManagerWindow;
    154   end;
    155 
    156 
    157   FUNCTION TCmdLineParameters.getWindowPositionFlag : boolean;
    158   begin
    159        result := windowPositionFlag;
    160   end;
    161 
    162 
    163   FUNCTION TCmdLineParameters.getWindowPosition : TWindowPosition;
    164   begin
    165        result := windowPosition;
    166   end;
    167 
    168 
    169   FUNCTION TCmdLineParameters.getOwnerWindow : integer;
    170   begin
    171        result := ownerWindow;
    172   end;
    173 
    174 
    175   FUNCTION TCmdLineParameters.getWindowTitle : string;
    176   begin
    177        result := windowTitle;
    178   end;
    179 
    180 
    181   FUNCTION TCmdLineParameters.getFileNames : string;
    182   begin
    183        result := fileNames;
    184   end;
    185 
    186 
    187   FUNCTION TCmdLineParameters.getTopics : string;
    188   begin
    189        result := topics;
    190106  end;
    191107
Note: See TracChangeset for help on using the changeset viewer.