DBgrid y PopupMenu

[gsilvei]

Hola ecfisa,
voy a probarlo,
gracias por el momento

[gsilvei]

Hola ecfisa,
Queria alguna coisa asi:

Código Delphi [-]
procedure TFormPrincipal.Selecionar1Click(Sender: TObject);
var
  Rect: TRect;
  Field: TField;
  State: TGridDrawState;
begin
if gdFocused in State then
with (Sender as TDBGrid).Canvas do
begin
Brush.Color:=clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);
end;
end;

Saludos

[ecfisa]

Hola gsilvei.

Sigo sin tener en claro la finalidad de esa 'Selección', ya que la misma sólo permanece hasta que cambies de línea.

Pero bueno, esto cambia el color de la línea seleccionada a rojo con letras blancas hasta que se haga click en el MenuItem 'No seleccionar':

Código Delphi [-]
...
procedure TForm1.FormShow(Sender: TObject);
begin
  FSelec:= False;  // Variable privada de tipo Boolean
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if (gdSelected in State) and FSelec then
     DBGrid1.Canvas.Brush.Color:= clRed;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.MenuItemSeleccionadoClick(Sender: TObject);
begin
  DBGrid1.Options:= DBGrid1.Options + [dgRowSelect];
  FSelec:= True;
  DBGrid1.Invalidate;
end;

procedure TForm1.MenuItemNoseleccionadoClick(Sender: TObject);
begin
  DBGrid1.Options:= DBGrid1.Options - [dgRowSelect];
  FSelec:= False;
  DBGrid1.Invalidate;
end;
...

Saludos.

[gsilvei]

Hola ecfisa,
tengo un cliente que quiere en el dbgrid hacer clic con el boton derecho del mouse y en el popupmenu tenga esas 2 opciones de seleccionar y no seleccionar
marcar los registros del dbgrid para recordar que estan pendientes.
Saludos

[ecfisa]

Hola gsilvei.

Para hacer eso necesitarías contar con un campo bivalente a ese efecto, es decir, para que tu cliente lo marque como pendiente.
De ese modo podrías evaluar el valor del campo en el evento OnDrawColumnCell y así pintar del color que gustes aquellas filas que cumplan esa condición.

saludos.

[jafera]

Yo tambien me inclino con la opcion de Ecfisa, es más yo uso este sistema en un grid donde si el valor de un campo es S lo deja en blanco y si es N lo pinta en color.

Tal y como comenta Ecfisa necesitas un valor que se guarde en la tabla, lo puedes mostrar o no en el grid, pero si no tienes este valor de referencia en cuanto salgas del grid y vuelvas a entrar habrán desaparecido todos lo colores y formatos asignados.

Saludos