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>
>
>
