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:


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:


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;