The R Project SVN R

Rev

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

Rev 63077 Rev 68631
Line 4... Line 4...
4 
var
 4 
var
5 
  NoAdminPage: TOutputMsgWizardPage;
 5 
  NoAdminPage: TOutputMsgWizardPage;
6 
  SelectOptionsPage: TInputOptionWizardPage;
 6 
  SelectOptionsPage: TInputOptionWizardPage;
7 
  MDISDIPage: TInputOptionWizardPage;
 7 
  MDISDIPage: TInputOptionWizardPage;
8 
  HelpStylePage: TInputOptionWizardPage;
 8 
  HelpStylePage: TInputOptionWizardPage;
9 
  InternetPage: TInputOptionWizardPage;
 - 
 
10 
  INIFilename: String;
 9 
  INIFilename: String;
11
10
12 
function IsAdmin: boolean;
 11 
function IsAdmin: boolean;
13 
begin
 12 
begin
14 
  Result := IsAdminLoggedOn or IsPowerUserLoggedOn;
 13 
  Result := IsAdminLoggedOn or IsPowerUserLoggedOn;
Line 44... Line 43...
44 
    CustomMessage('HelpStylet'), CustomMessage('HelpStyleq'),
 43 
    CustomMessage('HelpStylet'), CustomMessage('HelpStyleq'),
45 
    CustomMessage('HelpStylei'), True, False);
 44 
    CustomMessage('HelpStylei'), True, False);
46 
  HelpStylePage.Add(CustomMessage('HelpStyle0'));
 45 
  HelpStylePage.Add(CustomMessage('HelpStyle0'));
47 
  HelpStylePage.Add(CustomMessage('HelpStyle1'));
 46 
  HelpStylePage.Add(CustomMessage('HelpStyle1'));
48
47
49 
  InternetPage := CreateInputOptionPage(HelpStylePage.ID,
 - 
 
50 
    CustomMessage('Internett'), CustomMessage('Internetq'),
 - 
 
51 
    CustomMessage('Interneti'), True, False);
 - 
 
52 
  InternetPage.Add(CustomMessage('Internet0'));
 - 
 
53 
  InternetPage.Add(CustomMessage('Internet1'));
- 
 
54 
 
 - 
 
55 
  INIFilename := ExpandConstant('{param:LOADINF}');
 48 
  INIFilename := ExpandConstant('{param:LOADINF}');
56 
  if INIFilename <> '' then INIFilename := ExpandFilename(INIFilename);
 49 
  if INIFilename <> '' then INIFilename := ExpandFilename(INIFilename);
57
50
58 
  { From highest to lowest, priority is:
 51 
  { From highest to lowest, priority is:
59 
    LOADINF value
 52 
    LOADINF value
Line 81... Line 74...
81 
  else
 74 
  else
82 
    index := @HelpStyle@;
 75 
    index := @HelpStyle@;
83 
  end;
 76 
  end;
84 
  HelpStylePage.SelectedValueIndex := index;
 77 
  HelpStylePage.SelectedValueIndex := index;
85
78
86 
  option := GetPreviousData('Internet', '');
 - 
 
87 
  if INIFilename <> '' then
 - 
 
88 
    option := GetIniString('R', 'Internet', option, INIFilename);
 - 
 
89 
  case option of
 - 
 
90 
    'Standard':  index := 0;
 - 
 
91 
    'Internet2': index := 1;
 - 
 
92 
  else
 - 
 
93 
    index := @Internet@;
 - 
 
94 
  end;
 - 
 
95 
  InternetPage.SelectedValueIndex := index;
 - 
 
96
- 
 
97 
  { Get the save name now, because the current dir might change }
 79 
  { Get the save name now, because the current dir might change }
98 
  INIFilename := ExpandConstant('{param:SAVEINF}');
 80 
  INIFilename := ExpandConstant('{param:SAVEINF}');
99 
  if INIFilename <> '' then INIFilename := ExpandFilename(INIFilename);
81 
  if INIFilename <> '' then INIFilename := ExpandFilename(INIFilename);
100 
end;
 82 
end;
101 
 
 83 
 
102 
procedure RegisterPreviousData(PreviousDataKey: Integer);
 84 
procedure RegisterPreviousData(PreviousDataKey: Integer);
103 
var
 85 
var
104 
  MDISDI: String;
 86 
  MDISDI: String;
105 
  HelpStyle: String;
 87 
  HelpStyle: String;
106 
  Internet: String;
 - 
 
107 
begin
 88 
begin
108 
 
 89 
 
109
- 
 
110 
  { Store the settings so we can restore them next time }
 90 
  { Store the settings so we can restore them next time }
111 
  case MDISDIPage.SelectedValueIndex of
 91 
  case MDISDIPage.SelectedValueIndex of
112 
    0: MDISDI := 'MDI';
 92 
    0: MDISDI := 'MDI';
113 
    1: MDISDI := 'SDI';
 93 
    1: MDISDI := 'SDI';
114 
  end;
 94 
  end;
Line 122... Line 102...
122 
  end;
 102 
  end;
123 
  SetPreviousData(PreviousDataKey, 'HelpStyle', HelpStyle);
103 
  SetPreviousData(PreviousDataKey, 'HelpStyle', HelpStyle);
124 
  if INIFilename <> '' then
 104 
  if INIFilename <> '' then
125 
    SetIniString('R', 'HelpStyle', HelpStyle, INIFilename);
 105 
    SetIniString('R', 'HelpStyle', HelpStyle, INIFilename);
126
106
127 
  case InternetPage.SelectedValueIndex of
 - 
 
128 
    0: Internet := 'Standard';
 - 
 
129 
    1: Internet := 'Internet2';
 - 
 
130 
  end;
 - 
 
131 
  SetPreviousData(PreviousDataKey, 'Internet', Internet);
 - 
 
132 
  if INIFilename <> '' then
 - 
 
133 
    SetIniString('R', 'Internet', Internet, INIFilename);
 - 
 
134 
end;
 107 
end;
135 
 
 108 
 
136 
function SetCommentMarker(var lines: TArrayOfString; option: String; active: boolean) : boolean;
 109 
function SetCommentMarker(var lines: TArrayOfString; option: String; active: boolean) : boolean;
137 
var
 110 
var
138 
  i : integer;
 111 
  i : integer;
Line 171... Line 144...
171
144
172 
  if changed then
 145 
  if changed then
173 
    SaveStringsToFile(filename, lines, False);
 146 
    SaveStringsToFile(filename, lines, False);
174 
end;
 147 
end;
175 
 
 148 
 
176 
function CmdParms(Param:String): String;
 - 
 
177 
begin
 - 
 
178 
  Result := '';
 - 
 
179 
  if InternetPage.SelectedValueIndex = 1 then
 - 
 
180 
    Result := '--internet2';
 - 
 
181 
end;
 - 
 
182 
 
 - 
 
183 
function ShouldSkipPage(PageID: Integer): boolean;
 149 
function ShouldSkipPage(PageID: Integer): boolean;
184 
begin
 150 
begin
185 
  if PageID = NoAdminPage.ID then Result := IsAdmin
 151 
  if PageID = NoAdminPage.ID then Result := IsAdmin
186 
  else if (PageID = MDISDIPage.ID) or (PageID = HelpStylePage.ID) or (PageID = InternetPage.ID) then
152 
  else if (PageID = MDISDIPage.ID) or (PageID = HelpStylePage.ID) then
187 
    Result := SelectOptionsPage.SelectedValueIndex = 1
 153 
    Result := SelectOptionsPage.SelectedValueIndex = 1
188 
  else Result := false;
 154 
  else Result := false;
189 
end;
 155 
end;
190 
 
 156 
 
191 
function UserPF(Param:String): String;
 157 
function UserPF(Param:String): String;