Grids - zebrinha

Top  Previous  Next

procedure TLancamentosForm.GridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  With Grid do

  begin

    // se nao quiser que a selecao fique amarela tire o primeiro IF - BEGIN-END

    if (State = [gdSelected]) or (State = [gdFocused]) or (State = [gdSelected,gdFocused]) then

    begin

      Canvas.Brush.Color := clYellow;

      Canvas.Font.Color  := clBlack;

    end

    else

    begin

      if Odd(GridQuery.RecNo) then

        Canvas.Brush.Color := clWindow

      else

        Canvas.Brush.Color := $00D9FFD9;

    end;

    Canvas.FillRect(Rect);

    DefaultDrawDataCell(Rect, Column.Field, State);

  end;

end;