Hola a todos.
Como eterno novato me ha surgido un problema que no encuero como solucionar.
Tengo un DBGrid el cual cargo con una tabla de Access a través de ADO.
Para hacer mas fácil la interpretación de los datos pinto las lineas una si otra no en gris, y la celda seleccionada la pinto en azul.
todo esto lo hago a través de DrawColumnCell del DBGrid.
usando el codigo.
Código Delphi
[-]
rocedure TfrmWebpost.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
grid : TDBGrid;
row : integer;
begin
if length(Column.Field.AsString) > Column.Field.Tag then
begin
Column.Field.Tag := length(Column.Field.AsString);
Column.Field.DisplayWidth := Column.Field.Tag + 1;
end;
grid := sender as TDBGrid;
row := grid.DataSource.DataSet.RecNo;
if Odd(row) then
grid.Canvas.Brush.Color := clSilver
else
grid.Canvas.Brush.Color := clwhite;
grid.DefaultDrawColumnCell(Rect, DataCol, Column, State) ;
if (gdSelected in State) then
begin
Grid.Canvas.Brush.Color := clAqua;
Grid.SelectedRows.CurrentRowSelected := true;
end;
Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
El problema surge que no siempre al iniciar el select lo posiciona en la primera celda. sino que lo coloca en la primera columna pero en una fila intermedia. cuando pulso en alguna celda no me lo indica correctamente, lo que hace es moverse dentro de la fina en que se encuentra.
Pero lo mas curioso es que cuando selecciono una celda que se encuentra por debajo de donde esta la marca de selección. ya empieza realizar todo correctamente.
Alguna idea o sugerencia???????
Un saludo y gracias de antemano.