paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 19:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: OpenDocument: auto add quotes, bug #16541

Browse Source 
git-svn-id: trunk@25586 -
This commit is contained in:
mattias 2010-05-23 09:21:58 +00:00
parent f00e4a5c9b
commit c1bd18c9ef
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lclintf.pas
View File

@ -318,6 +318,7 @@ var
lApp: string;
begin
Result := True;
if not FileExistsUTF8(APath) then exit(false);
lApp:=FindFilenameOfCmd('xdg-open'); // Portland OSDL/FreeDesktop standard on Linux
if lApp='' then
@ -327,6 +328,8 @@ begin
if lApp='' then
Exit(False);
if (APath<>'') and (APath[1]<>'"') then
APath:=QuotedStr(APath);
RunCmdFromPath(lApp,APath);
end;
{$ENDIF}