The R Project SVN R

Rev

Rev 51883 | Rev 63077 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51883 Rev 62763
Line 131... Line 131...
131 
  SetPreviousData(PreviousDataKey, 'Internet', Internet);
 131 
  SetPreviousData(PreviousDataKey, 'Internet', Internet);
132 
  if INIFilename <> '' then
 132 
  if INIFilename <> '' then
133 
    SetIniString('R', 'Internet', Internet, INIFilename);
 133 
    SetIniString('R', 'Internet', Internet, INIFilename);
134 
end;
 134 
end;
135 
 
 135 
 
136 
procedure SetCommentMarker(var lines: TArrayOfString; option: String; active: boolean);
 136 
function SetCommentMarker(var lines: TArrayOfString; option: String; active: boolean) : boolean;
137 
var
 137 
var
138 
  i : integer;
 138 
  i : integer;
- 
 
 139 
  old : string;
139 
begin
 140 
begin
- 
 
 141 
  Result := false;
140 
  for i := 0 to pred(GetArrayLength(lines)) do
 142 
  for i := 0 to pred(GetArrayLength(lines)) do
141 
    if pos(option, lines[i]) > 0 then
143 
    if pos(option, lines[i]) > 0 then
142 
    begin
 144 
    begin
- 
 
 145 
      old := lines[i];
143 
      if active then
 146 
      if active then
144 
        lines[i][1] := ' '
 147 
        lines[i][1] := ' '
145 
      else
 148 
      else
146 
        lines[i][1] := '#';
 149 
        lines[i][1] := '#';
- 
 
 150 
      if old <> lines[i] then
- 
 
 151 
        Result := true;
147 
      exit;
 152 
      exit;
148 
    end;
 153 
    end;
149 
end;
 154 
end;
150
155
151 
procedure EditOptions();
 156 
procedure EditOptions();
152 
var
 157 
var
153 
  lines : TArrayOfString;
 158 
  lines : TArrayOfString;
154 
  filename : String;
 159 
  filename : String;
- 
 
 160 
  changed : boolean;
155 
begin
 161 
begin
- 
 
 162 
  changed := false;
156 
  filename := ExpandConstant(CurrentFilename);
 163 
  filename := ExpandConstant(CurrentFilename);
157 
  LoadStringsFromFile(filename, lines);
 164 
  LoadStringsFromFile(filename, lines);
158
165
159 
  SetCommentMarker(lines, 'MDI = yes', MDISDIPage.SelectedValueIndex = 0);
 166 
  changed := changed or SetCommentMarker(lines, 'MDI = yes', MDISDIPage.SelectedValueIndex = 0);
160 
  SetCommentMarker(lines, 'MDI = no', MDISDIPage.SelectedValueIndex = 1);
 167 
  changed := changed or SetCommentMarker(lines, 'MDI = no', MDISDIPage.SelectedValueIndex = 1);
161
168
162 
  SetCommentMarker(lines, 'options(help_type="text"', HelpStylePage.SelectedValueIndex = 0);
 169 
  changed := changed or SetCommentMarker(lines, 'options(help_type="text"', HelpStylePage.SelectedValueIndex = 0);
163 
  SetCommentMarker(lines, 'options(help_type="html"', HelpStylePage.SelectedValueIndex = 1);
 170 
  changed := changed or SetCommentMarker(lines, 'options(help_type="html"', HelpStylePage.SelectedValueIndex = 1);
164
171
- 
 
 172 
  if changed then
165 
  SaveStringsToFile(filename, lines, False);
 173 
    SaveStringsToFile(filename, lines, False);
166 
end;
 174 
end;
167 
 
 175 
 
168 
function CmdParms(Param:String): String;
 176 
function CmdParms(Param:String): String;
169 
begin
 177 
begin
170 
  Result := '';
 178 
  Result := '';