cor da linha - dbgrid

Delphi

13/11/2007

tenho algumas rotinas relacionadas a alteração de cor da linha do dbgrid, mas tenho um problema que ainda não consegui resolver, por exemplo

ao clicar em uma linha eu quero que duas colunas do dbgrid tenhas suas cores alteradas

na rotina basica utiliza-se

if (gdselected in state) then
begin
//rotina - altera cor da coluna
end

neste caso, ele só altera a cor da coluna que foi clicada

eu quero alterar a cor desta coluna e da coluna do lado, tem como ?????


Arc

Arc

Curtidas 0

Respostas

Acror

Acror

13/11/2007

no DBGrid1DrawColumnCell

if ((DataCol = 0) or (DataCol = 1)) and (gdselected in state) then
DBGrid1.Canvas.Font.Color := clRed
else
DBGrid1.Canvas.Font.Color := clBlack;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

se entrar em modo de edição as duas 1as colunas ficarão com fonte vermelha e as outras preta. no caso todas as linhas.


GOSTEI 0
POSTAR