24 respuestas en este tema

[dooper]

Sabe alguien porque al insertar un icono en dbgrid, este me aparece algo más agrandado y pixelado por su contorno que el original 16x16 .ico.

 

A ver si puedo poner un grafico del caso concreto, pero no se si es normal en estos casos, o es que hay posiblidad de modificarlo por medio de las propiedades del objeto.

 

Un saludo

[dooper]

Adjunto el un pantallazo del DBGrid para que veais el resultado totalmente desastroso. incluyo el icono original 16x16 .ico

Decir que en otros DBGrid que he visto estos iconos no se visualizaban mal. En este caso aparece más dimensionado que el original y dentado en su contorno.

 

Igualmente, vereis que marcando la opción de la fila se borra el contenido de la misma cuando pulso sobre ella. Nikolas me indico como activarla con la propiedad correspondiente, pues si elimino el icono, si hace su función la propiedad de activar la fila en azul, sino aparece eso que veis.

 

Algo decepcionado con la posibilidad de incluir iconos en los grillas, y su selección activa.

 

No se se habrá alguna solución,

Archivos adjuntos

•  fotogrid12.JPG   25,26KB   3 descargas

[escafandra]

¿No estarás usando Strech?

Saludos.

[dooper]

Pues si te refires al procedimiento que creo que si Escafamdra, sí.

 

rocedure 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;

 

Por eso puede ser? como puedo solventar el problema.

 

Un saludo.

[escafandra]

StretchDraw ajusta la imagen al espacio disponible, agrandando o reduciendola. Los resultados no siempre son buenos.

Utiliza 

delphi

procedure Draw(X: Integer; Y: Integer; Graphic: TGraphic); overload;

Con una imagen del tamaño apropiado.

 

 

Saludos.

[dooper]

Gracias escafrandra, pero no consigo adecuar el codigo para que funcione correctamente al procedimiento de arriba indicado.

He cambiado StretchDraw por Draw

 

DBGrid1.Canvas.Draw(fixRect.Right, Bmpwidth,bitmap);

 

y he eliminado el

 

DBGrid1.DefaultDrawColumnCell(fixRect,DataCol,Column,State) y ahora si aparece a su tamaño original, estabas en lo correcto amigo!

 

pero se visualiza solo el icono de la fila1, los demás no salen. Aparte sigo con el dichoso error de no visualizar el contenido de las celdas cuando está activa la fila.

 

[dooper]

Resuelto el problema del icono. me faltaba configurar el Draw con los parámetros correctos.

 

Sigo con el problema de fila seleccionada me oculta elcontenido del nombre y edad apareciendo solamente el icono, paso a la segunda fila seleccionada y aparecer el contenido del nombre y edad en la primera fila. Ni idea de porque.

 

Tambien tenía el mismo error enecumene que en la primera columna de la tabla si inserta un icono, el texto aparece alineado a la izquierda de la celda y el icono se sobrepone encima. He buscado alternativas para mover el texto y pinte el icono pirmeramente y el texto a continuación e imposible.

 

A ver si alguien puede dar alguna solución a estos escollos...

 

Gracias

[escafandra]

DBGrid1.DefaultDrawColumnCell(fixRect,DataCol,Column,State); // ni idea que hace este procedimiento.

Esa es la línea que llama al procedimiento "original" del DBGrid para pintar el la celda, pinta el texto. Si la eliminas, deja de aparecer el texto, con lo que tienes que pintarlo a mano con TextOut, Ten en cuenta que el texto has de desplazarlo a la derecha para que el icono y texto no se pisen.

 

Otra forma es no eliminarla, pero corregir el primer parámetro que recibe que es un TRect. Ese TRect debes ajustarlo desplazándolo a la derecha para que no se pisen texto e imagen:

delphi

fixRect.Right := Rect.Left + bmpWidth;

bmpWidth debe ser como mínimo el ancho de la imagen de tu icono.

 

 

Saludos.

[dooper]

Eso hago escafandra, pero el codigo queda así, y no hay manera de que aparece primeramente el icono y luego el texto.
 
Además mira como la fila seleccionada no tiene valores, solo aparece el icono, cuando salgo de la fila seleccionada vuelven
aparecer. Mi intención es que funcione como debe funcionar un DBgrid con la fila seleccionada totalmente activa en color azul
y con los datos visibles, cosa que de momento es imposible de resolucionar por mi parte.
 
 

delphi

 fixRect := Rect;
 
   if column.Field = Tabla.FieldByname('Nombre') then  // Columna de DBGrid donde pintar en este caso es "Nombre".
    begin
      bitmap := TBitmap.Create;
      if  Tabla.FieldByname('Nombre').AsString = 'juan' then
        imgIndex := 0
      else
        imgIndex := 1;
 
      bitmap := TBitmap.Create;
      try
           ImageList1.GetBitmap(imgIndex,bitmap);
 
           bmpWidth := (Rect.Bottom - Rect.Top);
           fixRect.Right := Rect.left + bmpWidth;
           fixRect.Left := fixRect.Left + bmpWidth;
           DBGrid1.Canvas.Draw(fixRect.Left,fixRect.Top+2, bitmap);
      finally
           bitmap.Free;
      end;
 
    end;
    DBGrid1.DefaultDrawColumnCell(fixRect,DataCol,Column,State);

Archivos adjuntos

•  fotoprevia2.JPG   22,51KB   2 descargas

[escafandra]

En primer lugar, recordarte las etiquetas de código para que tu mensaje se vea mejor, edito tu mensaje para que lo veas.
 
En segundo lugar, no pusiste todo el código, con lo que debe haber cosas que no muestras.
 
En tercer lugar, usar mal fixRect, lo ajustas para el dibujo desplazándolo a la derecha, cuando eso lo debes hacer para el texto. No modifiques fixRect.Right pues se sale del Rect de la celda.
 
Prueba de esta manera:
 

delphi

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
var
  fixRect:  TRect;
  bitmap:   TBitmap;
  imgIndex: Integer;
begin
  fixRect:= Rect;
  if column.Field = Tabla.FieldByname('Edad') then  // compruebo si es la columna=edad para pintar.
  begin
    if Tabla.FieldByname('Nombre').AsString = 'juan' then
      imgIndex:= 0
    else
      imgIndex:= 1;
    bitmap:= TBitmap.Create;
 
    try
      ImageList1.GetBitmap(imgIndex,bitmap);
      DBGrid1.Canvas.Draw(Rect.Left, Rect.Top+2, bitmap);
    finally
      bitmap.Free;
    end;
    fixRect.left:= Rect.left + Bitmap.Width + 2;  //hago sitio para el texto desplazando Left a la derecha el ancho del bitmap
  end;
 
  DBGrid1.DefaultDrawColumnCell(fixRect, DataCol, Column, State);
end;

Saludos.

[escafandra]

Aprovecho para decirte que si tu aplicación corre en entorno windows, puedes revisar este tema para hacer un Stretch de mayor calidad: Redimensionar una imagen con GDI+ flat API. También puedes estudiar el tema del altializasing,

 

Saludos.

[dooper]

La etiqueta de codigo creo que ya se a que te refieres (etiquetar el  codigo fuente "<>" verdad?) Perdón, no lo sabía, tal cual copiaba, pegaba. Otra cosa nueva!

 

El codigo fuente que he puesto es el que tengo, más arriba simplemente pongo las filas alternas en colores distintos, nada que ver con el codigo de insercción del icono. Si se necesita lo inserto, pero un experto como tú intuyes el codigo que habré puesto, ya que no quiería insertar mas lineas y agrandar el post.

 

En cuanto al resultado, pues seguimos igual, el icono aparece totalmente a la izquierda de la celda, pero encima del texto (ya que el texto en ningun momento se ha movido hacia la derecha para dejar hueco al icono) y además continuo con fila borrada mientras está activa. Un dilema totalmente en mi caso.

 

Tomo nota de tus consejos sobre el tema de Strech de mayor calidad y tambien de altializasing, se agradece tu apoyo y ayuda como así he reconocido a los demás compañeros de este foro. Miraré de que va, pero es normal que si se me atasca lo más fácil, lo que no lo sea tanto puede ser una odisea, pero como así me aconsejaron el tema de Tframes anotado queda para ir avanzando y aprendiendo.

 

Un saludo

[escafandra]

En cuanto al resultado, pues seguimos igual, el icono aparece totalmente a la izquierda de la celda, pero encima del texto (ya que el texto en ningun momento se ha movido hacia la derecha para dejar hueco al icono) y además continuo con fila borrada mientras está activa. Un dilema totalmente en mi caso.

¿Has usado el código tal cual te lo puse?
Trata de sustituir la línea DefaultDrawColumnCell por:

delphi

DBGrid1.Canvas.TextOut(Rect.Left + Bitmap.Width + 2, Rect.Bottom, 'TEXTO');

A ver que te sale.

 

 

Saludos.

[dooper]

Pues me salta un error del copón:

php

Error: El proyecto zeos ha lanzado una excepción de la clase 'External: SIGSEGV'.  en dirección FFFF

Ufff, pues no se, si este error es titularidad mia, o esto quiere acabar con mi paciencia, pero no queda otra que no poner ningun icono en la primera columna, pero aun así, porque se borra el contenido de la fila seleccionada apareciendo solamente el icono? veo que el mal de todos los males es el dicho icono en el Grid...

 

Esto mina la moral a un simple iniciado en la materia...

 

Un saludo

[dooper]

La variable Bitmap.Width me salta por los aire la compilación.

 

En cuanto al problema de la fila seleccionada no aparece en azul aún indicándole rowselect activado. He conseguido ver que es por el codigo de alternar las filas de color que pico encima de insertar el icono.

 

Si elimino el codigo entero, ya si selecciona la fila en azul activa. Pero claro no es mi intención.

php

fixRect := Rect;
     if Odd(tabla.RecNo) then  // método Odd que retorna true si un numero es impar y false si el numero es par.
        DBGrid1.Canvas.Brush.Color:=clcream //$00E1FFF9
    else
             DBGrid1.Canvas.Brush.Color := clwhite; //$00FFEBDF;
 
        DBGrid1.Canvas.Font.color:=clblack;
        DBGrid1.Canvas.FillRect(Rect);
        DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

[escafandra]

La variable Bitmap.Width me salta por los aire la compilación.

Tienes toda la razón, lo escribí al vuelo y no me fijé en que bitmap estaba destruido. Prueba así (al vuelo también):

delphi

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; 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('Nombre').AsString = 'juan' then
      imgIndex:= 0
    else
      imgIndex:= 1;
    bitmap:= TBitmap.Create;
 
    try
      ImageList1.GetBitmap(imgIndex,bitmap);
      DBGrid1.Canvas.Draw(Rect.Left, Rect.Top+2, bitmap);
    finally
      bmpwidth:= Bitmap.Width;
      bitmap.Free;
    end;
    fixRect.left:= Rect.left + bmpwidth + 2;  //hago sitio para el texto desplazando Left a la derecha el ancho del bitmap
  end;
 
  DBGrid1.DefaultDrawColumnCell(fixRect, DataCol, Column, State);
end;

También puedes cambiar la línea DefaultDrawColumnCell por: 

delphi

DBGrid1.Canvas.TextOut(Rect.Left + bmpwidth + 2, Rect.top, 'TEXTO');

La palabra TEXTO debe salir en todas las celdas dejando espacio al bitmap.


Saludos.

[dooper]

Me duplica el contenido del campo nombre y edad.

 

Aparecen dos veces el lacelda el valor del nombre y lo mismo de la edad.

Pero si se aprecia que ahora queda el icono y luego el texto.

 

En la lina aparece probado con edad, para ver si aparecía duplicado y lo mismo digo. El caso es que he tenido que pasarlo a string la edad porque daba error.

php

DBGrid1.Canvas.TextOut(Rect.Left + bmpwidth + 2, Rect.top, InttoStr(Tabla.FieldByname('Edad').AsInteger));

[escafandra]

Hice un ejemplo en Lazarus y vi el problema, Lazarus pinta si o si, a pesar de reescrivir el evento DrawColumnCell.
Si lo borramos previamente, desaparece el problema:
 

delphi

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  fixRect: TRect;
  bitmap: TBitmap;
  imgIndex, bmpwidth: Integer;
begin
  DBGrid1.Canvas.Rectangle(Rect);  //Borramos lo que pinta Lazarus
  fixRect:= Rect;
  if column.Field = Tabla.FieldByname('Edad') then  // compruebo si es la columna=edad para pintar.
  begin
    if Tabla.FieldByname('Nombre').AsString = 'Juan' then
      imgIndex:= 0
    else
      imgIndex:= 1;
    bitmap:= TBitmap.Create;
 
    try
      ImageList1.GetBitmap(imgIndex,bitmap);
      DBGrid1.Canvas.Draw(Rect.Left, Rect.Top+2, bitmap);
    finally
      bmpwidth:= Bitmap.Width;
      bitmap.Free;
    end;
    fixRect.left:= Rect.left + bmpwidth + 2;  //hago sitio para el texto desplazando Left a la derecha el ancho del bitmap
  end;
 
  DBGrid1.DefaultDrawColumnCell(fixRect, DataCol, Column, State);
end;

La imagen es un ejemplo pintando el icono en todos los campos:
 

 
 
 
Saludos.

Archivos adjuntos

•  Ejemplo.png   9,07KB   2 descargas

[dooper]

Eres un crack amigo! Voy a probarlo en cuanto pueda, porque se me bloquea el equipo cada 10 minutos y no me deja trabajar en paz.

 

Efectivamente me pintaba dos veces como indicas, no pensaba que fuera lazarus sino un problema más bien de programación.

 

En cuanto me deje trabajar el equipo si lo  consigo te pongo a probarlo en mi código, pero me temo que en breve volveré a bloquearme.

 

En cuanto a las filas alternas de distintos colores, ese era el problema de que gsrowwselect no me pinte la fila entera en azul activo,como en tu ejemplo. Veré si puede quitarlo del procedimiento y añadirlo en otro lugar, porque si lo hago quitar si se soluciona el problema.

 

Gracias escafamdra por tu aporte, a enecumene le ocurrió igual y creo que si aún le persiste el problema, podrá con tu ayuda solucionarlo igualmente.

 

Cualquier duda la pondré si la hay...

 

Un saludo

[escafandra]

En cuanto a las filas alternas de distintos colores, ese era el problema de que gsrowwselect no me pinte la fila entera en azul activo,como en tu ejemplo. Veré si puede quitarlo del procedimiento y añadirlo en otro lugar, porque si lo hago quitar si se soluciona el problema.

Esta es la solución:
 

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 not(gdSelected in State) then
  if Odd(tabla.RecNo) then
    DBGrid1.Canvas.Brush.Color:=clcream //$00E1FFF9
  else
    DBGrid1.Canvas.Brush.Color := clwhite; //$00FFEBDF;
 
  DBGrid1.Canvas.Rectangle(Rect);
  if column.Field = Tabla.FieldByname('Edad') then  // compruebo si es la columna=edad para pintar.
  begin
    if Tabla.FieldByname('Nombre').AsString = 'Juan' then
      imgIndex:= 0
    else
      imgIndex:= 1;
    bitmap:= TBitmap.Create;
 
    try
      ImageList1.GetBitmap(imgIndex,bitmap);
      DBGrid1.Canvas.Draw(Rect.Left, Rect.Top+2, bitmap);
    finally
      bmpwidth:= Bitmap.Width;
      bitmap.Free;
    end;
    fixRect.left:= Rect.left + bmpwidth + 2;  //hago sitio para el texto desplazando Left a la derecha el ancho del bitmap
  end;
 
  DBGrid1.DefaultDrawColumnCell(fixRect, DataCol, Column, State);
end;

 
 
 
Saludos.