DBGrid no Lazarus

[cefantacini]

Estou migrando meus sistemas para o Lazarus e me deparei com um problema.

Eu filtro os registros que estão amarrados ao DBGrid, aí ele me mostra a informação assim:

O Campo índice tem valor na segunda linha, mais não aparece logo após o filtro, porém se eu clicar sobre a linha, ele passa a aparecer....

Alguém teria ideia do que pode ser?

 

[Daniel Simoes]

Você customizou o OnPaint ?

Pode ser ainda alguma configuração de Cores no DBGrid 

Veja o Link abaixo... tem muita informação sobre Grids no Lazarus... do básico ao avançado...

https://wiki.lazarus.freepascal.org/Grids_Reference_Page

[cefantacini]

Valeu Daniel, era isso  mesmo, tinha uma rotina o evento DrawColumnCell, assim:

begin
  //inverte a cor quando selecionado
  if gdSelected in State
  then
    begin
      TDBGrid( Sender ).Canvas.Brush.Color := clHighlight;
      TDBGrid( Sender ).Canvas.Font.Color  := clHighlightText;
      TDBGrid( Sender ).Canvas.Pen.Color := Brush.Color;
    end
  else
    begin
      if DMBDComum.IbQrPesquisaPRO_DESATIVADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clRed;
      if DMBDComum.IbQrPesquisaPRO_SELECIONADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clBlue;
    end;
  TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;

a última linha, TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );, estava no lugar errado, tem que ser antes do end, assim:

begin
  //inverte a cor quando selecionado
  if gdSelected in State
  then
    begin
      TDBGrid( Sender ).Canvas.Brush.Color := clHighlight;
      TDBGrid( Sender ).Canvas.Font.Color  := clHighlightText;
      TDBGrid( Sender ).Canvas.Pen.Color := Brush.Color;
    end
  else
    begin
      if DMBDComum.IbQrPesquisaPRO_DESATIVADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clRed;
      if DMBDComum.IbQrPesquisaPRO_SELECIONADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clBlue;
      TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
    end;
end;