Fórum Memo na Grid Dando Erro #265724
17/01/2005
0
ai galera to com uma dúvida, estou exibindo os dados numa dbgrid ligada a um datasource de um ibdataset sendo que.
a Dbrgrid esta como não edição, somente leitura, e nela tenho um campo memo mas não consigo exibi-lo na grid já tntei o código:
procedure TCadServico.DBGridModoTabelaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
R : TRect;
begin
R:=Rect;
Dec(R.Bottom,2);
if Column.Field=IBDataSetDESCRICAO then
begin
if not (gdSelected in State) then
DBGridModoTabela.Canvas.FillRect(Rect);
DBGridModoTabela.Canvas.TextRect(R,R.Left,R.Top,
IbdatasetDescricao.AsString,Integer(AlignmentFlags_WordBreak));
end;
end;
eu gostaria de exibir o campo memo estilo pra edita-lo? eu sei exibir o campo memo(dentro de um form) pra editar mas num sei como exibir pra visualizar (se possivel dentro de um form pequeno).
mas num da em nada, alguem tem alguma solução pra isso???
a Dbrgrid esta como não edição, somente leitura, e nela tenho um campo memo mas não consigo exibi-lo na grid já tntei o código:
procedure TCadServico.DBGridModoTabelaDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
R : TRect;
begin
R:=Rect;
Dec(R.Bottom,2);
if Column.Field=IBDataSetDESCRICAO then
begin
if not (gdSelected in State) then
DBGridModoTabela.Canvas.FillRect(Rect);
DBGridModoTabela.Canvas.TextRect(R,R.Left,R.Top,
IbdatasetDescricao.AsString,Integer(AlignmentFlags_WordBreak));
end;
end;
eu gostaria de exibir o campo memo estilo pra edita-lo? eu sei exibir o campo memo(dentro de um form) pra editar mas num sei como exibir pra visualizar (se possivel dentro de um form pequeno).
mas num da em nada, alguem tem alguma solução pra isso???
Demetrioi
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)