paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

made FindDefaultBrowser more win32-friendly

Browse Source 
git-svn-id: trunk@6583 -
This commit is contained in:
vincents 2005-01-14 10:21:51 +00:00
parent 87c170a682
commit 9e22870185
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ideintf/helphtml.pas
View File

@ -290,7 +290,7 @@ function THTMLBrowserHelpViewer.FindDefaultBrowser: string;
function Find(const ShortFilename: string; var Filename: string): boolean;
begin
Filename:=SearchFileInPath(ShortFilename{$IFDEF win32}+'.exe'{$ENDIF},'',
Application.EnvironmentVariable['PATH'],':',[]);
Application.EnvironmentVariable['PATH'],PathSeparator,[]);
Result:=Filename<>'';
end;
@ -303,7 +303,7 @@ begin
if Find('safari',Result) then exit;
if Find('netscape',Result) then exit;
if Find('opera',Result) then exit;
if Find('iexplorer',Result) then exit;
if Find('iexplore',Result) then exit;
Result:='';
end;

2
lcl/grids.pas
View File

@ -4480,8 +4480,10 @@ begin
end;
procedure TCustomGrid.EditorShowChar(Ch: Char);
{$ifndef win32}
var
msg: TGridMessage;
{$endif}
begin
SelectEditor;
if FEditor<>nil then begin