Esse eh para o twwdbgrid:
rocedure
TF_COMPRA_MANUT.G_COMPRADrawDataCell(Sender:
TObject;
const Rect: TRect; Field: TField; State:
TGridDrawState);
Var
Cor: Tcolor;
begin
If Qr_CompraSITUACAO.AsString =
'Orçamento' Then Cor := RGB(190,230,255)
Else If Qr_CompraSITUACAO.AsString = 'Sem
Baixas' Then Cor := RGB(255,220,220)
Else If Qr_CompraSITUACAO.AsString = 'Com
Baixas' Then Cor := RGB(205,237,206)
Else If Qr_CompraSITUACAO.AsString =
'Finalizada' Then Cor := RGB(211,204,253);
If (G_COMPRA.Fields[0].AsString =
Posicao) And (Field.Index <> 8) Then
Begin
G_Compra.Canvas.Brush.Color :=
clBackground;
G_Compra.Canvas.Font.Color :=
clWindow;
End
Else
Begin
G_Compra.Canvas.Font.Color :=
clWindowText;
G_Compra.Canvas.Brush.Color :=
Cor;
End;
G_Compra.Canvas.FillRect(Rect);
G_Compra.DefaultDrawDataCell( Rect,
Field, State );
end;
A variavel posicao tem q receber a identificação
unica do registro, tipo o codigo, no evento
onrollchange do grid...
esse procedimento ai muda o fundo das linhas e
faz com q a que esta selecionada recebe uma cor
diferente e q nao mude a cor da cedula q mostra a
situção da minha compra ou seja nao mostra
selecionado o compo Field.Index = 8
Esse ja eh para grid normal do delphi:
procedure
TF_Funcionario.Grid_FunDrawColumnCell(Sender:
TObject;
const Rect: TRect; DataCol: Integer; Column:
TColumn;
State: TGridDrawState);
var cor : tcolor;
begin
If Qr_Dados.RecNo mod 2 = 0 THEN
cor := RGB(230,250,255)
else
cor := RGB(255,255,255);
Grid_Fun.canvas.Brush.Color := cor;
Grid_Fun.canvas.FillRect(rect);
Grid_Fun.canvas.TextOut(rect.left+2,rect.top+2,column.field.text);
with TDBGrid(Sender)do
begin
canvas.lock;
if (gdselected in state) or (gdfocused in
state) then begin
canvas.brush.color := clblack;
canvas.font.color := clWhite;
end;
defaultdrawcolumncell(rect,datacol,column,state);
canvas.unlock;
end;
end;
esta faz com q uma linha seja de uma cor outra de
outra cor e a celula selecionada seja preta e cor
da fonte branca...
agora eh soh adaptar conforme deseja
nao esqueça q cada um eh pra um tipo de
procedimento do grid
--- Erika <[EMAIL PROTECTED]> escreveu:
---------------------------------
OLÁ.... POR ACASO TEM COMO SELECIONAR AS COLUNAS
QUE IRÃO MUDAR DE
COR??? POIS MEU DBGRID TEM 4 COLUNAS E EU QUERIA
QUE APENAS DUAS
DELAS FICASSEM DE OUTRA COR...
OBRIGADÃO!
--
<<<<< 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] ou
[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 Termos do Serviço do Yahoo!.
Leandro...
[> Mutuka <]
____________________________________________________
Yahoo! Mail, cada vez melhor: agora com 1GB de espaço grátis!
http://mail.yahoo.com.br
--
<<<<< 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] ou [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
