15 respuestas en este tema

[enecumene]

Pues eso tengo problemas para mostrar una imagen en un campo Blob en una celda del DBGrid, tengo el siguiente código:

delphi

procedure TFJugador.dbgTorneosDrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  Bmp: TPngImage;
begin
  if Field is TGraphicField then
  begin
    try
      Bmp := TPngImage.Create;
      Bmp.Assign(Field);
      dbgTorneos.Canvas.StretchDraw(Rect, Bmp);
    finally
      Bmp.Free;
    end
  end
  else
    dbgTorneos.DefaultDrawDataCell(Rect,Field,State);
end;

No me funciona, en la celda aún se muestra con el texto (GRAPHIC). hay alguna otra manera de hacerlo?.

Estoy trabajando con Delphi XE2 y Firebird 2.5.

Saludos.

[egostar]

Y porque no usas un TImage incrustado en el DBGrid, a ver si te sirve ésto

 

http://www.swissdelp...ode.php?id=2209

 

Saludos

[escafandra]

¿Tienes algún error de compilación?

 

En principio debería funcionar siempre que Field represente una imagen válida para ser asignada a tu TPngImage. Yo indagaría en esa parte del código.

 

 

Saludos.

[enecumene]

Pues no me da error alguno, revisaré más a fondo.

Saludos.

[enecumene]

Lamentablemente sólo lo pude resolver con el método de Zarko Gajic en su artículo Drawing an image in a cell of a Delphi DBGrid

 

Saludos.

[escafandra]

¿Has usado un TImageList para guardar todas las imágenes de tu base de datos?

 

 

Saludos.

[enecumene]

¿Has usado un TImageList para guardar todas las imágenes de tu base de datos?

 

 

Saludos.

 

jaja no amigo, solo tiene 7 imagenes, pero me hubiese gustado hacerlo sin el imagelist sino directamente de la BD.

[escafandra]

¿Si de la DB pasas las imágenes a un TImageList, por qué no a un TBitmap directamente?. Yo lo hice así cuando probé, solo que de imágenes desde archivos de disco...

 

 

Saludos.

[enecumene]

No las cargo desde la BD sino desde el disco al TimageList. sólo que el efecto no es lo que quería.

 

saludos.

[escafandra]

Entonces interpreté mal lo que buscabas, pero ¿qué efecto querías?

 

Saludos.

[enecumene]

Mira que mal efecto queda en al adjunto:
 

delphi

procedure TFJugador.dbgTorneosDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  bitmap : TBitmap;
  fixRect : TRect;
  bmpWidth : integer;
 
  imgIndex : integer;
begin
  fixRect := Rect;
 
  if Column.Field = dsJugadores.DataSet.FieldByName('NOMBRE') then
  begin
    case dsJugadores.DataSet.FieldByName('JUGA_PIC').AsInteger of
      0:  imgIndex := 0; //República Dominicana
      1:  imgIndex := 1; //España
      2:  imgIndex := 2;
      3:  imgIndex := 3;
      4:  imgIndex := 4;
      5:  imgIndex := 5;
      6:  imgIndex := 6;
      7:  imgIndex := 7;
    end;
 
    bitmap := TBitmap.Create;
    try
 
      Banderas.GetBitmap(imgIndex,bitmap);
      bmpWidth := (Rect.Bottom - Rect.Top);
      fixRect.Right := Rect.Left + bmpWidth;
      dbgTorneos.Canvas.StretchDraw(fixRect,bitmap);
    finally
      bitmap.Free;
    end;
 
    fixRect := Rect;
    fixRect.Left := fixRect.Left + bmpWidth;
  end;
 
  dbgTorneos.DefaultDrawColumnCell(
     fixRect,
     DataCol,
     Column,
     State);
end;

Archivos adjuntos

•  EFECTO.png   53,94KB   2 descargas

[escafandra]

Quizás tangas que escribir tu el texto desde dbgTorneosDrawColumnCell y no ejecutar DefaultDrawColumnCell


Saludos

[dooper]

Nada amigo delphius, no creo que sea tan facil, comparando mi codigo con el que estoy repasando en el link dado por escafandra

 

He añadido además,

 

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  filastotales:integer;
  fixRect:TRect;
begin
fixRect := Rect;
if (column.FieldName = 'Edad') then // Comparo que columna es la que quiero pintar.
begin
  if  (Tabla.FieldByname('Edad').AsInteger > 18) then
  begin
         ImageList1.Draw (TDBGrid(Sender).Canvas, Rect. Left+20, Rect. Top, 0);
  end
  else
         ImageList1.Draw (TDBGrid(Sender).Canvas, Rect. Left+20, Rect. Top, 1);
  end;

  DBGrid1.DefaultDrawColumnCell(fixRect,DataCol,Column,State); // ni idea que hace esta método.
end;

 

Además como se puede ver no uso Bitmap:TBitmap, ni algunas variables que usan en los procedimientos varios que aparecen en el link. No se si al final será factible el codigo que uso.

 

Un saludo

[enecumene]

Quizás tangas que escribir tu el texto desde dbgTorneosDrawColumnCell y no ejecutar DefaultDrawColumnCell


Saludos

Hice lo siguiente:
 

delphi

dbgTorneos.Canvas.TextOut(Rect.Left,Rect.Top + bmpWidth, Column.Field.AsString);

No ejecuté el DefaultDrawColumnCell y el efecto se fue, pero no logro mover el texto por la izquierda, queda detrás de la imagen.

Saludos.

Archivos adjuntos

•  texto.png   59,72KB   2 descargas

[tmsanchez]

En el proyecto tmsgtracking se muestran una imagen dependiendo del estatus de la tarea y el ícono queda a la izquierda y enseguida el texto, el código fuente está disponible para descarga, probablemente te ayude en lo que necesites.
 

http://tmsanchezdev....ienta-para.html

 

 

Saludos

[dooper]

En mi caso estoy en la misma situación que enecumene, he probado de todo y siempre queda el texto detrás del icono.

 

Este codigo tmsanchez está en delphi? se puede visionar el codigo para ver si funciona en Lazarus?

 

Un saludo