mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
Added Ignore QSL and Ignore Edit (in preferences)
- user can select the effect of QSL and Edit just like LoTW adn eQSL has.
This commit is contained in:
parent
a3db065f99
commit
7958437f17
@ -2033,6 +2033,9 @@ var
|
||||
begin
|
||||
dmData.Q.Close;
|
||||
dmData.trQ.StartTransaction;
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.DisableOnlineLogSupport;
|
||||
|
||||
if dbgrdMain.SelectedRows.Count < 2 then
|
||||
begin
|
||||
MarkRec
|
||||
@ -2050,7 +2053,10 @@ begin
|
||||
dmData.qCQRLOG.Close;
|
||||
dmData.RefreshMainDatabase(idx);
|
||||
dbgrdMain.SelectedRows.Clear;
|
||||
RefreshQSODXCCCount
|
||||
RefreshQSODXCCCount;
|
||||
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.EnableOnlineLogSupport;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.acQSL_SExecute(Sender: TObject);
|
||||
@ -2414,6 +2420,9 @@ begin
|
||||
if dmData.trQ.Active then
|
||||
dmData.trQ.Rollback;
|
||||
dmData.trQ.StartTransaction;
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.DisableOnlineLogSupport;
|
||||
|
||||
if dbgrdMain.SelectedRows.Count = 0 then
|
||||
begin
|
||||
MarkRec
|
||||
@ -2430,7 +2439,10 @@ begin
|
||||
|
||||
dmData.qCQRLOG.Close;
|
||||
dbgrdMain.SelectedRows.Clear;
|
||||
dmData.RefreshMainDatabase(idx)
|
||||
dmData.RefreshMainDatabase(idx);
|
||||
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreQSL',False) then
|
||||
dmLogUpload.EnableOnlineLogSupport;
|
||||
end;
|
||||
|
||||
procedure TfrmMain.ChechkSelRecords;
|
||||
|
@ -3321,7 +3321,12 @@ begin
|
||||
end;
|
||||
if fEditQSO and (not fromNewQSO) then
|
||||
begin
|
||||
dmData.RefreshMainDatabase(id)
|
||||
dmData.RefreshMainDatabase(id);
|
||||
if cqrini.ReadBool('OnlineLog','IgnoreEdit',False) then
|
||||
Begin
|
||||
dmLogUpload.DisableOnlineLogSupport;
|
||||
dmLogUpload.EnableOnlineLogSupport;
|
||||
end;
|
||||
end;
|
||||
if not AnyRemoteOn then
|
||||
UnsetEditLabel;
|
||||
|
@ -8546,6 +8546,28 @@ object frmPreferences: TfrmPreferences
|
||||
Caption = 'Ignore changes caused by LoTW/eQSL upload or download'
|
||||
TabOrder = 4
|
||||
end
|
||||
object chkIgnoreQSL: TCheckBox
|
||||
AnchorSideLeft.Control = chkIgnoreLoTW
|
||||
AnchorSideTop.Control = chkIgnoreLoTW
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 584
|
||||
Width = 316
|
||||
Caption = 'Ignore changes caused by QSL sent/received'
|
||||
TabOrder = 5
|
||||
end
|
||||
object chkIgnoreEdit: TCheckBox
|
||||
AnchorSideLeft.Control = chkIgnoreQSL
|
||||
AnchorSideTop.Control = chkIgnoreQSL
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 12
|
||||
Height = 23
|
||||
Top = 607
|
||||
Width = 256
|
||||
Caption = 'Ignore changes caused by QSO edit'
|
||||
TabOrder = 6
|
||||
end
|
||||
end
|
||||
object tabCondx: TTabSheet
|
||||
Caption = 'Propagation'
|
||||
|
@ -122,6 +122,8 @@ type
|
||||
cb30cm: TCheckBox;
|
||||
cgLimit: TCheckGroup;
|
||||
cbNoKeyerReset: TCheckBox;
|
||||
chkIgnoreEdit: TCheckBox;
|
||||
chkIgnoreQSL: TCheckBox;
|
||||
chkDarcDok: TCheckBox;
|
||||
chkNewDOKTables: TCheckBox;
|
||||
chkRot1AzMinMax: TCheckBox;
|
||||
@ -1622,6 +1624,8 @@ begin
|
||||
cqrini.WriteInteger('OnlineLog','HrColor',cmbHrColor.Selected);
|
||||
cqrini.WriteBool('OnlineLog','CloseAfterUpload',chkCloseAfterUpload.Checked);
|
||||
cqrini.WriteBool('OnlineLog','IgnoreLoTWeQSL',chkIgnoreLoTW.Checked);
|
||||
cqrini.WriteBool('OnlineLog','IgnoreQSL',chkIgnoreQSL.Checked);
|
||||
cqrini.WriteBool('OnlineLog','IgnoreEdit',chkIgnoreEdit.Checked);
|
||||
|
||||
cqrini.WriteString('prop','Url',edtCondxImageUrl.Text);
|
||||
cqrini.WriteBool('prop','AsImage',rbCondxAsImage.Checked);
|
||||
@ -3125,6 +3129,8 @@ begin
|
||||
cmbHrColor.Selected := cqrini.ReadInteger('OnlineLog','HrColor',clPurple);
|
||||
chkCloseAfterUpload.Checked := cqrini.ReadBool('OnlineLog','CloseAfterUpload',False);
|
||||
chkIgnoreLoTW.Checked := cqrini.ReadBool('OnlineLog','IgnoreLoTWeQSL',False);
|
||||
chkIgnoreQSL.Checked := cqrini.ReadBool('OnlineLog','IgnoreQSL',False);
|
||||
chkIgnoreEdit.Checked := cqrini.ReadBool('OnlineLog','IgnoreEdit',False);
|
||||
chkHrUpEnabledChange(nil);
|
||||
|
||||
edtCondxImageUrl.Text := cqrini.ReadString('prop','Url','http://www.hamqsl.com/solarbrief.php');
|
||||
|
Loading…
Reference in New Issue
Block a user