danielrgoes Postado Agosto 10, 2009 Denunciar Share Postado Agosto 10, 2009 Bom dia pessoalGostaria de saber como eu faço para mudar a cor da 4ª linha do Dbgridmuito obrigado Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 William - TI Postado Agosto 10, 2009 Denunciar Share Postado Agosto 10, 2009 Amigo você pode fazer na propria tabela do seu sistema, tipo na tabela que você listar coloque um campo MUDALINHA INT 1 DEFUL 0, ai fica facil na quarta linha covê coloca o campo MUDALINHA p/ 1, e o codigo ficará assim procedure Tfrmpedidos.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if qryitens.FieldByName('MUDALINHA').asinteger =1 then begin dbgrid.Canvas.Brush.Color:= clSilver; dbgrid.Canvas.Font.Color := clblack; end else begin dbgrid.Canvas.Brush.Color:= clwhite; dbgrid.Canvas.Font.Color := clblack; end; dbgrid.Canvas.FillRect(Rect); dbgrid.DefaultDrawColumnCell(Rect, DataCol, Column, state);end;isto já deve resolver seu problema. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Daniel Sanches Postado Agosto 10, 2009 Denunciar Share Postado Agosto 10, 2009 você pode fazer assim:procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if data.query.RecNo = 4 then //se for o item 4 ... DBGrid1.Canvas.Font.Color:= ClRed; DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State); end; Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
danielrgoes
Bom dia pessoal
Gostaria de saber como eu faço para mudar a cor da 4ª linha do Dbgrid
muito obrigado
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.