DbGrid zebrado...

Delphi

07/10/2003

Li todos os outros topicos relacionado a isso mais nd deu certo!
:arrow: Tenho esse código:

If odd(Query1.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clGreen;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clWhite;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);

:arrow: Mas o DbGrid fica todo verde, eu preciso q ele fique zebrado msm... A :roll: lguem pode mim ajudar :?:


Educdc

Educdc

Curtidas 0

Respostas

Felipesans

Felipesans

07/10/2003

No evento OnDrawColumnCell coloque isso:

if not odd(Query1.RecNo) then
if not (gdselected In State) then
begin
DGLOCCLI.Canvas.brush.Color:=$00FFEFDF;
DGLOCCLI.Canvas.FillRect(RECT);
DGLOCCLI.DefaultDrawDataCell(Rect,column.field,state);
end;

Comigo funciona beleza.

Espero ter ajudado.
Felipe Sanches
Itajaí-SC-


GOSTEI 0
Educdc

Educdc

07/10/2003

No evento OnDrawColumnCell coloque isso: if not odd(Query1.RecNo) then if not (gdselected In State) then begin DGLOCCLI.Canvas.brush.Color:=$00FFEFDF; DGLOCCLI.Canvas.FillRect(RECT); DGLOCCLI.DefaultDrawDataCell(Rect,column.field,state); end;


:arrow: O projeo executo normal mas o dbgrid n muda nd... Eh so isso?num eh preciso alterar alguma coisa n? Onde q coloco a cor?


GOSTEI 0
Felipesans

Felipesans

07/10/2003

Vc alterou alguma propriedade do dbgrid confirme se a propriedade
defaultDrawing está true, a cor está de finida neste codigo ´$00FFEFDF´ só n sei que cor é cada código, esta cor é azul.

Comigo funciona numa boa, faça alguns testes com as propriedades do DbGrid.




Qualquer coisa .
Felipe Sanches
Itajai -SC-


GOSTEI 0
Educdc

Educdc

07/10/2003

Vc alterou alguma propriedade do dbgrid confirme se a propriedade defaultDrawing está true


:arrow: Iniciei uma nova aplicação coloquei td mas continua do msm jeito! Vc usa QUERY tbm?


GOSTEI 0
Felipesans

Felipesans

07/10/2003

eu uso os dois tanto query como table, me diga uma coisa qual delphi vc usa que tipo de banco de dados vc está acessando?
não deu nenhum errinho nada?

Felipe Sanches
Itajaí SC


GOSTEI 0
Educdc

Educdc

07/10/2003

SQL 7.0
Delphi 5

:arrow: Executa normalzim, nd de erro...


GOSTEI 0
POSTAR