"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/ |