Fórum Rotina generica para fazer ordenamento de DBGrid #386651

procedure Tfpbanco.DBGrid1TitleClick(Column: TColumn);

begin

if sdsauxiliar.indexfieldnames  '' then

   dbgrid1.columns[sdsauxiliar.fieldbyname

     (sdsauxiliar.indexfieldnames).index].title.color := dbgrid1.fixedcolor;



if not (column.field.datatype in [ftblob,ftmemo]) then

   if column.field.fieldkind = fkdata then

      begin

      sdsauxiliar.indexfieldnames := column.fieldname;

      column.title.color := clinfobk;

      end;

end;

procedure Tfpbanco.DBGrid1DrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn;

  State: TGridDrawState);

begin

if not odd(sdsauxiliar.recno) then

   if not (gdselected in state) then

      begin

      dbgrid1.canvas.brush.color := $00FFEFDF;

      dbgrid1.canvas.fillrect(rect);

      dbgrid1.defaultdrawdatacell(rect,column.field,state);

      end;

end;