GARANTIR DESCONTO

Fórum DbGrid zebrado... #186811

07/10/2003

0

Delphi

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

Responder

Posts

07/10/2003

Felipesans

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-


Responder

Gostei + 0

07/10/2003

Educdc

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?


Responder

Gostei + 0

07/10/2003

Felipesans

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-


Responder

Gostei + 0

07/10/2003

Educdc

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?


Responder

Gostei + 0

07/10/2003

Felipesans

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


Responder

Gostei + 0

07/10/2003

Educdc

SQL 7.0
Delphi 5

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar