Components for Delphi and C++ Builder.

Перейти в английский форум
Перейти на EhLib.com
Текущее время: 28 мар 2024, 15:33

Часовой пояс: UTC




Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
СообщениеДобавлено: 29 ноя 2019, 10:13 
Не в сети

Зарегистрирован: 22 ноя 2015, 05:33
Сообщений: 14
Для ввода данных в верртикальном гриде я использую следующее ограничение на ввод данных

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 не работает.
Как это можно обойти
Спасибо


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: 03 янв 2020, 05:25 
Не в сети

Зарегистрирован: 22 ноя 2015, 05:33
Сообщений: 14
Неужели ни кто с этим не сталкивался.
Может разработчик поможет?


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: 04 янв 2020, 10:18 
Не в сети

Зарегистрирован: 06 фев 2013, 10:02
Сообщений: 453
В юникодовых версия Delphi 2009 и выше ValidChars := ['А'..'Я', 'а'..'я'] и не должно и не будет работать.


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: 29 янв 2020, 06:37 
Не в сети

Зарегистрирован: 22 ноя 2015, 05:33
Сообщений: 14
Ограничение работает когда не использую выпадающий список PickList который имеет возможность при отсутствии значения добавлять в себя новое значение вызвав событие.
При выпадающем списке перестает вызываться событие.
Помогите!


Вернуться наверх
 Профиль  
 
СообщениеДобавлено: 29 янв 2020, 14:40 
Не в сети

Зарегистрирован: 21 дек 2011, 18:48
Сообщений: 1546
Добрый день.

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 не воспроизводится.

_________________
Best regards
EhLib support Team


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 5 ] 

Часовой пояс: UTC


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB