4 respuestas en este tema

[romfrost13]

Hola a todos.

Tengo un problema cuando intento dibujar el texto de una celda en el evento OnDrawColumnCell de un dbgrid, para esto estoy usando este codigo:

delphi

procedure TfrmrContactos.dbgrdListDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  // para dibujar la palabra medico o proveedor segun sea el caso en el dbgrid
  if Column.Index = 1 then
    begin
      if not Column.Field.IsNull then // esto es porque da error cuando el grid esta vacio
        begin
          case Column.Field.AsInteger  of
            1: TDBGrid(Sender).Canvas.TextOut(rect.Left+2, Rect.Top+2, 'Medico');
            2: TDBGrid(Sender).Canvas.TextOut(rect.Left+2, Rect.Top+2, 'Proveedor');
          end;
        end;
    end;
end;

Solo uso esos dos posibles valores:

delphi

1 para medico
2 para proveedor

El asunto es que con eso ademas de la palabra proveedor o medico mete tambien el valor del campo que trae de la base de datos, quedando:

delphi

Medico     1
Proveedor 2

Me gustaria que ese 1 o 2 no saliera pero no encuentro donde meterle algo para evitar que salga.

¿Alguno de ustedes tiene una idea de como hacerlo para que muestre lo que necesito?

[egostar]

Hola

Y porque mejor no utilizas un campo calculado y te quitas de problemas. Por ejemplo, yo haría algo como esto para que me mostrara un TITULO en lugar de un NUMERO

delphi

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  if Table1Prefijo.Value = '' then
    Table1Calculado.Value := 'LOCAL'
  else
  if Table1Prefijo.Value = '01' then
     Table1Calculado.Value := 'NACIONAL'
  else
  if Table1Prefijo.Value = '001' then
     Table1Calculado.Value := 'USA/CANADA'
  else
  if Table1Prefijo.Value = '00' then
     Table1Calculado.Value := 'MUNDIAL'
end;

Te adjunto una imagen con el resultado de este proceso.

En tu caso yo haría algo como esto..

delphi

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  case TablaCAMPO.AsInteger of
     1: TablaCampoCalculado.Value := 'MEDICO';
     2: TablaCampoCalculado.Value := 'PROVEEDOR';
     else TablaCampoCalculado.Value := 'OTRO';
  end;
end;

Espero te sirva.

Salud OS

Archivos adjuntos

•  1291_581d86009902da77b7e6bb6e335aa9b938e39283.jpg   55,97KB   7 descargas

[andres1569]

Hola,

Referente a la pregunta que planteas, ese 1 y ese 2 que te aparecen es lo que dibuja por defecto el DBGrid para dicho campo, cuando interceptas el evento OnDrawColumnCell debes encargarte de limpiarlo antes de escribir algo, mediante un FillRect, por ejemplo:

delphi

with TDBGrid(Sender).Canvas do
begin
  Brush.Color := TDBGrid(Sender).Color;
  FillRect(Rect);
  ... // aquí lo que ya tienes
end;

Respecto a la solución, lo que te indica egostar me parece lo más apropiado, además ese campo calculado lo puedes mostrar en otros controles, si te hiciera falta, sin tener que volver a repintar nada.

Un saludo

[romfrost13]

Gracias por las respuestas, no pude entrar antes...

Egostar mas o menos asi fue como resolvi el problema, pero yo me fui mas alla, como estoy usando firebird aproveche una caracteristica del motor

sql

SELECT
   con_id,
   con_nombre,
   CASE con_tipo
     WHEN 1 THEN 'Medicos'
     WHEN 2 THEN 'Proveedores'
   END
FROM contactos

tambien se me ocurrio con campos calculados pero nunca me a gustado la cantidad de veces que se dispara el evento para calcularlos

andres1569 tu respuesta funciona perfecto estaba tan abrumado ayer que nunca pense en la posibilidad de limpiar el canvas antes de pintar si se me hubiese ocurrido busco como hacerlo y quizas no posteo esto.

Gracias a ambos por las respuestas

Conclusion:
Los 3 metodos aqui expuestos solucionan el problema para mostrar texto personalizado en el Dbgrid pero solo el de andres1569 sirve para dibujarlo en el canvas y responde a la pregunta que inicia este hilo.

[egostar]

Hola romfrost13

Me alegra que hayas resuelto tu problema, vamos a asignar este hilo como [RESUELTO].

Salud OS

Edito: Me ganaste, ya lo asignaste como Hilo Resuelto