Fórum DBGrid #169218

Ai vai o codigo para trabalhar com apenas uma coluna do DBGrid, Altere-o para executar seu codigo especifico no evento OnDrawColumnCell.

Um Abraço
Werlon Goulart


procedure TFmNotas.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
//Mostra o Tipo do Documento por Extenso.
if Column.Title.Caption=´Tipo de Venda´ then begin
if QrNotasTIPO_DOCUMENTO.AsString=´0´ then // A Vista
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, ´ A Vista´);
if QrNotasTIPO_DOCUMENTO.AsString=´1´ then //A Prazo
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, ´ A Prazo´);
if QrNotasTIPO_DOCUMENTO.AsString=´9´ then //Cartao
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, ´ Cartão´);
end;
end;