← Back to branch summary

~ubuntu-branches/debian/wheezy/cqrlog/wheezy

« back to all changes in this revision

Viewing changes to src/fGroupEdit.pas

  • Committer: Package Import Robot
  • Author(s): Petr Hlozek
  • Date: 2012-05-04 20:30:00 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20120504203000-o67tot9g1dn84p2b
Tags: 1.4.1-1
* keys in CW Fx window also send CW messages
* error after click to "Station list" button in WAS 
  statistic - fixed
* wrong US state was marked like AL in WAS statistic - fixed
* fixed TRX control
* after change TRX name in Preference, the description in TRX 
  window wasn't changed - fixed
* number of cfm DXCC in mode table was the same like in total 
  DXCC cfm - fixed 
* fixed problem with null comamnds in WKUSB communication

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/fGroupEdit.pas
70
70
           cmbValue.ItemIndex := 0;
71
71
           cmbValue.ReadOnly := True
72
72
         end;
73
 
    18 : begin
 
73
 18,28 : begin
74
74
           cmbValue.Items.Add('Y');
75
75
           cmbValue.Items.Add('N');
76
76
           cmbValue.ItemIndex := 0;
86
86
           dmData.InsertProfiles(cmbValue,False);
87
87
           cmbValue.ItemIndex := 0;
88
88
           cmbValue.ReadOnly  := True
 
89
         end;
 
90
    30 : begin
 
91
           cmbValue.Items.Add('E');
 
92
           cmbValue.Items.Add('N');
 
93
           cmbValue.ItemIndex := 0;
 
94
           cmbValue.ReadOnly  := True
89
95
         end
90
96
   end
91
97
end;
92
 
 
 
98
{eQSL sent        28
 
99
 eQSL sent date   29
 
100
 eQSL rcvd        30
 
101
 eQSL rcvd date   31
 
102
 }
93
103
procedure TfrmGroupEdit.FormShow(Sender: TObject);
94
104
begin
95
105
  dmUtils.LoadFontSettings(self)
384
394
          else
385
395
            sql := 'qslr_date='+QuotedStr(cmbValue.Text)
386
396
        end;
 
397
   28 : begin
 
398
          if cmbValue.Text = 'Y' then
 
399
            sql := 'eqsl_qsl_sent='+QuotedStr(cmbValue.Text)+',eqsl_qslsdate='+
 
400
                   QuotedStr(dmUtils.MyDateToStr(now))
 
401
          else
 
402
            sql := 'eqsl_qsl_sent=null,eqsl_qslsdate=null';
 
403
        end;
 
404
   29 : begin
 
405
          if (cmbValue.Text <> '') and (not dmUtils.IsDateOK(cmbValue.Text)) then
 
406
          begin
 
407
            Application.MessageBox('Please enter correct date!','Error ...', mb_OK+mb_IconError);
 
408
            cmbValue.SetFocus;
 
409
            exit
 
410
          end;
 
411
          if cmbValue.Text = '' then
 
412
            sql := 'eqsl_qsl_sent=null,eqsl_qslsdate=null'
 
413
          else
 
414
            sql := 'eqsl_qsl_sent='+QuotedStr('Y')+',eqsl_qslsdate='+
 
415
                   QuotedStr(cmbValue.Text)
 
416
        end;
 
417
   30 : begin
 
418
          if cmbValue.Text = 'E' then
 
419
            sql := 'eqsl_qsl_rcvd='+QuotedStr(cmbValue.Text)+',eqsl_qslrdate='+
 
420
                   QuotedStr(dmUtils.MyDateToStr(now))
 
421
          else
 
422
            sql := 'eqsl_qsl_rcvd=null,eqsl_qslrdate=null'
 
423
        end;
 
424
   31 : begin
 
425
          if (cmbValue.Text <> '') and (not dmUtils.IsDateOK(cmbValue.Text)) then
 
426
          begin
 
427
            Application.MessageBox('Please enter correct date!','Error ...', mb_OK+mb_IconError);
 
428
            cmbValue.SetFocus;
 
429
            exit
 
430
          end;
 
431
          if cmbValue.Text = '' then
 
432
            sql := 'eqsl_qsl_rcvd=null,eqsl_qslrdate=null'
 
433
          else
 
434
            sql := 'eqsl_qsl_rcvd='+QuotedStr('E')+',eqsl_qslrdate='+
 
435
                   QuotedStr(cmbValue.Text)
 
436
        end;
 
437
{eQSL sent        28
 
438
 eQSL sent date   29
 
439
 eQSL rcvd        30
 
440
 eQSL rcvd date   31
 
441
 }
387
442
  end;
388
443
  if sql = '' then exit;
389
444
  try