Checkbox en un TJvDBGrid

[mjjj]

Hola amigos, buscando en los foros encontre este que hace referencia al problema que estoi teniendo.

en un TJvDBgrid quiero agregar un Tcheckbox, utilizo el codigo que sugieren y funciona, pero lo que ocurre es que en todos los campos de tipo varchar me los cambia por un checkbox.

Yo solo le digo que modifique el campo "OK"

Código Delphi [-]
function TForm5.JvDBGrid1CheckIfBooleanField(Grid: TJvDBGrid; Field: TField;
  var StringForTrue, StringForFalse: string): Boolean;
begin
if grid.Row = 1 then Field := Grid.DataSource.DataSet.FieldByName('OK');
end;

Alguna idea para solucionar esto..

Muchas gracias amigos.

Saludos

[Kipow]

Yo lo hago asi, en el evento CheckifBooleanField.

Código Delphi [-]

function Tfrm_MantTipoTransaccion.jvDBGTransaccionesCheckIfBooleanField(Grid: TJvDBGrid;
  Field: TField; var StringForTrue, StringForFalse: string): Boolean;
begin
  inherited;
  result := Field = dmINV.TTransaccionCOSTOS;
  StringForTrue := 'S';
  StringForFalse := 'N';
end;

[mjjj]

No me funciona, puedes ser un poco mas claro con respecto al codigo.

Saludos.

Gracias