Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
marinho

Colorindo linhas do DbGrid.

Recommended Posts

Ola pessoal, esta é uma dica bastante simples, mas que que pode dar um bom efeito no seu DbGrid.

procedure TFrm_Principal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  IF NOT odd(IBTable1.RecNo) THEN
    IF NOT (GdSelected IN State) THEN
      Begin
       Dbgrid1.Canvas.Brush.Color := $00AABB;
       Dbgrid1.Canvas.FillRect(rect);
       Dbgrid1.DefaultDrawDataCell(Rect,column.Field,State);
      end;
end;

Na linha

Dbgrid1.Canvas.Brush.Color := $00AABB;

A cor pode ser a que mais se qdequar ao seu programa.

POr Erivan de Lima

Compartilhar este post


Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...