Уважаемые, помогите разобраться с такой проблемой. Как в RunTime сделать чтобы TcxGridDBColumn прилинкованый в таблице к полю типа TBooleanField вместо чекбокса отображались предопределённые значения.
Имеется некоторая таблица, в которой одно из полей TBooleanField. Хочу, чтобы вместо True/False в этом поле показывались некоторые предопределённые значения (Постоянный/Переменный, речь идёт о токе).
В обычном DBGrid'е проблем нет - достаточно заполнить свойство TBooleanField.DisplayValues :="Постоянный;Переменный"
Так же без проблем в DisignTime и для TcxGridDBTableView. Выбираю своё поле cxGrid1DBTableView1DBColumn2. Properties у этого поля выбираю ComboBox. DropDownStyle выставляю как lsFixedList, заполняю список Items -> Постоянный, Переменный. Запускаю - всё работает как надо:
[more] [/more]
Пытаюсь всё тоже самое проделать в RunTime:
Код: var
Prop: TcxCustomEditProperties;
Column: TcxGridDBColumn;
begin
Column := cxGrid1DBTableView1.GetColumnByFieldName('Тип источника');
if Assigned(Column) then
begin
Column.PropertiesClass := TcxComboBoxProperties;
Prop := Column.Properties;
with TcxComboBoxProperties(Prop) do
begin
DropDownListStyle := lsFixedList;
Items.CommaText := 'Постоянный,Переменный';
end;
end;
Имеется некоторая таблица, в которой одно из полей TBooleanField. Хочу, чтобы вместо True/False в этом поле показывались некоторые предопределённые значения (Постоянный/Переменный, речь идёт о токе).
В обычном DBGrid'е проблем нет - достаточно заполнить свойство TBooleanField.DisplayValues :="Постоянный;Переменный"
Так же без проблем в DisignTime и для TcxGridDBTableView. Выбираю своё поле cxGrid1DBTableView1DBColumn2. Properties у этого поля выбираю ComboBox. DropDownStyle выставляю как lsFixedList, заполняю список Items -> Постоянный, Переменный. Запускаю - всё работает как надо:
[more] [/more]
Пытаюсь всё тоже самое проделать в RunTime:
Код: var
Prop: TcxCustomEditProperties;
Column: TcxGridDBColumn;
begin
Column := cxGrid1DBTableView1.GetColumnByFieldName('Тип источника');
if Assigned(Column) then
begin
Column.PropertiesClass := TcxComboBoxProperties;
Prop := Column.Properties;
with TcxComboBoxProperties(Prop) do
begin
DropDownListStyle := lsFixedList;
Items.CommaText := 'Постоянный,Переменный';
end;
end;