procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var R : TRect;
begin
R:=Rect;
Dec(R.Bottom,2);
if Column.Field=Query1.FieldByName('Campo_Memo') then
begin
if not (gdSelected in State) then
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextRect(R,R.Left,R.Top,
Query1.FieldByName('Campo_Memo').AsString);
end;
end;
Pergunta
Kikonanet
Mostrando Campo MEMO em um DBGRID
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var R : TRect; begin R:=Rect; Dec(R.Bottom,2); if Column.Field=Query1.FieldByName('Campo_Memo') then begin if not (gdSelected in State) then DBGrid1.Canvas.FillRect(Rect); DBGrid1.Canvas.TextRect(R,R.Left,R.Top, Query1.FieldByName('Campo_Memo').AsString); end; end;Abs.
Kiko
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.