[firebase-br] [OFF] - IB_Grid

[Magno]

Amigos... perdão pelo Off....´

Tinha antigamente algumas rotina para um DBGrid assim:

procedure TF_CalcCustos.GridColEnter(Sender: TObject);
begin
   If Grid.SelectedField = Qry_Centro.FieldByName('Marca') then
    Grid.Options := Grid.Options - [dgEditing]
   else
    Grid.Options := Grid.Options + [dgEditing];
end;

Mas no IB_Grid nao funfa dando erro no .Options dizendo q é nao pode mudar propriedade Read Only

a outra seria
procedure TF_CalcCustos.GridDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 If Column.Field = Qry_Centro.FieldByName('Marca') then
  begin
  Grid.Canvas.FillRect(Rect);
   If Qry_Centro.FieldByName('Marca').AsInteger = 1 then
   Imagem.Draw(Grid.Canvas,Rect.Left+10,Rect.Top+1,0);
  end;
end; 

Mas no IB_Grid nao achei a propriedade DrawColumnCell

Pra quem nao entendeu as rotinas... basicamente seria pra clica numa célula e conforme o valor da celula "pintar" ela com uma imagem...

Vlw...