デルファイ文字列グリッドセルの画像

Question

デルファイでは、私は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はTBitmapのようなビットマップ、gifなどです。

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;