Ir para conteúdo
Fórum CódigoFonte.net

marinho

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

  1. marinho

    Zebrando o DbGrid.

    Ola pessoal. Esta é mais uma dica simples, porém bastante eficiente quando o assunto é dar um pouco de efeito em um DbGrid. Dentro do Evento DrawColumnCell do DbGrid adcione o seguinte código: procedure TFrm_Principal.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin IF NOT odd(DmDados.IBTable1.RecNo) THEN IF NOT (GdSelected IN State) THEN Begin Dbgrid1.Canvas.Brush.Color := ClTeal;; Dbgrid1.Canvas.FillRect(rect); Dbgrid1.DefaultDrawDataCell(Rect,column.Field,State); end; end; Na linha: Dbgrid1.Canvas.Brush.Color := ClTeal;; Você pode escolher a cor que preferir, é só fazer o teste e ver como é que fica. Qualquer dúvida ou ajuda é só postar alguma pergunta que tentaremos ajudar.
  2. marinho

    Formatando data por extenso.

    Ola pessoal, esta dica é para a formatação de data por extenso. Statusbar1.Panels[0].Text:=FormatDatetime('dddd , dd " de " mmmm"de"yyyy',Date); Statusbar1.Panels[1].Text:=FormatDatetime('hh:mm:ss',Time); ESte código é adcionado dentro do componente "Timer" e referesse a uma Statusbar colocada em um form.
  3. marinho

    Colorindo linhas do DbGrid.

    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
×
×
  • Criar Novo...