anchor.diff:  procedure TmDrawGridHelper.SetupGrid;
   begin
     FDrawGrid.Align:= alClient;
  -  FDrawGrid.AlternateColor:= clMoneyGreen;
  +  FDrawGrid.AlternateColor:= DefaultGridAlternateColor;
     FDrawGrid.Flat := True;
     //(FDBGrid as TDrawGrid).Options := [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns, dgDisableDelete, dgDisableInsert, dgMultiselect];
     FDrawGrid.Options := [goRowHighlight, goColSizing, goColMoving, goVertLine, goHorzLine, goTabs, goDrawFocusSelected, goDblClickAutoSize, goRelaxedRowSelect];
  
positive.code: procedure TmDBGridHelper.SetupGrid;
  begin
    FDBGrid.Align:= alClient;
    FDBGrid.AlternateColor:= clMoneyGreen;
    FDBGrid.Flat := True;
    FDBGrid.Options := [dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns, dgDisableDelete, dgDisableInsert, dgMultiselect];
  end;
  
negative.code: 
  function GetLastUsedFolderForExport : TNullableString;
  
  var
    DefaultGridAlternateColor : TColor = clMoneyGreen;
  
  implementation
  
  uses
  