9 replies to this topic

[dooper]

Bueno como sigo luchando y practicando con las bb.dd y el DBGrid, aunque he visto más relacionadas con este tema, como un combobox para BB.DD que no se la diferencia con el combobox "normal", estoy intentando insertar un icono (o imagen) en una columna de mi pequeño DBGrid.
 
Dispongo de 2 campos (Nombre y Edad) pero comparo la Edad si > 18 si es así inserto un icono sino el otro distinto. Pero al hacer este codigo en inserta el icono determinado en las dos columnas.
 
Este mismo codigo está aplicado a un stringGrid y sí funciona correctamente.
 
De igual modo como sería posible insertar en una columna llamada "Estado" el icono determinado sin tener valor esta columna solo el icono en cuestión? Ya que la bb.dd tendrá ese campo Estado como string,integer etc... y si pretendemos
insertar solamente un gráfico.
 

delphi

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  filastotales:integer;
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;

[escafandra]

Revisa este tema.

 

Saludos.

[dooper]

Gracias escafandra, me da la sensación que no se puede aplicar la misma implementación de codigo que tengo para mi StringGrid que sí funciona así, con el DBGrid. Por ello quería saber si falta codigo o por el contrario está mal aplicado los métodos del mismo.

 

Como digo si me imprime los iconos pero en ambas columnas (todas las celdas).

 

Como puedo completar mi codigo para que funcione, antes de usar el que escafandra mi indica.

 

Un saludo

[Delphius]

Hola Dooper.

¡Casi lo tienes! fíjate que tu estás comparando con el Field de tu dataset (la tabla) pero no estás discriminando sobre cuál columna realmente pintar. Tu código pinta todas las columnas precisamente porque no le indica sobre cual pintar de una forma u otra.

 

Además de verificar el Field, evalúa si el Column a pintar corresponde al campo Edad.

Necesitas evaluar primero si el Column es el de la Edad. Si es, luego debes evaluar la mayoría de edad. Dependiendo de si es o no mayor pintas uno u otra cosa. Por el contrario si el campo no es el de edad en la primera evaluación directamente pintas el registro con el método de pintado por defecto llamando al método DefaultDrawnColumnCell.

 

Saludos,

[dooper]

Pues he cambiado algo de codigo pero no me parece que sea tan facil comparando el codigo que aparece en el link de escafamdra.
 
 

delphi

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  // compruebo si es la columna=edad para 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 este procedimiento.
end;

 
Pero no hace nada, como ves no uso las varialbes BitMapTBitmap, ni  metodo GetBitMap ni nada de eso. No se si deberé usar estas
variables y métodos o mediante el codigo que voy implementando no sacaré nada.
 
Un saludo

[enecumene]

Intentelo así:

 

delphi

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  fixRect:TRect;
  bitmap : TBitmap;
  imgIndex, bmpwidth: Integer;
begin
    fixRect := Rect;
    if column.Field = Tabla.FieldByname('Edad') then  // compruebo si es la columna=edad para pintar.
    begin
      if  Tabla.FieldByname('Edad').AsInteger > 18 then
        imgIndex := 0
      else
        imgIndex := 1;
 
        bitmap := TBitmap.Create;
        try
          ImageList1.GetBitmap(imgIndex,bitmap);
          bmpWidth := (Rect.Bottom - Rect.Top);
          fixRect.Right := Rect.Left + bmpWidth;
          DBGrid1.Canvas.StretchDraw(fixRect,bitmap);
        finally
          bitmap.Free;
        end;
    
        fixRect := Rect;
        fixRect.Left := fixRect.Left + bmpWidth;
    end;
 
  DBGrid1.DefaultDrawColumnCell(fixRect,DataCol,Column,State); // ni idea que hace este procedimiento.
end;

[dooper]

Ahora si funciona enecumene, pero la pregunta que me hago es porque no funciona con el codigo identico que tengo para

un Stringrid?. En el StrinGrid no uso para nada el metoo StretchDraw, imagelist.getbitmap, ni bitmap, defaultDrawColumnCell.

 

Quería unificar codigo para que fueran o variara muy poco con respecto a un strinGrid con un DBGrid1. Pero veo que no puede ser.

 

Tú tambien tenías un problema aparentemente igual en otro post que escafandra me ha indicado para dar solución a este problema, pero

claro seguía intentando buscar una solución con mi codigo.

 

Gracias

 

Un saludo

[dooper]

Volviendo al tema, acabo de darme cuenta que si el icono lo inserto en la 1º columna, no queda bien, me ocurre igual que a enecumene en su ejemplo. Te inserta dos veces el nombre junto con el icono, quedando todo sobrepuesto encima todo en la celda.

 

....

....

....

 

end;
    
        fixRect := Rect;
        fixRect.Left := fixRect.Left + 20 + bmpWidth; -> aumentando el valor aquí a 20, consigo mover un poco el nombre a la derecha de la celda

 

pero el icono y el nombre repetido aparece a la izquierda de la celda. Vamos que se repite el campo nombre dos veces junto con el icono.

 

Un saludo

[dooper]

Alguien me puede indicar como solucionar el tema de sobreescritura de contenido, ya que me ocurre igual que el problema de enecumene.

 

Un saludo

[dooper]

Los iconos al isertarse en el Dbgrid se visualizan mal. Aparecen un poco más grande del tamaño 16x16 .ico y como aserrado en su contorno. Alguien puede saber a que se debe eso? Aplicado el codigo dado por enecumene.

 

Se me resiste el componente DbGrid al customizarlo un poco solamente...

 

Un saludo