Delphi - Dbgrid does not replace first line content

Question

Good morning, everyone...

I have a table in an Sqlite database with an "integer" type field to store "Boolean" values. This field is linked, on the registration screen, to a Dbcheckbox. So, to be able to mark and unmark the Dbcheckbox, I needed to write the Ongettext and Onsettext events from the field.

Now I need to show "Yes" and "No" values based on this field in a Dbgrid. I wrote the code below in the Ondrawcolumncell event:

procedure TfrmPesquisar.dbgPesquisarDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   if Column.Field = dsPesquisar.DataSet.FieldByName('claAtiva') then
  begin
    dbgPesquisar.Canvas.FillRect(Rect);
    if Column.Field.AsString = '0' then
      dbgPesquisar.Canvas.TextOut(Rect.Left+10,Rect.Top+3,'Não')
    else
      dbgPesquisar.Canvas.TextOut(Rect.Left+10,Rect.Top+3,'Sim');
  end;
end;

However, only the first line is showing, erroneously, the value to be replaced (No) and the real value (0 - zero), as shown below:

Has anyone gone through something similar or knows the solution ?

Thank you so much for your help.

Answer 1

I suggest then move to the SQL query itself resolve:

something like:

CASE Ativa
 WHEN '0' THEN
 'Não'
 ELSE
 'Sim'
 END Ativa

This way the result is ready to be displayed.

Answer 2

Não Sei se funciona no Delphi para Android more on Desktop I use Ongettext

Example

if QryPesquisaclaAtiva.AsString = '0' 
then Text:='Não'
else Text:='Sim';