2 respuestas en este tema

[dooper]

Buenos días,

 

Como miembro desde hace años, después de un parón obligado, he vuelto a retocar pequeños proyecto aparcados que ahora ya puedo retomar. Espero y deseo que los miembros que dejé en su día por este foro, sigan por aquí y todo les vaya bien en estos tiempos. Todo lo que aprendí de ellos, nunca lo olvidaré, y espero seguir haciendolo a partir de ahora como lo hacía antes.

Tengo la vers. C.T 5.6 instalada, tal cual tuve que dejar. La he vuelto a instalar y mi problema radica con un simple DBGrid.

 

DBGrid con 4 columnas, en dos ellas tengo visualizado dos pequeño iconos con su código asociado, dentro del mismo procedure DBGrid1DrawColumnCell. Ahora he intento alternar el color de las filas, porque visualmente para mi es más facil ver la grilla, mediante este código.

delphi

row := DBgrid1.DataSource.DataSet.RecNo; // leo registros totales.
  if odd(row) then
  begin
       UnColor:=clskyBlue;
  end
  else begin UnColor:=clWhite; end;
 
  with (Sender As TDBGrid).Canvas do     
  begin
       brush.Color:=UnColor;
       font.color:=ClBlack;
       FillRect(Rect);
       TextOut(Rect.Left, Rect.Top, Column.Field.AsString);
       //DBgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State); -> Lo he quitado porque con esta opción se escribe varias veces la misma fila alineada y sin alinear
  end;

Así me marca el color de las filas, pero pierde la alineación, y como he comentado, el texto de las dos columnas con iconos, se solapan y el texto se superpone en los iconos (ya que los iconos están a la izquierda y el texto se superpone tambien a la izquierda) cuando antes de colorear las filas, estaba a la derecha. He intentado cambiar en las propiedad del DBgrid alignment = taRightJustifity, pero no responde ninguna columna siquiera.

He probado varios códigos, pero este es el único que me colorea.

 

Muchas gracias y un saludo.

[Gaston]

delphi

procedure TFFichaje.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
		DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if ((Column.Field.Dataset.FieldbyName('regpuntual').AsBoolean)=True) then
    dbgrid1.canvas.Font.color:=RGBToColor(20,94,37)
  else
    dbgrid1.canvas.Font.color:=RGBToColor(192,39,8);
  dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;
 
procedure TFFichaje.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
		Column: TColumn; AState: TGridDrawState);
begin
  if ([gdSelected, gdFocused] * AState <> []) then
  begin
    DBGrid1.Canvas.Brush.Color := RGBToColor(162,228,232);
  end;
end;

Hola doooper, hace mucho que tengo este código funcionando, te aclaro que no tengo iconos en la grilla, Por ahí te sirve, lo hice hará 3 años así que no recuerdo muy bien como lo hice, pero funcionar, funciona.

 

Saludos.
 

[dooper]

delphi

procedure TFFichaje.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
		DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if ((Column.Field.Dataset.FieldbyName('regpuntual').AsBoolean)=True) then
    dbgrid1.canvas.Font.color:=RGBToColor(20,94,37)
  else
    dbgrid1.canvas.Font.color:=RGBToColor(192,39,8);
  dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State);
end;
 
procedure TFFichaje.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
		Column: TColumn; AState: TGridDrawState);
begin
  if ([gdSelected, gdFocused] * AState <> []) then
  begin
    DBGrid1.Canvas.Brush.Color := RGBToColor(162,228,232);
  end;
end;

Hola doooper, hace mucho que tengo este código funcionando, te aclaro que no tengo iconos en la grilla, Por ahí te sirve, lo hice hará 3 años así que no recuerdo muy bien como lo hice, pero funcionar, funciona.

 

Saludos.
 

 

Gracias  Gaston, probaré. Se me olvidó indicar que uso ZEOS. Ese código que he puesto me funciona, pero como digo el texto donde están los iconos, se mueven de posición y se va y se superpone con el icono, pero con todo el texto de la fila. Veo que o bien alineación con iconos o bien color filas como opciones. Veré tu codigo pero creo que viene por ahí los tiros.

Lo que si he podido hacer es mover el icono hacia derecha. Pero claro el DBGrid está bloqueado para alinear el texto a gusto, automaticamente lo deja hacia la izquierda. No me convence.

 

Probado y no me vale, no lo hace correctamente si tengo iconos en la grilla. Si elimina los iconos, lo hace. El problema viene con el código asociado a lo iconos, no "compatibliza" con insertar tanto el mi codigo inicial como este. Ademas como los iconos tiene la sentencia bgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State), en mi codigo hay que eliminarlo sin sale marcada el contenido de la fila dos veces.