DBGridEh - поле с картинками. (как задать правильное значение)

[Jenya]

Доброго времени суток, уважаемые господа Программисты!

Есть у меня таблица, и соответственно DBGridEh. В нём есть возможность отображения картинок. Подставляю в свойство ImageList, поля State нужный TImageList. В нём всего 2 картинки с индексами 0 и 1. Само поле State сделал вычисляемым. И написал такой вот обработчик события:

procedure TMainForm.MainGridColumns8GetCellParams(Sender: TObject;
  EditMode: Boolean; Params: TColCellParamsEh);
begin
Try
  EditMode := True;
  MainDM.Clients.Edit;
  If MainDM.Clients.FieldByName('Client_ID_New').AsInteger <> 0 then
    MainDM.Clients.FieldByName('State').AsInteger := 0
  else
    MainDM.Clients.FieldByName('State').AsInteger := 1;
  MainDM.Clients.Post;
Except
  MainDM.Clients.Edit;
  MainDM.Clients.FieldByName('State').AsInteger := 1;
  MainDM.Clients.Post;
end;
  EditMode := False;
end;

По сути работает, и даже правильно, НО! Постояно происходит переход из режима редактирования в применение и наоборот, в связи с чем постоянно мерцает экран и т.д.

Когда пробую присвоить к вычисляемому полю значение без Edit(), Post() происходит соответствующая ошибка, мол "таблица не может редактироваться, если не находится в режиме редактирования".

Помогите найти правильное решение, надо-то мало. Просто в той строке, где поле "Client_Id_new" равно null или 0, должна отображаться картинка с индексом 0, если поле заполнено соответствующим индексом, то должна отобразиться картинка с индексом 1. Пожалуйста, если не трудно, опишите процесс поподробнее, ибо с подобными задачами раньше не сталкивался.
Зарание спасибо!

[Jenya]

Есть у меня информация такого содержания:

Картинка в поле DBGrid
Чтобы показать вместо значения поля картинку, зависящую от значения поля, необходимо сделать следующее: Column[i].ImageList – ImageList с картинками, Column[i].KeyList свойство типа Strings - каждая строка – значение поля, вместо которого будет подставляться картинка из ImageList с соотвествующим индексом; свойствоColumn[i].NotInKeyListIndex должно содержать индекс картинки сопоставляемый значениям поля, которых нет в KeyList (например, это удобно для значения NULL). Список из свойства PickList используется для сопоставления картинкам всплывающих подсказок (для этого необходимо также выставить в TRUE свойства Column.Tooltips и DBGridEh.ShowHint).

  With column[xxx] do begin
    ImageList := Self.ImageList;
    //табличка преобразований значения поля в картинку
    KeyList.Add('Петров');
    KeyList.Add('Иванов');
    KeyList.Add('Семенов');
    NotInKeyListIndex := 3; //для других значений поля
    DblClickNextval := TRUE; //циклическая смена значения в поле по двойному клику мышки
    //хинты к картинкам
    PickList.Add('Это фото Петрова');
    PickList.Add('Это фото Иванова');
    PickList.Add('Это фото Семенова');
    Tooltips := TRUE;
  End;

Но чесно говоря, не могу полноценно полнять её смысл, и применить к своей задачи

[mihali4]

Почитайте о вычисляемых полях, в особенности - где рекомендуется делать собственно вычисление (непонятно, зачем делать эдит/пост, если поле у вас действительно вычисляемое???).
Соответственно, ваш код избавится, наконец, от циклических вызовов самого себя и. как следствие - исчезнет мерцание...
(Вы уж, бога ради, хотя бы в события перерисовки не вводите эдит/пост)

[Serge_Bliznykov]

mihali4 +1 Полностью согласен!!
в принципе, уже можно было бы и промолчать, но хочу кое-что разжевать и кое-что добавить...
1) для вычисляемых полей - в датасете есть событие OnCalcFields
в него пишете код без всяких пост/едит!

procedure TFORM1.ClientsCalcFields(DataSet: TDataSet);
begin
  If DataSet.FieldByName('Client_ID_New').AsInteger <> 0 then
    DataSet.FieldByName('State').AsInteger := 0
  else
    DataSet.FieldByName('State').AsInteger := 1;

всё. имхо даже try...except не нужен!

2) вычисляемые поля подобного рода иногда очень удобно сделать невычисляемыми - точнее получать их прямо в SQL запросе. Например, можно добавить в SELECT:
select
<тут ваши поля>,
case Client_ID_New when 0 then 1
else 0 end as Calc_STATE
FROM ....
поле CALC_STATE и будет Ваше STATE (в запросе я другое имя дал просто для примера - может быть и STATE)

[Jenya]

Читая Ваши посты, в очередной раз убедился что я пытался сделать глупость=) Сам над собой посмеялся.

2 Serge_Bliznykov: Большое Вам спасибо за объяснение, все действительно очень просто. В следующий раз попытаюсь в два раза больше подумать и в два раза больше книг прочесть, прежде чем постить на форуме