Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   cambiar color en fila seleccionada en un dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=21083)

gmontes 05-05-2005 18:15:44

cambiar color en fila seleccionada en un dbgrid
 
consulte los hilos anteriores sobre el dbgrid y funciona el cambio de color en mi dbgrid , el problema es que solo me lo cambia en la celda que selecciono y yo quiero que se cambie en todo el renglon

mi base de datos es firebird 1.5 con delphi 6 y compnentes zeos

este es el procedimiento que tome de este foro.

procedure TFFactura.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) then
TDBGrid(sender).Canvas.Brush.Color:=clteal;
TDBGrid(sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

funciona perfecto,pero solo cambia la celda activa y no el renglon activo

mi dbgrid lo tomo de un select

alguna sugerencia?

gracias

marcoszorrilla 05-05-2005 21:42:08

Código Delphi [-]
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
   DataCol: Integer; Column: TColumn; State: TGridDrawState);
 begin
    if  (gdSelected in State)  then
    begin
    DBGrid1.Canvas.Brush.Color :=clInfobk;
    Dbgrid1.Canvas.Font.Style:=[fsBold];
    DBGrid1.Canvas.Font.Color:=ClBlack;
    DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);
    end;
 end;

Aquí tienes un ejemplo, aunque creo que el problema que tienes es que no has marcado la opción:
Options: dgRowSelect = True.

Un Saludo.

gmontes 05-05-2005 22:33:24

tenias razon, ese era el problema. muchas gracias


La franja horaria es GMT +2. Ahora son las 10:55:03.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi