Проблема с DBGrid

[Sanprof]

Собственно возник такой вопрос, есть DBGrid в нем создал свою колонку, теперь мне надо в этой колонке отрисовать '+' или '-' в зависимости от того, что находится в DataSet 'True' или 'False'. Тоесть в DataSet есть field 'active' - boolean, при перерисовке должно проверятся это значение и записывать соответственно '+' или '-'. Проверка у меня работает, а вот как ячейке присвоить +-, не получается.

[mihali4]

Используйте вычисляемое поле...

[Sanprof]

Сообщение от mihali4

Используйте вычисляемое поле...

а как это сделать?

[mihali4]

Выберите ваш DataSet на форме.
Сделайте даблклик по нему - откроется редактор полей.
Создайте новое поле active1 и укажите, что оно д.быть Calculated.
Для DataSet пропишите обработчик события OnCalcFields:

if DataSet.FieldByName('active').Value then
DataSet.FieldByName('active1').AsString:='+' else
DataSet.FieldByName('active1').AsString:='-';

Вот это поле active1 и сделайте отображаемым в DBGrid...

[Sanprof]

а если я датасет создаю динамически, тогда как?

[mihali4]

То же самое, но программно.
Раз вы создаете датасет динамически, то и поля в нем создавать умеете.

[evg_m]

а если я датасет создаю динамически, тогда как?

тогда создавать (или подключать/добавлять) данное поле динамически.
Все что можно сделать в Object Inspector можно повторить и в программе.

[new player]

Для отрисовки +/- воспользуйтесь свойством DrawColumnCell.

[Stilet]

если что можно динамически поля создавать

type
  TForm1 = class(TForm)
...
  private  NewField:TStringField;
    { Private declarations }
  public
    { Public declarations }
  end;

begin
 Table1.Close;
 NewField:=TStringField.Create(Table1);
 with NewField do begin
      FieldKind := fkCalculated;
      FieldName := 'Calc';
      Calculated := True;
      DataSet:=DataSource1.DataSet;
    end;
 Table1.Fields.Add(NewField);
  Table1.Open;
end;

Ну и сам обработчик

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
 if DataSet.FieldByName('size').AsInteger>0 then NewField.Value:='+';
end;

[Sanprof]

наводку получил, сделал, пока работает!