Added Ignore QSL and Ignore Edit (in preferences)

- user can select the effect of QSL and Edit just like LoTW adn eQSL has.

src/fMain.pas

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

src/fNewQSO.pas

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

src/fPreferences.lfm

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

src/fPreferences.pas

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