Fórum Pintar DBGrid... #294963

sobe...

Parece estranho , mas esta instrução



[b:c124075e25]Não deveria estar fora do Bloco if then end;[/b:c124075e25] :?: :?: :?:

até onde sei [b:6dc2b8c207]não[/b:6dc2b8c207]... se eu [b:6dc2b8c207]não[/b:6dc2b8c207] chamá-la, é porque quero pintar os valores padrões... ou estou errado :?:

Depende de como esta a sua propriedade defaltDrawing

se voce deixar a propriedade defaltDraing configurado em true , a grade apresentara a saida padrão , mas se voce deixar a Propriedade defaltDrawing em false voce deve chamar o metodo DafeltDrawColumnCell.

Mas ela está em True...

[quote:189dfe7802=´Bruno Belchior´]Pessoal tenho o seguite código no [b:189dfe7802]OnDrawCollumCel[/b:189dfe7802]:Quero que meus alunos transferidos sejam destacados... só que estou tendo um comportamento estranho...[list=1:189dfe7802]
[*:189dfe7802]A primeira coluna da linha dos matriculados só é pintada quando cliquo na mesma;
[*:189dfe7802]As duas primeiras colunas ficam com a fonte branca independente se está transferido ou não;
[*:189dfe7802]O restante das colunas ficam com a fonte preta independente se está transferido ou não;
[*:189dfe7802]Só consigo navegar no grid após apertar a seta ´pra baixo´ (down);
[/list:o:189dfe7802]Estou realmente muito confuzo já que é massante depurar código nesse evento... :?:[/quote:189dfe7802]

Neste trecho...

será que vc está fazendo a pergunta certa??

if ((gdSelected in State) = False) and (DataSource.DataSet.
FieldByName(´SituacaoAtual´).AsString = ´Transferido´) then
begin
BrDbGrdAlunosMedias.Canvas.Brush.Color := clBtnShadow;
BrDbGrdAlunosMedias.Font.Color := clWhite;
BrDbGrdAlunosMedias.DefaultDrawColumnCell(Rect, DataCol, Column, State);

tente assim.. acho que resolve..

if Trim(DataSource.DataSet.
FieldByName(´SituacaoAtual´).AsString) = ´Transferido´ then
begin
BrDbGrdAlunosMedias.Canvas.Brush.Color := clBtnShadow;
BrDbGrdAlunosMedias.Font.Color := clWhite;
BrDbGrdAlunosMedias.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Se vc quiser somente destacar quando clicar na coluna do grid, aí sim vc coloca assim..

if ((gdSelected in State) = False) and (Trim(DataSource.DataSet.
FieldByName(´SituacaoAtual´).AsString) = ´Transferido´) then
begin
BrDbGrdAlunosMedias.Canvas.Brush.Color := clBtnShadow;
BrDbGrdAlunosMedias.Font.Color := clWhite;
BrDbGrdAlunosMedias.DefaultDrawColumnCell(Rect, DataCol, Column, State);

Espero ter ajudado..

é isto que eu disse

Coloque a em false e coloque O Codigo DefaultDrawColumnCell Fora do Bloco If Ten