Изображения в ячейках сетки строк Delphi

Question

В delphi я подключаюсь к SQL, а затем загружаю данные в dbgrid. один из моих столбцов называется сервисом. в этой колонке есть несколько разных типов, например, стирка и парковка. если ячейка в этом столбце равна стирке, я хочу, чтобы она отображала небольшое моечное изображение в этой ячейке. Я пытаюсь просмотреть столбец, но до сих пор мне не повезло. любая помощь будет оценена по достоинству. вот что у меня есть до сих пор:

for l:=1 to StringGrid2.RowCount-1 do 
    sum:=sum++StrToCurr(StringGrid2.Cells[3,l]); 
    TotalCostLB.Caption:=CurrToStr(sum); 
for i2 := 1 to StringGrid2.RowCount-1 do 
if StringGrid2.Cells[2,i2] = 'Wash' then 
    StringGrid2.Cells[1,1] := OpenPictureDialog1.ToString; 

    StringGrid2.Canvas := TOpenPictureDialog; 

Answer 1

Постарайтесь с рисованием холста ячейки DBGrid. imageSource - это растровое изображение, gif и т. Д., Как TBitmap.

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; 
    Field: TField; State: TGridDrawState); 
begin 
    if Field.FieldNo = 2 then 
    begin 
    DBGrid1.Canvas.FillRect(Rect); 
    DBGrid1.Canvas.Draw(Rect.left, Rect.Top, imageSource) 
end;