ok, vou tentar aqui, qualquer coisa te falo.
 
grato

--- Em ter, 23/6/09, Reinaldo Aparecido Pereira <ctocv...@yahoo.com.br> 
escreveu:


De: Reinaldo Aparecido Pereira <ctocv...@yahoo.com.br>
Assunto: RES: [delphi-br] DBGrid
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 23 de Junho de 2009, 20:41








Use no dbgrid o evento dbGradeDrawColumnCe ll para desenhar o visto, ou
qualquer outra imagem que desejar.

Use a variável Datacol para saber quando deve desenhar no canvas a imagem.

A variável Rect contém os limites da coluna que está sendo impressa, logo,
use xxx para posicionar onde desejar desenhar a imagem.

Aí é só desenhar o que você quiser. 

procedure TfrmHome.dbGradeDra wColumnCell( Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState) ;

Begin

If DataCol = 2 then

begin

if
dbGrade.DataSource. DataSet.FieldByN ame('nome do campo').Value ue then

Draw(Rect.Left+ xxx,
Rect.Top+xxx, CheckOn.Picture. Bitmap)

else 

Draw(Rect.Left+ xxx,
Rect.Top+xxx, CheckOff.Picture. Bitmap);

end;

De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup os.com.br] Em
nome de EmbarcaDelphi
Enviada em: terça-feira, 23 de junho de 2009 19:45
Para: delphi...@yahoogrup os.com.br
Assunto: Re: [delphi-br] DBGrid

Estou utilizando o CheckListBox da JEDI que tem esta propriedade, Creio 
que existe esta propriedade para Bancos de Dados como o DBGrid, alguém 
que usa pode saber disso...

Blz.

Bollasette escreveu:
>
>
> Eu indico o wwDbGrid da Infopower (pago).
>
> ----- Original Message -----
> From: "stainle2003" <stainle2003@ yahoo.com. br
<mailto:stainle2003 %40yahoo. com.br> 
> <mailto:stainle2003 %40yahoo. com.br>>
> To: <delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos .com.br>
<mailto:delphi- br%40yahoogrupos .com.br>>
> Sent: Tuesday, June 23, 2009 5:44 PM
> Subject: [delphi-br] DBGrid
>
> Gostaria de trocar o valor True de um campo no DBGrid por um "visto" 
> ou seja
> aquela imagem que significa "OK" ou "ticado", coisa assim.
> uso o Delphi 7.
> conto com a ajuda de vocês.
> grato.
> Stainle
>
> .
>
> 

[As partes desta mensagem que não continham texto foram removidas]

















      
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Responder a