"EhLib.Com"
https://forum.ehlib.com/ru/

Не работает ограничение ValidChars := ['А'..'Я', 'а'..'я']
https://forum.ehlib.com/ru/viewtopic.php?f=4&t=2888
Страница 1 из 1

Автор:  PavelF [ 29 ноя 2019, 10:13 ]
Заголовок сообщения:  Не работает ограничение ValidChars := ['А'..'Я', 'а'..'я']

Для ввода данных в верртикальном гриде я использую следующее ограничение на ввод данных

VertGrid.DataSource.DataSet.Fields[3].ValidChars := ['А'..'Я', 'а'..'я'];


Но дело в том, что данное поле использует выпадающий список PickList который имеет возможность при отсутствии значения добавлять в себя новое значение вызвав событие

Items[3].OnNotInList := DBVertGridEhRows0NotInList;


procedure TForm_Edit_V.DBVertGridEhRows0NotInList(Sender: TObject; NewText: string; var RecheckInList: Boolean);
begin
(Sender as TFieldRowEh).PickList.Add(AnsiUpperCase(NewText))
end;

Так вот суть проблемы, Вышеописанное ограничение при наличии PickList не работает.
Как это можно обойти
Спасибо

Автор:  PavelF [ 03 янв 2020, 05:25 ]
Заголовок сообщения:  Re: Не работает ограничение ValidChars := ['А'..'Я', 'а'..'я

Неужели ни кто с этим не сталкивался.
Может разработчик поможет?

Автор:  vlad_n [ 04 янв 2020, 10:18 ]
Заголовок сообщения:  Re: Не работает ограничение ValidChars := ['А'..'Я', 'а'..'я

В юникодовых версия Delphi 2009 и выше ValidChars := ['А'..'Я', 'а'..'я'] и не должно и не будет работать.

Автор:  PavelF [ 29 янв 2020, 06:37 ]
Заголовок сообщения:  Re: Не работает ограничение ValidChars := ['А'..'Я', 'а'..'я

Ограничение работает когда не использую выпадающий список PickList который имеет возможность при отсутствии значения добавлять в себя новое значение вызвав событие.
При выпадающем списке перестает вызываться событие.
Помогите!

Автор:  EhLibSupport [ 29 янв 2020, 14:40 ]
Заголовок сообщения:  Re: Не работает ограничение ValidChars := ['А'..'Я', 'а'..'я

Добрый день.

TField.ValidChars не работает с русскими буквами на Delphi XE-XE10.
По этой причине проверяли на примере

Код:
  MemTableEh1Continent.ValidChars := ['1','2','3','4','5'];


Колонка с настройками

Код:
      item
        CellButtons = <>
        DynProps = <>
        EditButtons = <>
        FieldName = 'Continent'
        Footers = <>
        PickList.Strings = (
          'North America'
          'South America')
        Width = 135
        OnNotInList = DBGridEh1Columns3NotInList
      end


учитывает ValidChars и не дает вводить другие символы.
Т.е. ошибка в EhLib 9.4 Build 9.4.022 не воспроизводится.

Страница 1 из 1 Часовой пояс: UTC
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/