DBGrill o CRDBGrill

[emeritos]

Hola a todos.

Me gustaria saber si hay alguna propiedad en los objetos DBGrill o CRDBGrill que cuando selecionemos y registro se vea con un color distinto todo la fila y ademas y sobre todo que se vea como mas grande (por supuesto solo el selecionado o posicionado)

Gracias

[loxod]

Si lo que quieres es que un DBGrid cambio el color del renglo seleccionado, esto te puede servir:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If (gdFocused in State)
    then dbgrid1.canvas.brush.color := clYellow;

dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;

[emeritos]

Muchas gracias, pero lo que pretendo es que la fila selecionada, ademas de ponerse toda en un color (elegido por mi), sobre salte sobre las demas poniendose mas grande, es decir en un tamaño de letra mas grande.

Gracias.

[loxod]

Pues en lo mismo, solo tienes que agregar un par de lineas mas:

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   If (gdFocused in State) then
     begin
        dbgrid1.canvas.brush.color := clYellow;
        dbgrid1.Canvas.Font.Size := 10;
        dbgrid1.Canvas.Font.Style := [fsBold]
     end;

    dbgrid1.DefaultDrawColumnCell(rect,DataCol,Column,State)
end;