ok, vou tentar
Stainle
--- Em qua, 24/6/09, Moacir - GMail <prism...@gmail.com> escreveu:
De: Moacir - GMail <prism...@gmail.com>
Assunto: Re: RES: [delphi-br] DBGrid
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 24 de Junho de 2009, 0:01
Nivaldo,
Use assim:
If (DataCol=4) then
Begin
(Sender as TDBGrid).Canvas. FillRect( Rect);
If Trim(Column. Field.Value) ='S' then
DM.imagens.Draw( (Sender as
TDBGrid).Canvas, Rect.Left+ 1,Rect.Top+ 1,25); //Neste caso é uma imagem
que esta num Timages
end;
Sucesso !!
Moacir
Nivaldo Stainle escreveu:
> 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...@yahoogrup os.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- b...@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...@yahoogru p 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.maisbusca dos.yahoo. com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------ --------- --------- ------
>
>
[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]
