Ver Mensaje Individual
  #2  
Antiguo 21-07-2004
Avatar de ruina
ruina ruina is offline
Miembro
 
Registrado: jun 2004
Posts: 196
Reputación: 23
ruina Va por buen camino
Con el evento OnPaintPanel, y dibujas la imagen en el canvas.

Código Delphi [-]
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
var
  Bitmap : TBitMap;
begin
  Bitmap := TBitmap.Create;
  try
    with Bitmap do begin
      LoadFromFile(ClientDataSet1ruta.AsString);
      DBCtrlGrid1.Canvas.Draw(1,1,BitMap);
    end;
  finally
    Bitmap.Free;
  end;
end;

te recomiendo hacer un findfile antes o poner un try except en el LoadFromFile, por si no existe la imagen.
Responder Con Cita