mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
Merge pull request #518 from thuben/master
Fix for opening certain filenames in the EDI file export.
This commit is contained in:
commit
89805c61cc
@ -874,7 +874,7 @@ begin
|
||||
try
|
||||
prg := cqrini.ReadString('ExtView', 'txt', '');
|
||||
if prg<>'' then
|
||||
dmUtils.RunOnBackground(prg + ' ' + OtF)
|
||||
dmUtils.RunOnBackground(prg + ' ' + AnsiQuotedStr(OtF, '"'))
|
||||
else ShowMessage('No external text viewer defined!'+#10+'See: prefrences/External viewers');
|
||||
finally
|
||||
//done
|
||||
|
@ -163,7 +163,7 @@ begin
|
||||
try
|
||||
prg := cqrini.ReadString('ExtView', 'txt', '');
|
||||
if prg<>'' then
|
||||
dmUtils.RunOnBackground(prg + ' ' + f)
|
||||
dmUtils.RunOnBackground(prg + ' ' + AnsiQuotedStr(f, '"'))
|
||||
else ShowMessage('No external text viewer defined!'+#10+'See: prefrences/External viewers');
|
||||
finally
|
||||
//done
|
||||
|
@ -58,7 +58,7 @@ begin
|
||||
CurrentDir := GetCurrentDir;
|
||||
try
|
||||
SetCurrentDir(flAttach.Directory);
|
||||
dmUtils.RunOnBackground('/usr/bin/xdg-open' + ' "' + flAttach.FileName + '"');
|
||||
dmUtils.RunOnBackground('/usr/bin/xdg-open' + ' ' + AnsiQuotedStr(flAttach.FileName, '"'));
|
||||
finally
|
||||
SetCurrentDir(CurrentDir)
|
||||
end;
|
||||
|
@ -37,7 +37,7 @@ uses dUtils, dData;
|
||||
|
||||
procedure TfrmDbError.btnOpenErrFileClick(Sender : TObject);
|
||||
begin
|
||||
dmUtils.RunOnBackground('xdg-open ' + dmData.DataDir + 'mysql.err')
|
||||
dmUtils.RunOnBackground('xdg-open ' + AnsiQuotedStr(dmData.DataDir + 'mysql.err', '"'))
|
||||
end;
|
||||
|
||||
procedure TfrmDbError.btnVisitFAQClick(Sender : TObject);
|
||||
|
@ -159,7 +159,7 @@ begin
|
||||
try
|
||||
prg := cqrini.ReadString('ExtView', 'txt', '');
|
||||
if prg<>'' then
|
||||
dmUtils.RunOnBackground(prg + ' ' + edtFileName.Text)
|
||||
dmUtils.RunOnBackground(prg + ' ' + AnsiQuotedStr(edtFileName.Text, '"'))
|
||||
else ShowMessage('No external text viewer defined!'+#10+'See: prefrences/External viewers');
|
||||
finally
|
||||
//done
|
||||
|
@ -7484,7 +7484,7 @@ begin
|
||||
btnSave.Enabled := False; //disable manual saving when remote is on
|
||||
tmrADIF.Interval := 250; //rate to read qsos from UDP (msec)
|
||||
if run and FileExists(ExtractWord(1,path,[' '])) then
|
||||
dmUtils.RunOnBackground(path)
|
||||
dmUtils.RunOnBackground(AnsiQuotedStr(path, '"'))
|
||||
end;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user