Alterando valor de uma célula no DbGrid

Delphi

17/01/2005

Boa tarde... Será que alguém poderia me ajudar?
Preciso alterar o valor de uma célula no DbGrid.
Por exemplo, quando o valor da célula for ´C´, preciso alterar para ´CLIENTE´.


Muito Obrigado.


Christian.selbmann

Christian.selbmann

Curtidas 0

Respostas

Massuda

Massuda

17/01/2005

Você pode usar o evento OnDrawColumnCell para fazer isso. [url=http://delphiforum.icft.com.br/forum/search.php]Pesquise [/url]aqui no fórum sobre isso.


GOSTEI 0
Christian.selbmann

Christian.selbmann

17/01/2005

Massuda.
Procurei pelo site, e não encontrei nenhum exemplo relacionado a alterar os valores do grid. Só encontrei como alterar a cor da célula.
É muito diferente do método pra alterar a cor ?

Obrigado.


GOSTEI 0
Massuda

Massuda

17/01/2005

É muito diferente do método pra alterar a cor ?
Acho que não... seria algo parecido com isto:
procedure TFrm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
var 
  S: string; 
begin 
  if Column.FieldName = ´NomeDoCampo´ then begin 
    with DBGrid.Canvas do begin 

      FillRect(Rect); 

      S := Column.Field.AsString; 

      if S = ´C´ then S := ´Cliente´;
      // ...

      R := Rect; 
      DrawText(Handle, PChar(S), Length(S), R, DT_CENTER or DT_VCENTER); 
    end; 
  end
  else begin
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;



GOSTEI 0
Amjorge

Amjorge

17/01/2005

Obrigado Também.


GOSTEI 0
POSTAR