imagenes en multiregistro

[ruina]

mira a ver este otro, usando StrechDraw:

Código Delphi [-]
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
var
  Bitmap : TBitMap;
  r:TRect;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      r:=Rect(1,1,50,50);
      try
          LoadFromFile(ClientDataSet1ruta.AsString);
          if (Height>r.Bottom-r.Top) or (Width>r.Right-r.Left) then
               DBCtrlGrid1.Canvas.StretchDraw(r,BitMap)
          else DBCtrlGrid1.Canvas.Draw(r.Left,r.Top,BitMap)
      except
           DBCtrlGrid1.Canvas.Brush.Color:=clWhite;
           DBCtrlGrid1.Canvas.FillRect(r);
           DBCtrlGrid1.Canvas.Pen.Color:=clred;
           DBCtrlGrid1.Canvas.PenPos:=r.TopLeft;
           DBCtrlGrid1.Canvas.LineTo(r.Bottom,r.Right);
           DBCtrlGrid1.Canvas.PenPos:=Point(r.Top,r.Right);
           DBCtrlGrid1.Canvas.LineTo(r.Bottom,r.left);
      end;
    end;
  finally
    Bitmap.Free;
  end;
end;