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;