Duda con un DBGrid

[santi33a]

Saludos a todos:
Tengo un DBGrid con la propiedad de Options dgMultiSelect en true, esto me permite seleccionar varias lineas con Ctrl y el Mause, ahora quiesiera poner un botón donde alternativamente pudiera marcar o desmarcar todas las lineas del DBGrid.
¿ Alguien sabe como hacer esto por código ?

[jhonny]

Bueno, mira si te sirve la siguiente función:

procedure SeleccionarTodo(DBGrid :TDBGrid);
var
Marca :TBookmark;
begin
with DBGrid, DBGrid.DataSource.DataSet do
begin
Marca := GetBookmark;
try
First;
while not Eof do
begin
SelectedRows.CurrentRowSelected := True;
Next;
end;
GotoBookmark(Marca);
finally
FreeBookmark(Marca);
end;
end;
end;

Espero que te sirva :).

[santi33a]

ok, voy a probar, pero lo que veo tiene sentido por lo que pienso que funcione, de todas maneras te comento cuando lo pruebe y muchas gracias por responder tan rápido