اداخال ايقونتين في dbgrid حسب شرطين true or false

[bouh25]

PHP كود :

procedure TFEmpr.sDBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);



begin
  if Column.Field=datam.Temprunterempr then
 begin
   sDBGrid3.Canvas.FillRect(Rect);
   ImageList1.Draw(sDBGrid3.Canvas,Rect.Left+2,Rect.Top+2,0);
   if datam.Temprunterempr.AsBoolean then
     ImageList1.Draw(sDBGrid3.Canvas,Rect.Left+2,Rect.Top+2,2)
   else
     ImageList1.Draw(sDBGrid3.Canvas,Rect.Left+2,Rect.Top+2,1);
 end;
end;