Fórum Mudar font do dbgrid baseado em tabela PROBLEMA. #594883
13/06/2018
0
Ola!
No evento onDrawColumnCell do meu DBGrid estou usando este codigo para mudar o eestilo da font (bold ou italic) se aquele registro tiver alguma receita cadastrada.
if dm.cdsreceitas.recordcount > 0 then
begin
DBGrid1.Canvas.Font.Color:= clred;
DBGrid1.Canvas.Font.Style := [fsBold];
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
quando carrego a aplicacao funciona mas quando passo o mouse por cima dos registros ele muda o estilo
o que pode estar acontecendo?
obrigado
No evento onDrawColumnCell do meu DBGrid estou usando este codigo para mudar o eestilo da font (bold ou italic) se aquele registro tiver alguma receita cadastrada.
if dm.cdsreceitas.recordcount > 0 then
begin
DBGrid1.Canvas.Font.Color:= clred;
DBGrid1.Canvas.Font.Style := [fsBold];
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
quando carrego a aplicacao funciona mas quando passo o mouse por cima dos registros ele muda o estilo
o que pode estar acontecendo?
obrigado
Eduardo Jr
Curtir tópico
+ 0
Responder
Post mais votado
14/06/2018
Voce precisa verificar o status do grid através da variável STATE
Por exemplo:
.
IF NOT (gdSelected in State) Then Begin
... codigo
End;
Por exemplo:
.
IF NOT (gdSelected in State) Then Begin
... codigo
End;
Alberto
Responder
Gostei + 1
Clique aqui para fazer login e interagir na Comunidade :)