Здравствуйте.
Linux Mint Mate 19.1
Lazarus 1.8.4
EhLib 9.3. (2019-04-14)
Select из базы MS SQL Server 2017
Столбцы "Сумма" и "В счет" это поля типа money в базе.
в TSQLquery поля созданы вручную с типом Currensy
Код:
object SelectFBDpricesum: TCurrencyField
FieldKind = fkData
FieldName = 'pricesum'
Index = 6
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
MaxValue = 0
MinValue = 0
end
object SelectFBDprice2pay: TCurrencyField
FieldKind = fkData
FieldName = 'price2pay'
Index = 7
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
MaxValue = 0
MinValue = 0
end
....
object MemTableEhFBDpricesum: TCurrencyField
FieldKind = fkData
FieldName = 'pricesum'
Index = 6
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
MaxValue = 0
MinValue = 0
end
object MemTableEhFBDprice2pay: TCurrencyField
FieldKind = fkData
FieldName = 'price2pay'
Index = 7
LookupCache = False
ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False
Required = False
MaxValue = 0
MinValue = 0
end
В Гриде настройки такие
Код:
item
CellButtons = <>
DynProps = <>
EditButtons = <>
FieldName = 'pricesum'
Font.Height = -20
Font.Style = [fsBold]
Footer.Font.Height = -20
Footer.Font.Style = [fsBold]
Footer.ValueType = fvtSum
Footers = <>
Title.Alignment = taCenter
Title.Caption = 'Сумма'
Width = 100
end
item
CellButtons = <>
DisplayFormat = '#####0.00;'
DynProps = <>
EditButtons = <>
FieldName = 'price2pay'
Font.Height = -20
Font.Style = [fsBold]
Footer.DisplayFormat = '#####0.00;'
Footer.Font.Height = -20
Footer.Font.Style = [fsBold]
Footer.ValueType = fvtSum
Footers = <>
Title.Caption = 'В счет'
Width = 100
end
Разделитель тысяч отображается неправильно, как-то видимо связано с кодировкой UFT8