Então lá vai!
Declare uma variavél local:
R: TRect;
No evento OnDrawColumnCell:
R := Rect;
Dec(R.Botton,2);
if Column.Field = ClientDataSet1OBS then
begin
if not (gdSelect in State) then
DBGrid.Canvas.FillRect(Rect);
DrawText(DBGrid1.Canvas.Handle, pchar(ClientDataSet1OBS.AsString),
length(ClientDataSet1OBS.String), R, DT_WORDBREAK);
end;
--
[]s,
Odail Della Niesi Junior
São Pedro-SP
Rubem Nascimento da Rocha escreveu:
>
>
> Meu caro, preste atenção! Isto é pra mostrar foto! O companheiro quer
> orientação pra mostrar campo MEMO!
> Sds.
>
> ________________________________
> To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
> From: [EMAIL PROTECTED] <mailto:dellaniesi%40gmail.com>
> Date: Wed, 30 Jul 2008 11:16:45 -0300
> Subject: Re: [delphi-br] Visualizar Campo Blob Firebird Texto no dbgrid
>
> No evento OnDrawColumnCell do DBGrid :
>
> if Column.Field = ClientDataSet1FOTO then
> begin
> if not (gdSelected in State) then
> DBGrid.Canvas.FillRect(Rect);
> with TPicture.Create do
> begin
> Assign(ClientDataSet1FOTO);
> DBGrid1.Canvas.StrechDraw(Rect,Bitmap);
> Free;
> end;
> end;
>
> Aumente o tamanho da célula, propriedade font do DBGrid (por exemplo:
> 32), depois configure a propriedade fonte de cada coluna para 8 novamente.
>
> --
> []s,
>
> Odail Della Niesi Junior
> São Pedro-SP
>
> Rubem Nascimento da Rocha escreveu:
> >
> >
> > Luís,
> >
> > reforço o que eu lhe respondi na lista-delphi. Vc deverá programar
> > eventos no DBGrid para escrever (ou 'pintar') o texto do campo Memo na
> > célula do DBGrid. Procure na Internet que vc vai encontrar aos montes
> > dicas que mostram como fazer isso. Inclusive, mostrando como quebrar o
> > texto em mais de uma linha dentro de uma célula do DBGrid.
> >
> > Boa sorte. Sds.
> >
> > ________________________________
> > To: delphi-br@yahoogrupos.com.br
> <mailto:delphi-br%40yahoogrupos.com.br>
> > From: [EMAIL PROTECTED] <mailto:leandro%40ljsistemas.com.br>
> > Date: Wed, 30 Jul 2008 10:20:53 -0300
> > Subject: Re: [delphi-br] Visualizar Campo Blob Firebird Texto no dbgrid
> >
> > Tente criar um campo calculado no DataSet, do tipo String.
> >
> > Aí vc coloca:
> >
> > Query1MEUCAMPOCALCULADO.AsString := Query1MEUCAMPOBLOG.AsString;
> >
> > Não testei, mas deve funcionar.
> >
> > É claro que só vai mostrar uma linha no DBGrid.
> >
> > t+,
> >
> > Leandro
> >
> > ----- Original Message -----
> > From: Luís
> > To: Delphi-Br
> > Sent: Wednesday, July 30, 2008 9:37 AM
> > Subject: [delphi-br] Visualizar Campo Blob Firebird Texto no dbgrid
> >
> > Como faço para Visualizar Campo Blob Firebird Texto no dbgrid ?
> >
>
> __________________________________________________________
> Receba GRÁTIS as mensagens do Messenger no seu celular quando você
> estiver offline. Conheça o MSN Mobile!
> http://mobile.live.com/signup/signup2.aspx?lc=pt-br
> <http://mobile.live.com/signup/signup2.aspx?lc=pt-br>
>
>
