Skip to main content
added 1 characters in body
Fonte Link
user3628
user3628

Estou pintando as linhas de uma , no , 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:

Exemplo da DBGrid com a linha selecionada

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 TFrmCadLicencaTFrmCadTerminal.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?

Estou pintando as linhas de uma , no , 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:

Exemplo da DBGrid com a linha selecionada

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 TFrmCadLicenca.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?

Estou pintando as linhas de uma , no , 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:

Exemplo da DBGrid com a linha selecionada

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?

Fonte Link
user3628
user3628

Pintar linhas da DBGrid ao selecioná-las

Estou pintando as linhas de uma , no , 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:

Exemplo da DBGrid com a linha selecionada

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 TFrmCadLicenca.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?