Group edit of Comment to QSO was always converted to uppercase

This commit is contained in:
Petr Hlozek 2016-10-26 21:56:00 +02:00
parent 7515dc97d2
commit 50ae2fd7c6
3 changed files with 4 additions and 3 deletions

View File

@ -6,6 +6,7 @@ Legend:
2.0.3
+ 'Fill Award field from previous QSO' option added
- "Remarks" renamed to "Comment to QSO" in group edit
- Group edit of Comment to QSO was always converted to uppercase
# 'QSO not found in the log!' doesn't stop QSO upload to HamQTH
2.0.2 (2016-08-28)

View File

@ -153,9 +153,9 @@ object frmGroupEdit: TfrmGroupEdit
end
object cmbField: TComboBox
Left = 62
Height = 31
Height = 27
Top = -1
Width = 144
Width = 242
ItemHeight = 0
Items.Strings = (
'QSO date'

View File

@ -347,7 +347,7 @@ begin
cmbValue.SetFocus;
exit
end;
sql := 'remarks='+QuotedStr(UpperCase(cmbValue.Text))
sql := 'remarks='+QuotedStr(cmbValue.Text)
end;
23 : begin
if (cmbValue.Text <> '') then