Visualizando um campo Memo no DBGrid

Question

Fala pessoal do Forum!Preciso fazer com que o conte�do de um campo Memo do meu banco de dados, seja visualizado num DBGrid.Algu�m pode me dar uma ajuda? Estou precisando demais disso...Desde j� agrade...

Rafael.valler · Answer

:idea:Tenta isso pra ver se d� certo:

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=Table1Memo then
begin
if not (gdSelected in State) then
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextRect(R,R.Left,R.Top,
Table1Memo.AsString,Integer(AlignmentFlags_WordBreak));
end;
end;

Jeov� Soares · Answer

utilize o seguinte c�digo no evento OnDrawColumnCell do DBGrid:

Var
R : Rect;
Begin
R := Rect;
Dec(R.Bottom,2);
If Column.Field = ClientDataSet1OBS Then Begin
If Not (gdSelected in State) Then
DBGrid1.Canvas.FillRect(Rect);
DrawText(DBGrid1.Canvas.Handle,PChar(ClientDataSet1OBS.AsString),Length(ClientDataSet1OBS.AsString),R,DT_WORDBREAK);
End;
End;

Para mais personaliza��o de DBGrids procure adquirir a revista Clube Delphi n� 44 (Segredos do DBGrid).
� fant�stica...

Wbb · Answer

Obrigado pessoal.S� uma observa��o: Os c�digo acima t�m pequenos problemas. Da forma abaixo funcionou:[code:1:95818d8959]Var R : TRect;begin   R:=Rect;   Dec(R.Bottom,2);   if Column.Field = DataSetCAMPO_MEMO then   begin      if not (gdSelected in State) then         DBGrid1.Canvas.FillRect(Rect);      DBGrid1.Canvas.TextRect(R, R.Left, R.Top, DataSetCAMPO_MEMO.AsString);   end;[/code:1:95818d8959]Valeu e T+wbb...

F�rum Visualizando um campo Memo no DBGrid #227475