7 replies to this topic

[agag4]

Buen dia compañeros, es una pregunta tal vez tonta, pero ando viendo como pintar el fondo del registo en que estoy posicionado dentro de dbGrid, sin alterar el color de los otros registros, es decir quedarian en color blanco, esto es con el objetivo de resaltar el registro seleccionado, el siguiente código me pinta todas las líneas del dbgrid conforme me voy desplazando entre lo registros

delphi

procedure TfrybDocCaja.dbgridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  dbgrid.Canvas.Brush.Color := clAqua;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

[cadetill]

Buenas,

No tengo el Delphi a mano ahora, pero los DbGrids tienen una propiedad de opciones en la que puedes decirle que te marque todo el registro activo. No se si eso te valdrá

Nos leemos

[Rolphy Reyes]

Saludos.

Para que funcione el código debes de marcar a True la opción dgRowSelect dentro de la propiedad Options.

delphi

procedure TForm1.MyGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
  with MyGrid do
  begin
    if (gdSelected in state) then
    begin
      Canvas.Brush.Color := clYellow;
      Canvas.font.Color := clBlack;
    end;
    DefaultDrawColumnCell(Rect, Datacol, Column, State);
  end;
end;

Espero te sirva!

[agag4]

Si funciona, pero el problema es que ocupo ESCRIBIR en ciertas columnas y con la propiedad dgRowSelect en True no me deja editar ningun campo en el dbGrid, disculpa por no haberlo mencionado anteriormente.

[Rolphy Reyes]

Saludos.

El "truco" no funciona si necesitas escribir, entonces te recomiendo probar a alterar la propiedad Font simplemente; obviamente quitando la propiedad dgRowSelect.

[cadetill]

Buenas,

Lo que se me ocurre, en plan "chapucilla", es controlar el evento OnColEnter y, según la columna que sea, poner las opciones de una manera o de otra (formato editar cuando sea una columna editable y formato "fijo" cuando no).

Nos leemos

[escafandra]

Quizás esto te sirva:
Con la propiedad del DBGrid  DBGrid.DefaultDrawing:= false;

delphi

procedure TFmCtrlGrid.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with Sender as TDBGrid do
  begin
    if State = [gdSelected] then
    begin
      Canvas.Brush.Color:= clRed;
      Canvas.FillRect(Rect);
    end;
    DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;

Saludos.

[agag4]

Funciona de maravilla pero usando la propiedad dgRowSelect = True;