Estou pintando as linhas de uma dbgrid, no delphi-xe3, porém minha condição para pintar a linha selecionada não está funcionando corretamente.
Ao selecionar a linha (setar o foco) somente a primeira coluna está sendo pintada. Exemplo:
A propriedade Options
, dgRowSelect
está setada como True
.
Meu código para pintar as linhas e pintar a linha quando está selecionada, conforme encontrado nos exemplo pela web:
procedure TFrmCadTerminal.dbgTerminaisDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
inherited;
if cdsTerminal.IsEmpty then exit;
if cdsTerminalAcess_TerE.AsString <> 'S' then
begin
if gdFocused in State then
begin
dbgTerminais.Canvas.Brush.Color := clRed;
dbgTerminais.Canvas.Font.Color := clWhite;
dbgTerminais.Canvas.FillRect(Rect);
dbgTerminais.DefaultDrawDataCell(Rect, Column.Field, State);
end
else
begin
dbgTerminais.Canvas.Brush.Color := clMaroon;
dbgTerminais.Canvas.Font.Color := clWhite;
dbgTerminais.Canvas.FillRect(Rect);
dbgTerminais.DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;
end;
Gostaria que toda a linha fosse pintada da mesma cor ao selecioná-la. Como resolver isso?