Caro André Luis
abaixo um exemplo de como fazer diversas formatações em um DBGrid.
[]s Edison
procedure TFXXXXXXXX.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var I : integer;
begin
with DBGrid1 do
begin
// mude a cor das celulas em que FieldValor1 = 0
if(FieldValor1.Value = 0) then
if(column.Index = 1) then
Canvas.brush.Color:= clLime;
// se coluna 6 contiver 'Amarelo' mude a cor da célula para red -
mude para negrita
if(column.Index = 6) then
if(pos('Amarelo', FieldNomeCor.asstring) <> 0) then
begin
Canvas.brush.Color:= clred;
Canvas.Font.Color:= clWhite;
Canvas.Font.Style := [fsbold];
end;
// mude a cor de celulas selecionadas
if(gdSelected in State) then
begin
Canvas.brush.Color:= clblue;
Canvas.Font.Color:= clWhite;
end;
// mude a cor das celulas com foco
if(gdfocused in State) then
begin
Canvas.brush.Color:= clYellow;
Canvas.Font.Color:= clBlue;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,state);
end;
end;
--- Em delphi-br@yahoogrupos.com.br, André Luis de Oliveira
<[EMAIL PROTECTED]> escreveu
>
> Como faço para colocar cor em uma coluna do DBGrid e tb ficar
negrito os dados da coluna??
>
>
>
> --------------------------------------------------------------------
------------
> André Luis de Oliveira
> Programador de Sistemas
> E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED]
> Telefone: (19) 3731-4019
> Celular: (19) 9703-9018
>
>
> Uniodonto Campinas
> Av. Brasil, 200 - Campinas/SP
> Telefone: (19) 3731-4000
> Visite nosso site: www.uniodontocamp.com.br
> E-mail: [EMAIL PROTECTED]
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
