problemas com dbgrid quandoo zebrado

Question

ola colegas,tenh um grande problema no dbgrid,  quando uso os comsndos para zebrar ele, funciona legal, mas nas colunas onde tem valores formatados ele simplesmente tira a formata��o exe : coluna valo...

Leandro Carvalho · Answer

Como o m�todo FillRect pinta toda a c�lula apagando assim seu texto original, precisamos chamar DefaltDrawCell para gerar o texto padr�o, que no teu caso � o valor do campo.
Use no final do comando:
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);

Marco Salles · Answer

isto mesmo .. Ao inves de :DBGrid1.Canvas.FillRect(Rect);DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString); fa�a :DbGrid1.DefaultDrawDataCell(Rect,Column.Field,State); ...

Glauber Lima · Answer

Bom dia, no meu sistema eu uso da seguinte forma:

eu fiz uma procedure:

procedure ZebrarDbGrid(dSouce: TDataSource; grid: TDBGrid;
State: TGridDrawState; Rect: TRect; Column: TColumn);
begin
if not odd(dSouce.DataSet.RecNo) then
if not(gdselected in State) then
begin
grid.canvas.Brush.Color := $00FFEFDF;
grid.canvas.FillRect(Rect);
grid.DefaultDrawDataCell(Rect, Column.Field, State);
grid.Color := clWindow;
end;
end;

eu chamo a minha procedure no evento: onDrawColumnCell;

ZebrarDbGrid(datasourc1, DBGrid1, State, Rect, Column);

dessa forma as formata��es que esta no clientdataset n�o ser�o perdidas.

Edson Melo · Answer

ola pessoal vou tentar e depois posto uma mensagem informando se deu certo, n�o tenho internet estou em uma lam house, vou pra casa testarobrigado...

Edson Melo · Answer

temtei a procedure indicada acima , funcionar funcionou so que apresewnta um outro problema agora a formatacoa de valores ficou ok, mas quando a coluna for numerica , ele bagunca com a centralizacao exemplo

descricao qtd valo
teste 1 1 R$ 1,00
teste 2 2 R$ 1,00
Teste 3 1 R$ 1,00

e isso ai , a coluna de quantidade baguncatem uma outra coluna que tambem traz numero
a de codigo, tambem faz isso sera que alguen tem como me ajudar, com mais essa opcao

atenciosamente

Edson Melo · Answer

o exemplo nao saiu legal  mas e assim na coluna qtd um numero sai na esquerda outro na direita e assim sucessivamente    1                 1    1                 1mais ou menos assim...

Edson Melo · Answer

o exemplo acima nao saiu legal mas e cada linha em um sentido...

Edson Melo · Answer

consegui resolver n�o sei se era do jeito certo mas resolvi

fiz o seguinte :]

no clientedataset o campo estava alinhado a esquerda
no sqlquery estava alinhado a direita
no dbgrid estava alinhado no centro

consegui resolver colocando todos eles alionhado em uma posicao so

quer tiver este problema verifique estas op��es

ok ate logo

F�rum problemas com dbgrid quandoo zebrado #414525