Mudar font de um registro no DBGrid baseado na existencia de registro na tab filha.Como?
Ola!
Eu tenho um DBGrid com a relacao dos clientes(ClientDataSet ligado a tabela clientes) e cada cliente tem receitas ligadas a ele.Eu gostaria de mostrar no dbgrid para todo os clientes q tiverem um cadastro de 1 receita eu queria mostrar a font daquele cliente com Bold.
Como eu faço isso?
estou fazendo no onDrawDataCell com este codigo mas nao ta funcionando
como devo fazer?
Eu tenho um DBGrid com a relacao dos clientes(ClientDataSet ligado a tabela clientes) e cada cliente tem receitas ligadas a ele.Eu gostaria de mostrar no dbgrid para todo os clientes q tiverem um cadastro de 1 receita eu queria mostrar a font daquele cliente com Bold.
Como eu faço isso?
estou fazendo no onDrawDataCell com este codigo mas nao ta funcionando
if DM.cdsReceitas.FieldByName('COD_CLI').AsInteger <> DM.cdsClientes.FieldByName('CODIGO').AsInteger Then
Begin
RzDBGrid1.Canvas.Font.Style := [];
end
Else
Begin
RzDBGrid1.Canvas.Font.Style := [fsBold];
end;
como devo fazer?
Eduardo Jr
Curtidas 0
Respostas
Wilson Junior
03/05/2010
Coloque assim
if DM.cdsReceitas.FieldByName('COD_CLI').AsInteger <> DM.cdsClientes.FieldByName('CODIGO').AsInteger then
RzDBGrid1.Canvas.Font.Style := []
else
RzDBGrid1.Canvas.Font.Style := [fsBold]
;
RzDBGrid1.DefaultDrawDataCell( Rect, RzDBGrid1.Columns[DataCol].Field, State );
GOSTEI 0
Eduardo Jr
03/05/2010
O que é este datacol ? ta dando undeclared identifier.
obrigado
obrigado
GOSTEI 0
Wilson Junior
03/05/2010
Esqueci de dizer, coloque no evento OnDrawColumnCell.
Espero ter colaborado.
Espero ter colaborado.
GOSTEI 0