mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 02:17:19 +00:00
Added Ignore QSL feature to Labelprint and Automark QSL
This commit is contained in:
parent
7958437f17
commit
498fada9f0
@ -163,6 +163,7 @@
|
||||
<Filename Value="fMarkQSL.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmMarkQSL"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit8>
|
||||
<Unit9>
|
||||
|
@ -62,7 +62,7 @@ var
|
||||
implementation
|
||||
{$R *.lfm}
|
||||
|
||||
uses dUtils, dData, uMyIni, fQSLExpPref, dDXCC,fMain;
|
||||
uses dUtils, dData, uMyIni, fQSLExpPref, dDXCC,fMain, dLOgUpload;
|
||||
{ TfrmExLabelPrint }
|
||||
|
||||
procedure TfrmExLabelPrint.edtQSOsToLabelExit(Sender: TObject);
|
||||
@ -427,6 +427,9 @@ begin
|
||||
exit
|
||||
end;
|
||||
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.DisableOnlineLogSupport;
|
||||
|
||||
FieldCount := GetExpFieldCount;
|
||||
if dmData.DebugLevel >= 1 then Writeln('Field count: ', FieldCount);
|
||||
dmData.CreateQSLTmpTable;
|
||||
@ -511,7 +514,10 @@ begin
|
||||
dmData.DropQSLTmpTable;
|
||||
lblProgress.Caption := 'Complete!';
|
||||
CloseFile(f);
|
||||
dmData.RefreshMainDatabase()
|
||||
dmData.RefreshMainDatabase();
|
||||
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.EnableOnlineLogSupport;
|
||||
end
|
||||
end;
|
||||
|
||||
|
@ -46,7 +46,7 @@ var
|
||||
implementation
|
||||
{$R *.lfm}
|
||||
|
||||
uses dUtils, dData, dDXCC;
|
||||
uses dUtils, dData, dDXCC, UMyIni, dLogUpload;
|
||||
|
||||
procedure TfrmMarkQSL.FormShow(Sender: TObject);
|
||||
begin
|
||||
@ -76,6 +76,10 @@ begin
|
||||
Application.MessageBox('First, you must filter QSO which you want to mark!','Info...',mb_ok+mb_IconInformation);
|
||||
exit
|
||||
end;
|
||||
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.DisableOnlineLogSupport;
|
||||
|
||||
if Pos('WHERE',tmp) = 0 then exit;
|
||||
tmp := copy(tmp,Pos('WHERE',tmp)+5,Length(tmp) - Pos('WHERE',tmp));
|
||||
if pos('ORDER',tmp) > 0 then
|
||||
@ -245,7 +249,10 @@ begin
|
||||
end;
|
||||
dmData.qCQRLOG.Next
|
||||
end;
|
||||
lblProg.Caption := 'Complete!'
|
||||
lblProg.Caption := 'Complete!';
|
||||
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.EnableOnlineLogSupport;
|
||||
end;
|
||||
|
||||
procedure TfrmMarkQSL.cmbTypeChange(Sender: TObject);
|
||||
|
Loading…
Reference in New Issue
Block a user