hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 02:17:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #518 from thuben/master

Browse Source 
Fix for opening certain filenames in the EDI file export.
This commit is contained in:
Petr Hlozek 2022-07-24 13:01:52 +02:00 committed by GitHub
commit 89805c61cc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/fAdifImport.pas
View File

@ -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

2
src/fCabrilloExport.pas
View File

@ -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

2
src/fCallAttachment.pas
View File

@ -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;

2
src/fDbError.pas
View File

@ -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);

2
src/fEDIExport.pas
View File

@ -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

2
src/fNewQSO.pas
View File

@ -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;