DBGridEh u ImageList (работа с таблицей БД)

[manula]

Здравствуйте уважаемые товарищи, возник вопрос, пробовал найти решение данной проблемы, но мои попытки реализации не удались, может вы мне подскажите как это осуществить. На форме есть DBGridEh и ImageList, есть таблица в которой есть поле "status", нужно осуществить вот какую штуку, если статус "True" то ImageIndex:=1, иначе(статус="False") ImageIndex:=2.
Вот мой фрагмент как я это пытался реализовать:

with ADOQuery2 do begin
 Close;
 SQL.Clear;
 SQL.Add('Select * From tb_test WHERE status = True');
 Open;
// Или может сдесь надо сделать просто проверку на поле "статус"
// а в запросе выбрать все записи из таблицы
 for i:=0 to DataSource.DataSet.RecordCount-1 do begin
    // Вставляем картинку с индексом "1" иначе с индексом "0"
 end;
end;

[manula]

Пытался еще сделать вот так, возникла ошибка:

 
if (DBGridEh1.DataSource.DataSet.Fields[4].Value:=True) then
 begin
  DBGridEh1.Columns.Items[0].KeyList.Add('1');
 end
 else
  DBGridEh1.Columns.Items[0].KeyList.Add('0');
end;

Ошибка:

Type of expression must be BOOLEAN

[Аватар]

Смайл в гриде нужно отобразить в зависимости от значения поля Status?

[manula]

Да, совершенно верно.

[Аватар]

Один из вариантов

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumnEh; State: TGridDrawState);
var i: Integer;
    Bitmap: TBitmap;
begin
  if (SQL.RecordCount>0) and (Column.Title.Caption='С') then begin
    if SQL.FiledByName('Status').AsBoolean then i:=1 else i:=2;
    Bitmap:=TBitmap.Create;
    Bitmap.Transparent:=True;
    ImageList.GetBitmap(i,Bitmap);
    DrawCellBitmap(DBGridEh1,0,0,Bitmap,Rect);
    Bitmap.Free;
  end;
end;

В гриде должна быть колонка с Title.Caption='С' без Field-а
DrawCellBitmap если не ошибаюсь в юните VCLUtils

[manula]

Попробуем такой вариант, а вы не могли бы еще подсказать с использованием ImageList1, я попробовал таким образом, ну не совсем то получилось:

 
status:Boolean;
.....
 with ADOQuery2 do begin
 Close;
 SQL.Clear;
 SQL.Add('Select * From tb_test');
 Open;
  DBGridEh1.Columns.Items[0].ImageList := ImageList1;
  status:=DataSource1.DataSet.FieldByName('status').Value;
for i:=0 to DataSource1.DataSet.RecordCount-1 do begin
 if (status=True) then
  DBGridEh1.Columns.Items[0].KeyList.Add('1')
 else
  DBGridEh1.Columns.Items[0].KeyList.Add('0');
end;
end;

[Аватар]

ну не совсем то получилось

слабо сказано, он вообще непонятно что выполняет

[manula]

Сообщение от Аватар

слабо сказано, он вообще непонятно что выполняет

Ну да есть такое дело, ну у меня по крайней мере иконки отобразились,только криво конечно))

[manula]

Все таки пытался сделать с использованием ImageList, но не получается осуществить правильно проверку, выдает ошибку,вот код:

Var status: Boolean;
begin
DBGridEh1.Columns.Items[0].ImageList := ImageList1;
 with ADOQuery1 do begin
  Close;
  MemTableEh1.Active:= False;
  SQL.Clear;
  SQL.Add('Select * FROM tb_test');
  Open;

  while not Recordset.EOF do begin
   if (DataSource.DataSet.FieldByName('status').Value=True) then //туточки ошибка
    DBGridEh1.Columns.Items[0].KeyList.Add('1')
     else
    DBGridEh1.Columns.Items[0].KeyList.Add('0');
  end;
  MemTableEh1.Active:= True;
 end;
end;

Помогите люди добрые, как мне сравнить "Статус"!

[Aleksandr]

Вот мой код переделай под себя
где Im1: TBitmap;

 Im1 := TBitmap.Create;
  if Column.FieldName = 'Image' then
  with DBGrid1.Canvas do
    begin
      Brush.Color := clInfoBk;
      FillRect(Rect);
     if ADOTable1.FieldByName('massa').Value >18 then
       ImageList4.GetBitmap(0, Im1)
      else
        ImageList4.GetBitmap(1, Im1);
     Draw(round((Rect.Left + Rect.Right - Im1.Width) / 2), Rect.Top, Im1);
  Im1.Free;
end;