File tree Expand file tree Collapse file tree 1 file changed +8
-1
lines changed Expand file tree Collapse file tree 1 file changed +8
-1
lines changed Original file line number Diff line number Diff line change @@ -166,6 +166,7 @@ function TPythonVersion.GetDisplayName: string;
166
166
function TPythonVersion.GetHelpFile : string;
167
167
var
168
168
PythonHelpFilePath: string;
169
+ HtmlIndex: string;
169
170
Res: Integer;
170
171
SR: TSearchRec;
171
172
begin
@@ -176,7 +177,13 @@ function TPythonVersion.GetHelpFile: string;
176
177
PythonHelpFilePath := IncludeTrailingPathDelimiter(InstallPath) + ' Doc\python*.chm' ;
177
178
Res := FindFirst(PythonHelpFilePath, faAnyFile, SR);
178
179
if Res = 0 then
179
- Result := IncludeTrailingPathDelimiter(InstallPath) + ' Doc\' + SR.Name ;
180
+ Result := IncludeTrailingPathDelimiter(InstallPath) + ' Doc\' + SR.Name
181
+ else if Result = ' ' then
182
+ begin
183
+ HtmlIndex := IncludeTrailingPathDelimiter(InstallPath) + ' Doc\index.html' ;
184
+ if FileExists(HtmlIndex) then
185
+ Result := HtmlIndex;
186
+ end ;
180
187
FindClose(SR);
181
188
end ;
182
189
end ;
You can’t perform that action at this time.
0 commit comments