Pessoal tenho uma dica
altere a font da sua coluna para Wingdings
vá no evento OnGetText do seu campo e coloque o código abaixo
procedure TForm1.cdsTesteCampoBooleanOnGetText(Sender: TField; var Text:
String; DisplayText: Boolean);
begin
if DisplayText then
begin
if Sender.AsBoolean then
Text := #254 //simbolo na font Wingdings que simboliza um quadrado
vistado
else
Text := #168; //simbolo na font Wingdings que simboliza um quadrado
não vistado
end
else
begin
if Sender.AsBoolean then
Text := 'True'
else
Text := 'False';
end;
end;
espero ter ajudado
falow
2009/6/24 humberto sales de oliveira <humberto_...@yahoo.com.br>
>
>
> select case seucampo when 'true' then 'nao ticado' else 'ticado' end
> from suatabela
>
> stainle2003 escreveu:
>
> > 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
> >
> >
> >
>
>
>
--
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
"Tente ser uma pessoa de valor, não de sucesso"
Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
